Make your own free website on Tripod.com

Grafik dan Animasi

for fs01.05

 

back
2.2 Mengatur Jastifikasi
Grafik dan Animasi -> Kreasi huruf dalam grafik -> Mengatur Jstifikasi

 

Yang dimaksud dengan jastifikasi adalah pengaturan posisi tulisan berdasarkan posisi pointer. Terdapat dua macam jastifikasi, yaitu jastifikasi mendatar dan jastifikasi tegak.

Karena pointer tidak dapat dilihat maka untuk mempelajari jastifikasi pada bagian ini selalu digunakan dua buah garis yang saling berpotongan. Titik perpotongan kedua garis tersebut merupakan letak pointer. Misalkan untuk program di atas, tambahkan padanya dua buah garis yang berpotongan pada koordinat (xmax div 2,ymax div 2). Koordinat tersebut adalah letak pointer pada program ini.

Contoh program 2.2.1

Program jastifikasi_huruf;

Uses

Graph, crt;

Var

Xmax,ymax,gm,gd : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

Telah disebutkan di atas bahwa untuk pengaturan jastifikasi terdapat dua macam, yaitu jastifikasi mendatar dan jastifikasi tegak.

Cara menuliskannya adalah :

SetTextJustifikasi(Mendatar,Tegak);

 

2.2.1 Jastifikasi Mendatar

Yang dimaksud dengan jastifikasi mendatar adalah menggeser tulisan, secara mendatar (sesuai dengan sumbu x), sehingga pointer berada pada posisinya. Ada tiga macam jastifikasi mendatar, yaitu : 

1.        LeftText

2.        CenterText

3.        RightText

Cara menuliskannya adalah :

SetTextJustify(LeftText,TopText);

 

Contoh program 2.2.2 

Program jastifikasi_huruf;

Uses

Graph, crt;

Var

Xmax,ymax,gm,gd : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(LeftText,TopText);

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

Cara menuliskan CenterText dalam program Pascal adalah :

SetTextJustify(CenterText,TopText);

 

Contoh program 2.2.3

Program justifikasi_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

 

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(CenterText,TopText);

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

Cara menuliskan RightText dalam program Pascal adalah :

SetTextJustify(RightText,TopText);

 

Contoh program 2.2.4

Program jastifikasi_huruf;

Uses

Graph,crt; 

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

 

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(RightText,TopText);

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

7.2.2 Justifikasi Tegak

Yang dimaksud dengan jastifikasi tegak adalah menggeser tulisan, secara tegak (sesuai dengan sumbu y), sehingga pointer berada pada posisinya. Ada tiga macam jastifikasi tegak, yaitu :

1.        BottomText

2.        CenterText

3.        TopText

 

Cara menuliskan BottomText adalah :

SetTextJustify(CenterText,BottomText);

 

Contoh program 2.2.5

Progarm jastifikasi_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(RightText,BottomText);

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

Cara menulisakan CenterText adalah :

SetTextJustify(CenterText,CenterText);

 

Contoh program 2.2.6

Program jastifikasi_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

 

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(RightText,CenterText);

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

 

Cara menuliskan TopText adalah :

SetJustify(CenterText,TopText);

 

Contoh program 2.2.7

Progarm jastifikasi_huruf;

Uses

Graph,crt;

Var

Xmax,ymax,gd,gm : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

 

Xmax := GetMaxX;

Ymax := GetMaxY;

 

Rectangle(0,0, xmax,ymax);

 

SetTextJustify(RightText,TopText);

MoveTo(xmax div 2,ymax div 2);

OutText (’HURUF GRAFIK’);

 

Line(xmax div 2,0, xmax div 2,ymax);

Line(0,ymax div 2, xmax,ymax div 2);

 

Repeat until KeyPressed;

CloseGraph;

End.

continue with Mengatur Gaya Huruf

last change: 2005-01-22 , Fendi Sudiantor
n_fendi_s@yahoo.com