tugas grafika

tugas membuat PROGRAM GARIS DENGAN BAHASA PASCAL

uses crt, graph;
var driver,mode:integer;
x1,y1,x2,y2:integer;
step,k:integer;
dx,dy:real;
xm,ym,x,y:real;
procedure utama;
begin
clrscr;
driver:=detect;
InitGraph(driver,mode,'');
end;
procedure Input;
begin
writeln('Program Menggambar Garis Dengan Algoritma DDA');
writeln('<<=========================================>>');
writeln;
write('Masukkan Nilai x1: ');
readln(x1);
write('Masukkan Nilai y1: ');
readln(y1);
write('Masukkan Nilai x2: ');
readln(x2);
write('Masukkan Nilai y2: ');
readln(y2);
end;
procedure Garis_DDA;
begin
dx:=x2-x1;
dy:=y2-y1;
x:=x1;
y:=y1;
if abs(dx) > abs(dy) then
step:=round(abs(dx))
else
step:=round(abs(dy));
xm:=dx/step;
ym:=dy/step;
putPixel(round(x),round(y),white);
for k:=1 to step do
begin
x:=x+xm;
y:=y+ym;
putPixel(round(x),round(y),white);
end;
end;
begin
input;
utama;
Garis_DDA;
readln;
end.

lima hal teraneh

Ada orang yang kuasa
mengangkat beban ratusan kilo gram
demi medali kebanggaannya
tapi pada saat yang sama
Ia tak kuasa bertakbir
Walau hanya dengan mengangkat sebelah tangannya

Ada orang yang tak merasa pegal
Membungkuk seharian
ketika menanam padi diladangnya
Tapi pada saat yang sama
Encoknya akan segera kumat
Bila yang lima waktu menyeru tuk digenapkan olehnya

Ada orang yang begitu ramah
Menjawab panggilan telepon diarah kanan dan kirinya
Tapi pada saat yang sama
Ia enggan menegur tetangganya

Ada orang yang royal
Mentraktir pesta kawan kawanya
Tapi pada saat yang sama
Miskin dan papa pula hatinya

Ada orang yang rela menyebrangi lautan
Untuk merebut hati pujaannya
Tapi pada saat yang sama
Ia melarikan diri dari seruan Jihadnya

aku dan rindu

Di teduh temaram malam
Aku dan rindu…
Terlilit dalam sulam kepiluan
Terpingit dalam cekam cinta

Bibir bergetar gumamkan namamu
Nafas mendesir … mengalir
Meraih harapan butir demi butir
Tuk dapat sejenak bersamamu
Tuk sekejap bentangkan tawa
Dan sesaat menghela duka

Deras kesunyian datang
Membungkam panggilan ini
Rindupun menjerit dan menggamit
Jantungku yang masih berdenyut
Seiring nada jiwa yang menyebut
Namamu…

Angan Mayapada

Dapatkah kataku kan terukir di mayapada
Kias laksana sabda sang raja,
Yang tertunduk pasrah ,simpuh hamba yang setia

Dapatkah rinduku kan terbang di awang jagad
Mengumandangkan cerita diri yang tersesat
Dengan beribu sambutan mengalun lambat

Dapatkah tangisku membekukan tirta asmara
Hingga dinginnya,menutup harap maupun asa
Melumat seluruh bagian kebisuan,
Di selingan tangan terlukis aksara

Dapatkah mimpiku menjadi misteri
Mewujudkan imaji-imaji yang tak berarti
Dan pelukanku adalah sepi
Membeku disudut hati.

terdiam sang malam

Terintih tahan tangis di kala senyap,
simpuh bersujud di hamparan ke tiada dayaan
tak kuasa tatapan pada AgungNya
terpaku diri di sekitar pasang mata yang terlelap
di buaian malamMu ku merintih,
biarlah sesal ini hanya Kau yang tahu
hati hamba yang gelisah
mungkinkah air mata ini kan bermakna...?,
atau hanya hijab semata.
dan apa bekas sujudku dapat melunakkanMu...?,
atau hanyalah alat yang kan Kau campak ke wajahku kelak.
sebagai balasan ke sombonganku.

di segala kerendahan yang terhina,
hanya butir-butir kata sesal terucap.
sebelum lidahku kelu tiada berucap,
sebelum masa terhenti,
sedangkan aku masih terjerat
dosa dan sesat.

terseok-seok raga ini,
dipersimpangan ke mencari
kata indah.....
yang tak seorang manusia dapat merangkainya.

banjarbaru,9 juli 2009