hhhmmmmm...... sya masukan lagi materi grafika yaitu warna-warna yang di sediakan oleh pascar grafik..
cara membuat bendera inggris..... hehehehe memang tidak terlalu mirip dengan bendera inggris tapi tidak papa sudah....
smoga bermanfaat ya...
NAMA : URBANUS
L.PAYAWA
NPM : 10
411 115
TUGAS : PRAKTEK
GRAFIKA
Ø Warna
di pascal grafik berdasarkan nomor:
No
|
Nama warna
|
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Hitam
Biru
Hijau
Cyan
Merah
Magenta
Coklat
Light gray
Dark gray
Light blue
Light green
Light cyan
Light red
Light magenta
Kuning
putih
|
Ø
Script untuk meletakan titik berwarna
merah di tengah-tengah layar :
uses graph;
begin
driver :=detect;
initgraph (driver, mode,'');
xmax:=getmaxx;
ymax:=getmaxy;
putpixel (320, 240, 4);
readln;
end.
OUTPUTNYA :
Ø
Script untuk membuat gambar bendera inggris
uses graph;
var driver, mode, xmax, ymax :integer;
begin
driver :=detect;
initgraph (driver,mode,'');
xmax:=getmaxx;
ymax:=getmaxy;
line (0,0,639,0);
line (0,479,0,0);
line (0,0,639,479);
line (0,479,639,0);
line (0,479,639,479);
line (639,0,639,479);
line (0,240,639,240);
line (320,479,320,0);
line (150,479,150,0);
line (480,479,480,0);
line (0,100,639,100);
line (0,350,639,350);
readln;
end.
OUTPUTNYA :
Tidak ada komentar:
Posting Komentar