Tampilkan postingan dengan label animasi 3D. Tampilkan semua postingan
Tampilkan postingan dengan label animasi 3D. Tampilkan semua postingan

Sabtu, 25 Mei 2013

Jika pada posisi perintah sebagaimana contoh ke-tiga dari rangkaian ini dipanggil: make_3Dbar_graph, maka akan diperoleh grafik batang 3D. prosedur ini memanfaatkan sebuah rangkaian titik sebagaimana membuat diagram garis. perhatikan, bahwa untuk ke titik lebih atas, y harus dikurang, dan saya menggunakan pengurang sebesar 2 satuan pixel. “bayang-bayang” gambar diletakkan di sebelah kanan.
Perhatikan prosedur untuk membuat gambar 3D berikut:

procedure make_3dbar_graph;
var k,x1,y1,x2,y2:integer;
begin
//w:= 4; //4 pixel
for k:= 1 to length(GraphPoints)-1 do
begin
x1:= GraphPoints[k].X-3;
x2:= GraphPoints[k].X+3;
y1:= GraphPoints[k].Y;
y2:= MostBottom;
cv.Rectangle(x1,y1,x2,y2) ;
//
cv.polyline([point(x1,y1),point(x1+2,y1-2),point(x2+2,y1-2),point(x2,y1)]);
cv.Polyline([point(x2,y1),point(x2+2,y1-2),point(x2+2,y2-2),point(x2,y2)]);
end;
end;