membuat rumah di prolog

Strawberry Prolog dibuat oleh Institut Matematika dan Informatika pada Akademi Ilmu Pengetahuan Bulgaria. Versi pertama dirilis pada tahun 1996. Pemimpin tim Strawberry Dimiter Dobrev. Strawberry Prolog adalah dialek dari bahasa pemrograman Prolog. Sintaks-nya adalah sangat dekat dengan ISO-Prolog tetapi memiliki banyak ekstensi yang bukan bagian dari standar. Gagasan utama dari Strawberry Prolog adalah sangat mudah digunakan dan itulah sebabnya beberapa universitas menggunakannya untuk kursus mereka.

Disini saya akan membuat sebuah gambar rumah dam bintang dengan menggunakan strawberry prolog, untuk membuat project baru silahkan klik File – New – Strawberry Project - OK

Setelah membuat new project akan muncul form untuk mengisi code-code program seperti gambar berikut:

Fungsi ?-

            Perintah yang digunakan untuk setiap awal dari program untuk menjadi intrepeteur untuk merespon bagian koding selanjutnya. Tanpa symbol ini, pasti program yang di buat akan error ketika di RUN.

           

Fungsi  window( _,_,win_func(),”rumah”,200,200,700,700).

Perintah diatas digunakan untuk membuat sebuah jendela window yang tampil pada desktop. Dan saya beri nama dengan “rumah”, fungsi 200,200,700,700 untuk mengatuk tinggi dan lebar form seperti berikut :

Fungsi win_func(paint):-

Digunakan untuk membuat gambar.

Fungsi pen(4,rgb(255,0,0)),

            Digunakan untuk memakai jenis pen,  menentukan ketebalan dari garis dan memberikan warna. Disini saya membuat ketebalan garisnya yaitu 4. Dan untuk warna 255,0,0 yang berarti kode warna Merah.

Fungsi line(175,75,200,75),

            line(X₁,Y₁,X₂,Y₂) . Perintah yang saya buatkan digunakan untuk membuat garis dimana x1=175, x2=175, y1=200, dan y2= 75.

Dan dari garis-garis tadi di kombinasikan titik kordinat yang akan menjadi sebuah gambar rumah berikut kordinat-kordinat dan hasil dari kordinat-nya :

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),

Dan sekarang saya akan membuat gambar bintang diatas rumah tersebut dengan kordinat yang saya sudah buat sebagai berikut :

pen(5,rgb(0,128,192)),

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).