कुछ पुराने पास्कल स्रोत को बाहर निकाला: डी लगभग 14 साल पहले, मैंने इसे बहुत सरल 3 डी ऑब्जेक्ट्स प्रदर्शित करने के लिए उपयोग किया था। xrot, yrot, zrot घूर्णन मैट्रिक्स द्वारा गुणा अंक ([x, y, z] घुमाने के लिए हैं)। और मैंने स्क्रीन के बीच में गायब होने के बिंदु के साथ गायब होने के बिंदु पर आधारित एक बहुत ही सरल 3 डी-टू-2 डी-ट्रांसफॉर्मेशन का उपयोग किया। एक उदाहरण के रूप में, एक vertex सरणी परिभाषित किया गया है। आपको एक ट्रिगोन सरणी भी जोड़नी होगी।
const depth = 1500;
deg = pi/180;
{ some vertices for a dice :) }
vertices:array[0..23] of real= (50, 50, 50, { 0}
-50, 50, 50, { 1}
50,-50, 50, { 2}
-50,-50, 50, { 3}
50, 50,-50, { 4}
-50, 50,-50, { 5}
50,-50,-50, { 6}
-50,-50,-50, { 7}
);
{ transform 3d coordinates to pixel coordinates }
procedure 3d_to_2d(x, y, z : real; var px, py : longint);
var k:real;
begin
k:=((depth shr 1)+z)/depth;
px:=(getmaxx shr 1)+trunc(x*k); { getmaxx is the width of the screen }
py:=(getmaxy shr 1)+trunc(y*k); { getmaxy is the height of the screen }
end;
{ rotate around the x axis by rx degrees }
procedure xrot(var x,y,z:real;rx:integer);
var x1,y1,z1:real;
begin
y1:=(y * cos(rx * deg))+(z* (sin(rx * deg)));
z1:=(-y* sin(rx * deg))+(z* (cos(rx * deg)));
y:=y1; z:=z1;
end;
{ rotate around the y axis by ry degrees }
procedure yrot(var x,y,z:real;ry:integer);
var x1,y1,z1:real;
begin
x1:=(x * cos(ry * deg))+(z*(sin(ry * deg)));
z1:=(-x * sin(ry * deg))+(z*(cos(ry * deg)));
x:=x1; z:=z1;
end;
{ rotate around the z axis by rz degrees }
procedure zrot(var x,y,z:real; rz:integer);
var x1,y1,z1:real;
begin
x1:=(x* cos(rz * deg))+(y*(sin(rz * deg)));
y1:=(-x* sin(rz * deg))+(y*(cos(rz * deg)));
x:=x1; y:=y1;
end;
भरा trigons के लिए, मैं एक दोस्त के समारोह है, जो क्षैतिज लाइनों का उपयोग कर आकार (Hline (एक्स, वाई, चौड़ाई, रंग)) ड्रॉ प्रयोग किया है:
TYPE pt=RECORD x,y:LongInt;END;
PROCEDURE Tri(P:ARRAY OF pt;co:BYTE);
VAR q,w:INTEGER;
S:pt;
f12,f13,f23:LongInt;
s1,s2:LongInt;
BEGIN
IF p[0].y>p[2].y THEN BEGIN s:=p[0];p[0]:=p[2];p[2]:=s;END; { sort the points }
IF p[0].y>p[1].y THEN BEGIN s:=p[0];p[0]:=p[1];p[1]:=s;END;
IF p[1].y>p[2].y THEN BEGIN s:=p[1];p[1]:=p[2];p[2]:=s;END;
q:=(p[0].y-p[1].y); { y distance between point 0 and 1 }
IF q<>0 THEN f12:=LongInt((p[0].x-p[1].x) shl 6) DIV q ELSE f12:=0;
q:=(p[0].y-p[2].y);
IF q<>0 THEN f13:=LongInt((p[0].x-p[2].x) shl 6) DIV q ELSE f13:=0;
q:=(p[1].y-p[2].y);
IF q<>0 THEN f23:=LongInt((p[1].x-p[2].x) shl 6) DIV q ELSE f23:=0;
s1:=p[0].x shl 6;s2:=s1;
FOR q:=p[0].y TO p[1].y DO
BEGIN
Hline(s1 shr 6,s2 shr 6,q,co);
s1:=s1+f12;
s2:=s2+f13;
END;
s1:=p[2].x shl 6;s2:=s1;
FOR q:=p[2].y DOWNTO p[1].y DO
BEGIN
Hline(s1 shr 6,s2 shr 6,q,co);
s1:=s1-f23;
s2:=s2-f13;
END;
END;
+1: डी – Seth