Line dan Ellipse pada Strawberry Prolog

Mau berbagi sedikit mengenai Strawberry Prolog. Sebelumnya kita mesti kenalan dulu nih sama sejarahnya prolog. Prolog adalah bahasa pemrograman logika atau non-prosedural. Bahasa ini diciptakan oleh Alain Colmerauer dan Robert Kowalski sekitar tahun1972 dalam upaya untuk menciptakan suatu bahasa pemrograman yang memungkinkan pernyataan logika alih - alih rangkaian perintah untuk dijalankan komputer. Strawberry Prolog dihasilkan oleh Institut Informatika dan Matematika pada Akademi Ilmu Pengetahuan Bulgaria. Versi pertama dirilis pada tahun 1996. Pemimpin tim Strawberry Dimiter Dobrev.

Pertama-tama, akan saya jelaskan perintah dasar pada program yang saya buat.

• ?- : digunakan untuk mengawali suatu program.

• (.) tanda titik/dot : untuk mengakhiri program.

Semua statement yang berada di antara tanda ?- sampai (.) merupakan isi dari program utama.

?-

window(_,_,win_func(_),"Rumah - Nanda Maya Utari",100,20,900,700).

win_func(paint):-

Setiap mengawali pembuatan suatu program, digunakan perintah ?- . Selanjutnya perintah window(_,_,win_func(_), "Rumah - Nanda Maya Utari", 100, 20, 900, 700) digunakan untuk membuat jendela output/window yang akan menampilkan isi dari program kita. Jendela yang saya buat berukuran 900x700 dan dimulai dari titik 100, 20 (X1, Y1). Judul atau title dari jendela tersebut adalah “Rumah – Nanda Maya Utari”. Sedangkan perintah win_func(paint):- merupakan perintah agar dapat membuat gambar atau garis atau grafik lainnya pada jendela output.

pen(10, rgb(255, 242, 0)), % matahari

brush(rgb(255, 242, 0)),

ellipse(10, 10, 150, 150),

Diatas ini adalah source code untuk membentuk lingkaran. Perintah pen(10, rgb(255, 242, 0)) berarti garis yang akan dibuat akan mempunyai ketebalan ukuran 10 dan berwarna kuning. Perintah brush(rgb(255, 242, 0))  digunakan untuk mewarnai pola yang akan dibuat. Pada kasus pembuatan gambar matahari ini, warna garis pola dan warna dasarnya adalah kuning. Dan perintah ellipse(10, 10, 150, 150) digunakan untuk membuat pola lingkaran atau ellipse dengan titik awal 10, 10 dan mempunyai jari-jari selebar 150.

pen(7, rgb(84,170,43)), % atap segitiga

line(200, 100, 50, 250),

line(200, 100, 350, 250),

line(50, 250, 350, 250),

Bentuk umum untuk membuat garis pada strawberry prolog adalah line(X1, Y1, X2, Y2). Untuk mempermudah pembuatan pola, kita bisa membuat sketsa koordinat terlebih dahulu. Perintah  line(200, 100, 50, 250) berarti garis tersebut dimulai dari titik 200, 100  sampai titik 50, 250.

pen(7, rgb(10,173,173)), % jendela kiri

brush(rgb(10, 173, 173)),

rect(100, 300, 300, 350),

Bentuk umum dari pembuatan persegi/persegi panjang adalah rect(X1, Y1, X2, Y2). Titik awal dimulai dari titik kiri atas (X1, Y1) dan titik akhir berada di titik kanan bawah (X2, Y2).

Contoh bentuk yang dihasilkan menggunakan garis dan lingkaran :