Membatik adalah salah satu karya budaya bangsa indonesia, namun apa jadi nya kalau kita membatik dalam sebuah komputer? dalam sebuah program? bagaimana itu bisa terjadi? kali ini saya akan berbagi mengenai cara untuk membuat motif batik dalam bahasa pemrograman pascal.

Code :
PROCEDURE ulang(xpusat,ypusat,jx,jy,white: integer);
var xp:integer;
begin
 xp:=xpusat;
 while ypusat+jy kurangdari getmaxy do begin
  xpusat:=xp;
  while xpusat+jx kurangdari getmaxx do begin
   elip(xpusat,ypusat,jx,jy,white);
   elip(xpusat+jx+jy,ypusat,jy,jx,white);
   elip(xpusat,ypusat+jx+jy,jy,jx,white);
   elip(xpusat+jx+jy,ypusat+jx+jy,jx,jy,white);
   xpusat:=xpusat+2*jx+2*jy;
   end;ypusat:=ypusat+2*jx+2*jy;end;
end;

Ini adalah program yang dibentuk oleh teman saya, memiliki agak sedikit perbedaan dalam algoritma pembuatannya, tapi memiliki input yang sama pada program nya. :)

Download
4Shared