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

Removed native window

Browse Source
This commit is contained in:
neauoire 2020-05-11 20:04:00 +09:00
parent e60833f1ad
commit 0418718ec5
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
examples/3d.scene.pas
View File

@ -4,8 +4,7 @@ program ExampleScene;
FixMath, Graf3D, Graf3DPrimitives;
var
w: WindowPtr; {A window to draw in}
r: Rect; {A window Size}
drawingRect: Rect; {A window Size}
viewWidth, viewHeight, padLeft, padTop: Integer;
myPort: GrafPort;
myPort3D: Port3D;
@ -18,14 +17,6 @@ program ExampleScene;
scene: Scene3D;
box1, box2, pyr1, pyr2, wed1, wed2: Shape3D;
{>>}
procedure WindowInit;
begin
SetRect(r, padLeft, padTop, viewWidth + padLeft, viewHeight + padTop);
w := NewWindow(nil, r, 'Graf3DPrimitives', true, zoomDocProc, WindowPtr(-1), false, 0);
SetPort(w);
end;
{>>}
procedure ClearScreen;
var
@ -88,12 +79,14 @@ program ExampleScene;
begin
viewWidth := 300;
viewHeight := 250;
padLeft := 100;
padTop := 100;
viewWidth := 500;
viewHeight := 342;
padLeft := 60;
padTop := 60;
WindowInit;
SetRect(drawingRect, padLeft, padTop, padLeft + viewWidth, padTop + viewHeight);
SetDrawingRect(drawingRect);
ShowDrawing;
InitGrf3D(nil);
Open3DPort(@myPort3D);
ViewPort(thePort^.portRect);