membuat objek dari strawberry prolog

sebelum nya baca bismillah

sesudah install program strawberry prolog nya

kalau belum punya,, silahkan ke link ini 

ini untuk membuat objek bintang

######################################

?-

brush(system_color(window)),

window(_,_,win_func(),"Test",100,30,685,665).

win_func(paint):-

pen(5,rgb(21,121,212)),

line(35, 100, 100, 100),

line(65, 70, 40, 150),

line(65, 70, 90, 150),

line(35, 100, 90, 150),

line(100, 100, 40, 150),

fail.

########################################

membuat objek kapal

########################################

?-

brush(system_color(window)),

window(_,_,win_func(),"Test",100,30,685,665).

win_func(paint):-

pen(5,rgb(21,121,212)),

line(50, 150, 250, 150),

line(75, 175, 225, 175),

line(75, 175, 50, 150),

line(225, 175, 250, 150),

line(75, 150, 75, 125),

line(225, 150, 225, 125),

line(75, 125, 225, 125),

line(100, 100, 200, 100),

line(100, 100, 100, 125),

line(200, 100, 200, 125),

line(150, 75, 175, 75),

line(150, 75, 150, 100),

line(175, 75, 175, 100),

fail.

########################################