Membuat Pemandangan Menggunakan Strawberry Prolog

Pada kesempatan kali ini , ilmu yang saya dapat dari Lab universitas gunadarma yaitu tentang Pemrograman Strawberry Prolog , pada tugas Laporan akhir saya disuruh untuk membuat pemandagan Gunung menggunakan Strawberry prolog , buat yang belum tahu tentang strawberry prolog ini saya jelaskan secara singkat sajah , Prolog adalah bahasa pemrograman logika atau disebut juga sebagai bahasa non-procedural. Nama Prolog merupakan singkatan dari “Programming in Logic“. Ide untuk mengembangkan pemrograman dalam logika, pertama kali dilakukan oleh Robert Kowalski di Edinburgh, Skotlandia pada tahun 1970-an. Berbeda dengan bahasa pemrograman yang lain, yang menggunakan algoritma konvensionl sebagai teknik pencariannya seperti pada Delphi, Pascal, Basic, Cobol dan bahasa pemrograman yang sejenisnya, maka prolog menggunakan teknik pencarian yang di sebut heuristik (heutistic) dengan menggunakan pohon logika.

Listing Progamnya :

?-

window( _,_,win_func(),"Gunung_GUMDI",0,0,800,600).

win_func(paint):-

%Background/Langit

pen(0,rgb(0,200,255)),

brush(rgb(0,204,255)),

rect(0,0,800,600),

%Tanah1

pen(0,rgb(102,204,0)),

brush(rgb(102,204,0)),

rect(0,343,790,560),

%Gunung

pen(10,rgb(129,129,129)),

brush(rgb(129,129,129)),

fill_polygon(415,340,785,340,583,135),

pen(10,rgb(129,129,129)),

brush(rgb(129,129,129)),

fill_polygon(0,343,400,343,200,137),

%Jalan

pen(0,rgb(128,128,128)),

brush(rgb(80,80,80)),

fill_polygon(380,345,400,345,300,560,200,560),

pen(3,rgb(204,255,255)),

line(390,345,250,560),

%Matahari

pen(5,rgb(250,250,0)),

line(495,35,575,125),

line(535,25,535,135),

line(575,35,495,125),

line(480,80,590,80),

pen(5,rgb(0,204,255)),

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

ellipse(495,40,575,120),

%Sawah1

pen(10,rgb(75,65,30)),

brush(rgb(75,65,30)),

rect(420,400,615,470),

pen(3,rgb(35,65,0)),

line(435,415,445,425),

line(445,425,455,415),

line(445,410,445,425),

line(505,415,515,425),

line(515,425,525,415),

line(515,410,515,425),

line(575,415,585,425),

line(585,425,595,415),

line(585,410,585,425),

line(435,455,445,465),

line(445,465,455,455),

line(445,450,445,465),

line(505,455,515,465),

line(515,465,525,455),

line(515,450,515,465),

line(575,455,585,465),

line(585,465,595,455),

line(585,450,585,465).

Output Progamnya :