Membuat Rumah dengan strawberry prolog

Lagi enga ada kerjaan nih mau ngerjain tugas rasanya mager banget eh malah ngisi waktu dengan tv dan online , tadi sih lagi bikin laporan akhir praktikum nah iseng iseng mau gue share , haha ketauan banget ya baru belajar si beli beli ini haha bukan penyakit loh tapi bahasa pemrograman gitu si strawberry prolog disini gue ngegunainnya buat bikin rumah , ini nih listing buat bikin rumah nya

Listing Program

?-

window(_,_,win_func(_),"Rumah Konita",100,100,500,500).

win_func(paint):-

pen(5,rgb(30,45,130)),

line(100,50,50,100),

line(100,50,150,100),

line(50,100,150,100),

line(150,100,350,100),

line(100,50,300,50),

line(300,50,350,100),

line(50,100,50,300),

line(150,100,150,300),

line(50,300,150,300),

line(150,300,350,300),

line(350,100,350,300),

line(75,200,75,300),

line(75,200,115,200),

line(115,200,115,300),

pen(5,rgb(40,130,80)),

line(300,150,180,150),

line(180,150,180,200),

line(180,200,300,200),

line(300,200,300,150),

line(240,200,240,150),

pen(5,rgb(255,128,128)),

line(100,400,100,320),

line(100,355,130,400),

line(100,355,130,320),

line(150,355,150,400),

line(150,400,200,400),

line(150,355,200,355),

line(200,355,200,400),

line(220,355,220,400),

line(220,355,250,400),

line(250,400,250,355),

line(270,355,270,400),

line(300,355,300,400),

line(280,355,320,355),

line(350,355,320,400),

line(350,355,380,400),

line(330,380,370,380).

nah penjelasannya nih

Logika Program

?-

syntak diatas dituliskan untuk mengawali program apabila tidak digunakan maka program error

window(_,_,win_func(_),"Rumah Konita",100,100,500,500).

syntak diatas untuk membuka layar dan mengatur ukran panjang lebar beserta judulnya

win_func(paint):-

untuk membuat garis dan bentuk lain lainnya

pen(5,rgb(30,45,130)),

memberikan ketebalan garis dan warna garis untuk rumahnya

line(100,50,50,100),

line(100,50,150,100),

line(50,100,150,100),

syntak diatas untuk membuat segitiga atas rumah

line(150,100,350,100),

line(100,50,300,50),

line(300,50,350,100),

syntak diatas untuk membuat jajaran genjang bagian atas di samping segitiga

line(50,100,50,300),

line(150,100,150,300),

line(50,300,150,300),

line(150,300,350,300),

line(350,100,350,300),

untuk  membat bagian di bawah atap rumah

line(75,200,75,300),

line(75,200,115,200),

line(115,200,115,300),

untuk membuat pintu

pen(5,rgb(40,130,80)),

memberi warna dan ketebalan gari jendela

line(300,150,180,150),

line(180,150,180,200),

line(180,200,300,200),

line(300,200,300,150),

line(240,200,240,150),

membuat jendela

pen(5,rgb(255,128,128)),

memberi warna dan ketebalan garis untuk tulisan nama

line(100,400,100,320),

line(100,355,130,400),

line(100,355,130,320),

line(150,355,150,400),

line(150,400,200,400),

line(150,355,200,355),

line(200,355,200,400),

line(220,355,220,400),

line(220,355,250,400),

line(250,400,250,355),

line(270,355,270,400),

line(300,355,300,400),

line(280,355,320,355),

line(350,355,320,400),

line(350,355,380,400),

line(330,380,370,380).

untuk membuat tulisan nama "Konita" dan pada akhir di beri tanda titik "." kalau tidak di berikan maka program error

dan saya akan menjelaskan tentang bagian bagian line:

exp : line(100,400,100,320),

yang dimaksud adalah kita membuat garis dengan titik kordinat X1 = 100, Y1 = 400, X2=100, Y2=320

maka yang akan dihasilkan adalah garis panjang kebawah