Listing Program (Rumah + Bintang) with Strawberry Prolog

Sekedar ngasih informasi aja nih, siapa tau ada yang mau belajar bikin rumah dan bintang pada Strawberry Prolog, mengingat masih jarangnya orang-orang yang menggunakan software ini. Okey,,langsung aja yaa…ini listingnya :

?-
window( _,_,win_func(),”rumah bintang”,10,10,500,500).
win_func(paint):-
pen(10,rgb(45,54,216)),
line(175,50,200,50),
line(175,75,200,75),
line(175,50,175,75),
line(200,50,200,75),
line(100,75,50,125),
line(100,75,150,125),
line(50,125,150,125),
line(100,75,200,75),
line(200,75,250,125),
line(150,125,250,125),
line(50,125,50,250),
line(150,125,150,250),
line(250,125,250,250),
line(50,250,150,250),
line(150,250,250,250),
line(75,155,75,250),
line(125,155,125,250),
line(75,155,125,155),
line(175,155,225,155),
line(175,75,200,75),
line(175,200,225,200),
line(175,155,175,200),
line(225,155,225,200),
line(200,155,200,200),
line(175,175,225,175),
line(175,75,200,75),
line(175,75,200,75),
line(175,75,200,75),
pen(5,rgb(255,255,0)),
line(235,60,265,60),
line(250,50,235,75),
line(250,50,265,75),
line(265,60,235,75),
line(235,60,265,75),
fail.

maka outputnya seperti berikut :