membuat bintang di strawberry prolog

pada praktikum pertama gw dengan strawberry prolog bikin pusing karena kita kudu ngitung kordinat biar garis garisnya lurus dan sesuai ma yang kita mau. nah gw dapet tugas buat ngebuat bintang yang apik gak mletat mletot. pikiran gw gampang lah toh cuma bikin bintang doang kan. dan ternyata pas gw coma bikin pusing juga tu bintang. nah buat sohib sohib yang punya tugas disuruh bikin bintang nih gw kasih listingnya

?-

Brush(system_color(window)),

window(_,_,win_func(),"praktikum1_ardian_50410993",10,10,800,800).

win_func(paint):-

pen(5,rgb(59,100,50)),

line(400,10,330,200),

line(400,10,470,200),

line(330,200,125,200),

line(470,200,680,200),

line(125,200,285,335),

line(680,200,530,335),

line(285,335,215,530),

line(215,530,400,430),

line(400,430,585,530),

line(585,530,530,335).