membuat Bintang di Strawberi prolog

Disini kita akan membahas tentang bahasa Pemrograman Strawberi Prolog dan untuk mengawalinya kita akan memulai dengan membuat program bintang di prolog ini langkah awal yang kita lakukan untuk memulai program ini adalah dengan cara mengetikan kodingan di bawah ini

?-

Brush(system_color(window)),

window(_,_,win_func(),"bintang 1 ",10,10,800,800).

Kodingan diatas adalah awal untuk membuat program bintang, Brush(system_color(window)), maksudnya adalah kita akan emebuat jendela output atau jendela program dengan berbagai warna sedangkan window(_,_,win_func(),"bintang 1 ",10,10,800,800). Ini adalah membuat judul dari jendela yang kita buat dan membuat besar kecilnya resolusi dari jendela program yang kita buat.lalu kita lanjut ke kodingan berikutnya.

win_func(paint):-

pen(5,rgb(250,50,30)),

perintah diatas ini adalah cara kita untuk memberikan warna pada garis bintang yang akan kita buat di jendela output nanti.untuk memnggunakan warna yang kita suka tinggal ganti saja anggka angka yang ada di potongan kodingan atas ini.

line(400,10,330,200),

line(400,10,470,200),

line(330,200,125,200),

line(470,200,680,200),

line(125,200,285,335),

line(680,200,530,335),

line(285,335,215,530),

line(215,530,400,430),

line(400,430,585,530),

line(585,530,530,335).

Sedangkan potongan kodingan diatas ini adalh potongan kodingan gimana kita membuat garis –garis hingga membentuk bintang di mulai dari membuat garis paling atas hingga paling bawah. Dan maksud dari angka angka yang berda di penggalan kodingan tersebut adalah menentukan miring dan dan lurusnya garis tersebut maka disini kita memerlukan ketelitian yang ekstra jika anggkanya tidak sesuai maka tidak akan jadilah program bintang seperti dibawah ini. Dan janga lupa setiap di akhir potongan kodingan diberi tanda koma (,) dan di ujung program diberi tanda (.) titik sebagai tanda pengakhir program.

Listing tinggal di coba ja :

?-

Brush(system_color(window)),

window(_,_,win_func(),"bintang 1 ",10,10,800,800).

win_func(paint):-

pen(5,rgb(250,50,30)),

line(400,10,330,200),

line(400,10,470,200),

line(330,200,125,200),

line(470,200,680,200),

line(125,200,285,335),

line(680,200,530,335),

line(285,335,215,530),

line(215,530,400,430),

line(400,430,585,530),

            line(585,530,530,335).