judul menu

Sabtu, 07 Januari 2012

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.

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

Tidak ada komentar: