Membuat Grafik 3D
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;