[Pixel]<Tioga>TiogaArtwork5.3>TAGraphicsHacksImpl.mesa!2

TAGraphicsHacksImpl.mesa

Rick Beach, July 19, 1983 2:06 pm

Maureen Stone April 19, 1983 11:48 am

Rick Beach, February 9, 1985 10:58:36 pm PST

DIRECTORY

CGArea USING [Empty, Ref, Remove],

CGContext USING [Rep],

CGDevice USING [Ref, Rep],

CGMatrix USING [Make, Ref],

CGSource USING [Ref],

CGStorage USING [qZone],

Graphics,

GraphicsBasic USING [Trap],

JaM USING [State, PushReal, Register],

Real,

TAGraphicsHacks,

TJaMGraphics,

TJaMGraphicsContexts USING [AddContext, EnableContext, DisableContext];

TAGraphicsHacksImpl: CEDAR PROGRAM

IMPORTS CGArea, CGMatrix, CGStorage, Graphics, JaM, TJaMGraphics, TJaMGraphicsContexts

EXPORTS GraphicsBasic, TAGraphicsHacks = {

convince the world that I know what is in these opaque types

DeviceObject: PUBLIC TYPE = CGDevice.Rep;

ContextObject: PUBLIC TYPE = CGContext.Rep;

a global bounds box

boundsBox: Graphics.Box;

nullBoundsBox: Graphics.Box = [Real.LargestNumber, Real.LargestNumber, -Real.LargestNumber, -Real.LargestNumber];

Data: TYPE = REF DataRep;

DataRep: TYPE = RECORD [

matrix: CGMatrix.Ref ← NIL -- base transformation matrix

];

dataZone: ZONE = CGStorage.qZone;

repZone: ZONE = CGStorage.qZone;

state: JaM.State;

NewBoxerDevice: PROCEDURE RETURNS[CGDevice.Ref] = {

data: Data ← dataZone.NEW[DataRep];

data.matrix ← CGMatrix.Make[[1,0,0,1,0,0]];

boundsBox ← nullBoundsBox;

RETURN[repZone.NEW[CGDevice.Rep ← [

GetMatrix: GetMatrix, GetBounds: GetBounds, Show: BoxerShow, GetRaster: BoxerGetRaster, data: data]]];

};

InitBoxerDevice: PROCEDURE RETURNS [Graphics.Context] = {

RETURN [Graphics.NewContext[NewBoxerDevice[]]];

};

GetMatrix: SAFE PROC[self: CGDevice.Ref] RETURNS[CGMatrix.Ref] = TRUSTED {

data: Data ← NARROW[self.data];

RETURN[data.matrix];

};

GetBounds: SAFE PROC[self: CGDevice.Ref] RETURNS[Graphics.Box] = TRUSTED {

RETURN[[0.1, 0.1, 4000-.1, 4000-.1]]};

BoxerShow: SAFE PROC[self: CGDevice.Ref, area: CGArea.Ref, src: CGSource.Ref, map: CGMatrix.Ref] = TRUSTED {

extract the bounding box from the area and update the context bbox

UNTIL CGArea.Empty[area] DO

trap: GraphicsBasic.Trap ← CGArea.Remove[area];

{ OPEN boundsBox, trap;

xmin ← MIN[xmin, xbotL];

xmin ← MIN[xmin, xtopL];

ymin ← MIN[ymin, ybot];

xmax ← MAX[xmax, xbotR];

xmax ← MAX[xmax, xtopR];

ymax ← MAX[ymax, ytop]};

ENDLOOP;

};

BoxerGetRaster: SAFE PROC[self: CGDevice.Ref] RETURNS[LONG POINTER,CARDINAL] = TRUSTED {

no raster for this device (sic!)

RETURN[NIL,0];

};

JBeginBox: PROCEDURE[state: JaM.State] = {

JaM callable procedure to begin bounding boxing

BeginBox[];

};

JEndBox: PROCEDURE[state: JaM.State] = {

box: Graphics.Box;

box ← EndBox[];

JaM.PushReal[state, box.xmin];

JaM.PushReal[state, box.ymin];

JaM.PushReal[state, box.xmax];

JaM.PushReal[state, box.ymax];

};

BeginBox: PUBLIC PROCEDURE = {

init: PROC[dc: Graphics.Context] = {};

reset the boundsBox and and turn on the Boxer

TJaMGraphicsContexts.EnableContext[state, $Boxer];

TJaMGraphics.Painter[init, state];

};

EndBox: PUBLIC PROCEDURE RETURNS[Graphics.Box] = {

Disable the context and return the bounding box on the JaM stack

TJaMGraphicsContexts.DisableContext[state, $Boxer];

IF boundsBox=nullBoundsBox THEN RETURN[[0,0,0,0]]

ELSE RETURN[boundsBox] };

RegisterGraphicsHacks: PUBLIC PROCEDURE [initState: JaM.State] ~ {

state ← initState;

JaM.Register[state, ".beginbox", JBeginBox];

JaM.Register[state, ".endbox", JEndBox];

TJaMGraphicsContexts.AddContext[state, InitBoxerDevice, $Boxer, FALSE];

};