mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-04 16:29:31 +00:00
Removed native window
This commit is contained in:
parent
e60833f1ad
commit
0418718ec5
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue
Block a user