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

Fixed issue with circle

Browse Source
This commit is contained in:
neauoire 2020-05-15 12:11:47 +09:00
parent 4d988a292c
commit 0d3ba24107
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
units/Graf3DScene/Graf3DPrimitives.pas
View File

@ -132,8 +132,8 @@ implementation
SetPt3D(shape.origin, Long2Fix(x), Long2Fix(y), Long2Fix(z));
AddCircle3D(shape, x, y, z + d div 2, r);
AddCircle3D(shape, x, y, z - d div 2, r);
for i := 1 to 16 do
AddLink3D(shape, i, i + 16);
for i := 1 to 12 do
AddLink3D(shape, i, i + 12);
end;
end.