Membuat Rumah & Bintang pada Strawberry Prolog

Sekarang saya akan sedikit memberi tahu cara membuat ruah dan bintang menggunakan Strawberry Prolog.  Saya akan memberikan listing program serta penjelasanya, langsung saja saya mulai.

Logika Program:

·         Pertama kita buka dahulu aplikasi Strawbery Prolog.

·         Lalu kita akan memulai untuk membuat program pertama kita ketikan:
            ?-

Symbol setiap awal dari program ini berguna untuk menjadi intrepeteur untuk merespon bagian koding selanjutnya. Tanpa symbol ini, kemungkinan program akan error ketika decompile.

·         Lalu kita ketikan :

            window(_,_,win_func(),"Rumah",600,100,700,600),

Merupakan perintah untuk membuat sebuah jendela output yang berukuran 700x600 dan akan keluar outputnya pada koordinat 600 ke samping dan 100 ke bawah, dan output akan  memiliki nama Rumah.

·         Sekarang kita akan membuat pintu, ketik seperti yang ada di bawah ini:

               % pintu

               pen(10,rgb(50,75,200)),

               line(180,300,180,400),

               line(180,300,100,300),

               line(100,300,100,400),

                pen(10,rgb(50,75,200)),

Merupakan perintah untuk menentukan ketebalan dari garis dan warna. Disini saya membuat ketebalan garisnya yaitu 10. Lalu 50,75,200 yang berarti kode warna biru..

Untuk mempermudah pembuatan garis saya menggambar dan menentukkan terlebih dahulu koordinat-koordinat garis tersebut pada sebuah kertas. Sehingga didapat titik-titi koordinat X₁, Y₁, X₂, Y₂, .

Bentuk umum untuk membuat garis pada strawberry prolog ialah line(X₁, Y₁, X₂, Y₂), sehingga:

line(180,300,180,400),

Merupakan perintah untuk membuat garis dimana X₁ nya adalah 180, Y₁ nya adalah 300, X₂ nya adalah 180, dan Y₂ nya adalah 400. Begitupun untuk line/garis-garis berikutnya. Dilakukan hal yang sama.

·         Sekarang kita akan membuat bagian-bagian rumah lainnya, ketik seperti yang di bawah ini:

% kotak depan

pen(15,rgb(0,100,0)),

line(30,400,250,400),

line(250,200,250,400),

line(250,200,30,200),

line(30,200,30,400),

% persegi belakang

line(600,400,250,400),

line(250,200,600,200),

line(600,200,600,400),

% segitiga depan

line(30,200,150,80),

line(150,80,250,200),

line(600,200,450,80),

line(150,80,450,80),

% Jajargenjang belakang

line(350,320,350,220),

line(350,220,520,220),

line(520,320,520,220),

line(350,320,520,320),

line(435,320,435,220),

line(350,270,520,270),

Maka akan keluar output seperti di bawah ini:

·         Selanjutnya untuk pembuatan bintang pun dengan cara yang sama, ketikan seperti di bawah ini:

         % Bintang

         pen(7,rgb(255,255,0)),

         line(200,25,230,25),

         line(215,15,200,40),

         line(215,14,230,40),

         line(230,25,200,40),

         line(200,25,230,40),

         line(400,25,430,25),

         line(415,15,400,40),

         line(415,14,430,40),

         line(430,25,400,40),

         line(400,25,430,40).

         pen(7,rgb(255,255,0)),

Merupakan perintah untuk ketebalan dan warna garis. Disini saya menggunakan ketebalan 7 dan warna 255,255,0yang merupakan warna kuning.

         line(200,25,230,25),

Merupakan perintah untuk membuat garis dimana X₁ nya adalah 200, Y₁ nya adalah 25, X₂ nya adalah 230, dan Y₂ nya adalah 25. Begitupun untuk line/garis-garis berikutnya. Dilakukan hal yang sama.

Dan untuk bintang yang kedua pun sama,

         line(400,25,430,25),

Merupakan perintah untuk membuat garis dimana X₁ nya adalah 400, Y₁ nya adalah 25, X₂ nya adalah 430, dan Y₂ nya adalah 25. Begitupun untuk line/garis-garis berikutnya. Dilakukan hal yang sama. 

Di bawah ini adalah output akhirnya: