Как создать гистограмму (гистограмму) в программировании на Prolog GUI (XPCE)?

Question

Я пытаюсь сделать диаграмму, используя XPCE в библиотеках Proglog. Хотя я нашел некоторые материалы, но я не могу выполнить их сразу. Код как ниже.

barchart :-
    barchart(vertical).
barchart(HV) :-
    new(W, picture),
    active_classes(Classes),
    length(Classes, N),
    required_scale(Classes, Scale),
    send(W, display, new(BC, bar_chart(HV, 0, Scale, 200, N))),
    forall(member(class(Name, Created, Freed), Classes),
           send(BC, append,
                bar_group(Name,
                          bar(created, Created, green),
                          bar(freed, Freed, red)))),
    send(W, open).

И то, что я хочу сделать, это как Figure27 на этом сайте.

http://www.swi-prolog.org/packages/xpce/UserGuide/libplot.html

Edited)

Я просто хочу сделать очень простую гистограмму. Как это ниже. http://image.tutorvista.com/content/feed/u845/bargraph.gif

извините за ссылку, а не за изображение (мне не хватает очков репутации для загрузки изображения)

Answer 1

Вот (другой) образец

:- use_module(library(pce)).
:- use_module(library(plot/barchart)).
:- use_module(library(autowin)).

test_barchart :-
    new(W, picture),
    send(W, display, new(BC, bar_chart(vertical,0,200))),
    forall(member(Name/Height/Color,
              [x/100/red, y/150/green, z/80/blue, v/50/yellow]),
           (   new(B, bar(Name, Height)),
               send(B, colour(Color)),
               send(BC, append, B)
           )),
    send(W, open).

что дает

Вы можете проверить объекты XPCE из справки \ Руководство по XPCE \ Браузеры \ Обозреватель классов...