Pascal Membuat garis lingkaran dan Elipse

Oke sobat blogger, malam ini saya akan membagikan tutorial / contoh program pascal mengenai cara membuat grafik garis, lingkaran dan elips pada pemograman pascal. Penulis menggunakan FreePascal, soalnya penulis uda coba menggunakan Dev-Pascal ga bisa/ ada error, penulis pake Turbo Pascal 7, TPU pada TP7nya tidak ditemukan. Daripada ribet harus menambahkan Library OpenGLnya, penulis menggunakan FreePascal yang ternyata telah Include OpenGL pada program tersebut. (Ternyata program gratisan ada yang ga ribet juga ya. Hehe).

Ini dia Source Codenya :

Kamu bisa memanipulasi koordinat X dan Ynya.

Syntax untuk membuat Garis :

Line (x1,y1,x2,y2);       //Dimana x1 dan y1 merupakan titik koordinat awal sedangkan x2 dan y2 merupakan titik koordinat akhir.

Syntax untuk membuat Lingkaran :

Circle(x,y,r);                       //Dimana x dan y merupakan titik pusat lingkaran dan r merupakan jari-jari lingkaran.

Syntax untuk membuat Elips :

Ellipse(x,y,s0,s1,rx,ry);        //Dimana x dan y merupakan titik pusat elips, s0 merupakan sudut awal elips, s1 merupakan sudut akhir elips, rx merupakan jari-jari koordinat x dan ry merupakan jari-jari koordinat y.