Macintosh-SW/macintosh_cookbook
1
0
Fork 0
mirror of https://git.sr.ht/~rabbits/macintosh_cookbook synced 2024-06-01 11:42:07 +00:00
Code Issues Projects Releases Wiki Activity

Added warnings

Browse Source
This commit is contained in:
neauoire 2020-05-15 11:35:20 +09:00
parent 31ee0eddd4
commit a8ac67d685
3 changed files with 64 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
units/Graf3DScene/Graf3DPrimitives.pas
View File

@ -14,35 +14,12 @@ interface
procedure SetCyl3D (var shape: Shape3D; x, y, z, w, h, d, r: Fixed);
procedure SetPyramid3D (var shape: Shape3D; x, y, z, w, h, d, ax, az: Fixed);
{parts}
procedure AddVertice3D (var shape: Shape3D; x, y, z: Fixed);
procedure AddLink3D (var shape: Shape3D; a, b: Integer);
procedure AddFace3D (var shape: Shape3D; a, b, c: Integer);
procedure AddTri3D (var shape: Shape3D; x, y, z, w, h: Fixed);
procedure AddRect3D (var shape: Shape3D; x, y, z, w, h: Fixed);
procedure AddCircle3D (var shape: Shape3D; x, y, z, r: Fixed);
implementation
procedure AddVertice3D (var shape: Shape3D; x, y, z: Fixed);
var
voff: Integer; { vertices offset}
begin
shape.verticesLength := shape.verticesLength + 1;
SetPt3D(shape.vertices[shape.verticesLength], Long2Fix(x), Long2Fix(y), Long2Fix(z));
end;
procedure AddLink3D (var shape: Shape3D; a, b: Integer);
begin
shape.length := shape.length + 1;
SetLk3D(shape.edges[shape.length], @shape.vertices[a], @shape.vertices[b]);
end;
procedure AddFace3D (var shape: Shape3D; a, b, c: Integer);
begin
shape.facesLength := shape.facesLength + 1;
SetFc3D(shape.faces[shape.facesLength], @shape.vertices[a], @shape.vertices[b], @shape.vertices[c]);
end;
procedure AddTri3D (var shape: Shape3D; x, y, z, w, h: Fixed);
var
voff, eoff, foff: Integer; { vertices offset}

50
units/Graf3DScene/Graf3DScene.pas
View File

@ -4,6 +4,11 @@ interface
uses
FixMath, Graf3D;
const
LIMIT_VERTICES = 32;
LIMIT_EDGES = 32;
LIMIT_FACES = 8;
type
Point3DPtr = ^Point3D;
@ -21,16 +26,16 @@ interface
Shape3D = record
origin: Point3D;
length, verticesLength, facesLength: Integer;
vertices: array[1..64] of Point3D;
edges: array[1..64] of Link3D;
faces: array[1..16] of Face3D;
vertices: array[1..LIMIT_VERTICES] of Point3D;
edges: array[1..LIMIT_EDGES] of Link3D;
faces: array[1..LIMIT_FACES] of Face3D;
end;
Shape3DPtr = ^Shape3D;
Scene3D = record
length: Integer;
shapes: array[1..10] of Shape3DPtr;
shapes: array[1..20] of Shape3DPtr;
end;
Scene3DPtr = ^Scene3D;
@ -63,9 +68,20 @@ interface
procedure DrawLink3D (link: Link3D);
procedure DrawShape3D (shape: Shape3DPtr);
procedure DrawScene3D (scene: Scene3D);
{ basics }
procedure AddVertice3D (var shape: Shape3D; x, y, z: Fixed);
procedure AddLink3D (var shape: Shape3D; a, b: Integer);
procedure AddFace3D (var shape: Shape3D; a, b, c: Integer);
implementation
procedure SceneError (text: string);
begin
ShowText;
Writeln(text);
Halt;
end;
procedure AddShape3D (var scene: scene3D; shape: Shape3DPtr);
begin
scene.length := scene.length + 1;
@ -134,6 +150,32 @@ implementation
scene.length := 0;
end;
procedure AddVertice3D (var shape: Shape3D; x, y, z: Fixed);
var
voff: Integer; { vertices offset}
begin
if shape.verticesLength > LIMIT_VERTICES - 1 then
SceneError('Verticles limit reached');
shape.verticesLength := shape.verticesLength + 1;
SetPt3D(shape.vertices[shape.verticesLength], Long2Fix(x), Long2Fix(y), Long2Fix(z));
end;
procedure AddLink3D (var shape: Shape3D; a, b: Integer);
begin
if shape.length > LIMIT_EDGES - 1 then
SceneError('Edges limit reached');
shape.length := shape.length + 1;
SetLk3D(shape.edges[shape.length], @shape.vertices[a], @shape.vertices[b]);
end;
procedure AddFace3D (var shape: Shape3D; a, b, c: Integer);
begin
if shape.facesLength > LIMIT_FACES - 1 then
SceneError('Edges limit reached');
shape.facesLength := shape.facesLength + 1;
SetFc3D(shape.faces[shape.facesLength], @shape.vertices[a], @shape.vertices[b], @shape.vertices[c]);
end;
procedure DrawLink3D (link: Link3D);
begin
MoveTo3D(link.a^.x, link.a^.y, link.a^.z);

43
units/Graf3DScene/main.pas
View File

@ -4,13 +4,9 @@ program ExampleScene;
FixMath, Graf3D, Graf3DScene, Graf3DPrimitives, Graf3DStructures;
var
wed3, box3, cyl3: Shape3D;
wed2, box2, cyl2: Shape3D;
wed1, box1, cyl1: Shape3D;
rec2, rec1, cir1: Shape3D;
sta1, dwy1, dwy2, dwy3, dww1, prt1: Shape3D;
sta1, dwy1, dwy11, dwy12, dww1, cir1, rec1: Shape3D;
sta2, dwy2, dwy21, dwy22, dww2, cir2, rec2: Shape3D;
begin
@ -18,36 +14,33 @@ begin
SetScene3D(scene);
SetWedge3D(wed1, -100, 0, -100, 100, 100, 100);
SetBox3D(box1, 0, 0, 0, 100, 100, 100);
SetCyl3D(cyl1, 100, 0, -100, 100, 100, 100, 50);
SetStairs3D(sta1, 0, -125, -25, 100, 50, 50);
SetDoorwayWall3D(dww1, 0, 50, -50, 100, 300, 100);
SetStairs3D(sta1, 0, -100, 0, 100, 100, 100);
SetDoorway3D(dwy1, 0, 50, -50, 100, 200, 100);
SetDoorway3D(dwy2, 0, 50, -150, 100, 200, 100);
SetDoorway3D(dwy3, 0, 50, -200, 100, 200, 100);
SetDoorwayWall3D(dww1, 0, 50, -50, 100, 200, 100);
SetParticles3D(prt1, 0, 0, 100, 600, 300, 300);
SetRect3D(rec1, 0, -150, -50, 100, 200);
SetRect3D(rec1, 0, -150, -100, 100, 200);
SetRect3D(rec2, 0, 200, -150, 100, 300);
SetCircle3D(cir1, 0, 75, -50, 30);
SetCircle3D(cir1, 0, 150, -50, 100);
SetDoorway3D(dwy1, 0, 50, -50, 100, 300, 100);
SetDoorway3D(dwy11, 0, 50, -150, 100, 300, 100);
SetDoorway3D(dwy12, 0, 50, -200, 100, 300, 100);
AddShape3D(scene, @rec1);
AddShape3D(scene, @dwy3);
AddShape3D(scene, @dwy2);
TurnXShape3D(@rec1);
TurnXShape3D(@rec2);
AddShape3D(scene, @dwy11);
AddShape3D(scene, @dwy12);
AddShape3D(scene, @dww1);
AddShape3D(scene, @dwy1);
AddShape3D(scene, @cir1);
AddShape3D(scene, @sta1);
AddShape3D(scene, @rec2);
SetCircle3D(cir2, -300, 150, -50, 100);
SetDoorway3D(dwy2, -300, 50, -50, 100, 300, 100);
SetStairs3D(sta2, -300, -125, -25, 100, 50, 50);
AddShape3D(scene, @prt1);
AddShape3D(scene, @dwy2);
AddShape3D(scene, @cir2);
AddShape3D(scene, @sta2);
InitWindow;