LA PKB 1

?-
window(title("Rumahku Istanaku"),size(1000,500)).
win_func(paint):-
pen(5,rgb(1,167,225)),
%Tembok Depan Rumah
line(200,200,400,200),
line(400,200,400,400),
line(400,400,200,400),
line(200,400,200,200),
%Pintu Depan Rumah
line(275,400,275,300),
line(275,300,325,300),
line(325,300,325,400),
line(315,350,320,350),
%Atap Rumah Depan
line(200,200,300,100),
line(300,100,400,200),
%Tembok Rumah
line(400,200,700,200),
line(700,200,700,400),
line(700,400,400,400),
%Atap Rumah Terusan
line(300,100,600,100),
line(600,100,700,200),
%Jendela 1
line(450,280,500,280),
line(500,280,500,330),
line(500,330,450,330),
line(450,330,450,280),
line(475,280,475,330),
line(450,305,500,305),
%Jendela 2
line(600,280,650,280),
line(650,280,650,330),
line(650,330,600,330),
line(600,330,600,280),
line(625,280,625,330),
line(600,305,650,305),
%Genteng
line(325,125,625,125),
line(350,150,650,150),
line(375,175,675,175),
line(325,100,425,200),
line(350,100,450,200),
line(375,100,475,200),
line(400,100,500,200),
line(425,100,525,200),
line(450,100,550,200),
line(475,100,575,200),
line(500,100,600,200),
line(525,100,625,200),
line(550,100,650,200),
line(575,100,675,200),
%Bintang
line(301,142,306,158),
line(306,158,323,158),
line(323,158,311,168),
line(311,168,315,184),
line(315,184,301,177),
line(301,177,288,184),
line(288,184,291,168),
line(291,168,279,158),
line(279,158,296,158),
line(296,158,301,142),
%Cerobong Asap
line(235,165,235,85),
line(225,85,285,85),
line(225,85,225,70),
line(225,70,285,70),
line(285,70,285,85),
line(275,125,275,85).