을 확인하는 것이 좋습니다.
display :-
create_display,
window_handler(display, display_handler),
show_dialog(display).
create_display :-
wdcreate(display,`Graphics Example`, 70, 50, 1200,510,[ws_sysmenu, ws_caption, ws_popup]),
wccreate((display,2),grafix, ``, 10, 10, 1050, 457,[ws_child, ws_border, ws_visible, ws_tabstop]),
gfx_brush_create(red, 255, 0, 0, solid).
display_handler(_, msg_close, _, close):-
wclose(display).
display_handler(Win, msg_paint, grafix, _) :-
gfx_paint(Win),
gfx((brush = red -> rectangle(280, 212, 0, 12))),
gfx_end(Win).
나는 너무 멀다고 생각합니다. Win-Prolog를 사용하여 사각형을 표시하는 방법을 알고 싶습니다. 그것을 할 방법이 있습니까? – Chin