DIRECTORYAtom USING [GetPName],CGContext USING [Ref],Graphics USING [Color, Context, SetColor],IPBasic USING [Any, Identifier, Integer, Operator, Vector, VectorShape],IPConvert USING [AnyToIdentifier, AnyToInteger, AnyToOperator, AnyToVector],IPErrors USING [AppearanceWarning, MasterWarning],IPExec USING [Do, FGet],IPFont USING [FontKey, Modify, New],IPImager USING [CachedFont, CachedFontRep, Imager, Vars],IPImagerBasic USING [ConstantColor, Pair, Transformation],IPImagerOps USING [ConcatT, Restore, Save, Trans],IPState USING [State, StateRep],IPTransform USING [Concat, DRound, InverseTransform, Transform, TransformVec],IPVector USING [Get, Shape],Rope USING [ActionType, Concat, ROPE, Size],RopeReader USING [FreeRopeReader, Get, GetRopeReader, Ref, SetPosition],Scaled USING [Float, FromReal, Value, zero],UnifiedFonts USING [Create, DrawCharSeq, FixedUnit, FONT, GetWidthArray, Positioning, Transformation, WidthArray];IPShowImpl: CEDAR PROGRAMIMPORTS Atom, Graphics, IPConvert, IPErrors, IPExec, IPFont, IPImagerOps, IPTransform, IPVector, Rope, RopeReader, Scaled, UnifiedFontsEXPORTS IPImagerOps, IPBasic= BEGIN OPEN IPImagerBasic, IPBasic;FONT: TYPE = UnifiedFonts.FONT;ROPE: TYPE = Rope.ROPE;State: TYPE = IPState.State;StateRep: PUBLIC TYPE = IPState.StateRep; -- export to IPBasicImager: TYPE = IPImager.Imager;Vars: TYPE = IPImager.Vars;FontKey: TYPE = IPFont.FontKey;VFont: TYPE = REF VFontRep;VFontRep: TYPE = RECORD[vector: Vector, m: Transformation];SetColor: PROC[imager: Imager] = INLINE {icolor: ConstantColor = NARROW[imager.vars.color];Graphics.SetColor[imager.context, [r: icolor.r/256, g: icolor.g/256, b: icolor.b/256]];};ufDeviceType: ATOM _ $Interpress;ufPositioning: UnifiedFonts.Positioning _ rounded;GetFont: PROC[imager: Imager] RETURNS[FONT] = INLINE { RETURN[IF imager.font=NIL THEN (imager.font _ LookupFont[imager.vars]) ELSE imager.font] };LookupFont: PROC[vars: Vars] RETURNS[FONT] = {font: FONT _ NIL;WITH vars.showVec SELECT FROMkey: FontKey => {FOR f: IPImager.CachedFont _ vars.fontList, f.link UNTIL f=NIL DOIF f.key=key THEN { font _ f.font; EXIT };ENDLOOP;IF font=NIL THEN {font _ CreateFont[key, vars.T];vars.fontList _ NEW[IPImager.CachedFontRep _ [link: vars.fontList, key: key, font: font]];};};ENDCASE;RETURN[font];};CreateFont: PROC[key: FontKey, T: Transformation] RETURNS[FONT] = {fontTransformation: UnifiedFonts.Transformation;IF T.d=0 THEN { -- assume uniform scalingfontTransformation _ [scale: T.a*key.m.a, rotation: 0];}ELSE { -- assume 90 degree rotationfontTransformation _ [scale: ABS[T.d]*key.m.a, rotation: 90];};RETURN[UnifiedFonts.Create[key.name, fontTransformation, ufDeviceType]];};Show: PUBLIC PROC[self: State, v: Vector] = {imager: Imager = self.imager;vars: Vars = imager.vars;IF vars.np.noImage=0 THEN {font: FONT = GetFont[imager];SetColor[imager];IF font#NIL THEN {widths: UnifiedFonts.WidthArray = font.GetWidthArray[];spaceX: Scaled.Value _ Scaled.FromReal[Scaled.Float[widths[' ]]*vars.np.amplifySpace];context: Graphics.Context = imager.context;ref: CGContext.Ref = NARROW[context.data];ref.cp.x _ vars.p.cpx;ref.cp.y _ vars.p.cpy;WITH v SELECT FROMrope: ROPE => TRUSTED {count: INT _ rope.Size[];Char: TYPE = MACHINE DEPENDENT RECORD[c(0:0..15): CHAR, width(1:0..31): Scaled.Value];seqSize: NAT = 50;seq: ARRAY [0..seqSize) OF Char;reader: RopeReader.Ref = RopeReader.GetRopeReader[];reader.SetPosition[rope, 0];WHILE count>0 DOp: POINTER TO Char _ @seq[0];zero: UnifiedFonts.FixedUnit _ Scaled.zero;n: NAT _ seqSize;IF n>count THEN n _ count;THROUGH [0..n) DOp.c _ reader.Get[];p.width _ IF p.c=' THEN spaceX ELSE widths[p.c];p _ p+SIZE[Char];ENDLOOP;font.DrawCharSeq[context: context, count: n,charPtr: @seq[0].c, charIncrement: SIZE[Char],deltaXptr: @seq[0].width, deltaXincrement: SIZE[Char],deltaYptr: @zero, deltaYincrement: 0,positioning: ufPositioning];count _ count-n;ENDLOOP;RopeReader.FreeRopeReader[reader];};ENDCASE => {SIGNAL IPErrors.AppearanceWarning[Unimplemented];};vars.p.cpx _ ref.cp.x;vars.p.cpy _ ref.cp.y;}ELSE {shape: VectorShape = IPVector.Shape[v];showVec: Vector _ vars.showVec;m: Transformation _ NIL;WITH showVec SELECT FROMvfont: VFont => { showVec _ vfont.vector; m _ vfont.m };ENDCASE;FOR i: Integer IN[shape.l..shape.l+shape.n) DOindex: Integer; op: Operator;IPImagerOps.Save[self, FALSE];IPImagerOps.Trans[self];index _ IPConvert.AnyToInteger[IPVector.Get[v, i]];op _ IPConvert.AnyToOperator[IPVector.Get[showVec, index]];IF m#NIL THEN IPImagerOps.ConcatT[self, m];IPExec.Do[self, op];IPImagerOps.Restore[self];ENDLOOP;};};};ShowAndXRel: PUBLIC PROC[self: State, v: Vector] = {SIGNAL IPErrors.MasterWarning[Unimplemented];};SetXY: PUBLIC PROC[self: State, p: Pair] = {imager: Imager = self.imager;vars: Vars = imager.vars;dp: Pair = IPTransform.Transform[vars.T, p];vars.p.cpx _ dp.x;vars.p.cpy _ dp.y;};SetXYRel: PUBLIC PROC[self: State, v: Pair] = {imager: Imager = self.imager;vars: Vars = imager.vars;dv: Pair = IPTransform.TransformVec[vars.T, v];vars.p.cpx _ vars.p.cpx + dv.x;vars.p.cpy _ vars.p.cpy + dv.y;};SetXRel: PUBLIC PROC[self: State, x: REAL] = {SetXYRel[self, [x, 0]];};SetYRel: PUBLIC PROC[self: State, y: REAL] = {SetXYRel[self, [0, y]];};GetCP: PUBLIC PROC[self: State, rounded: BOOL _ FALSE] RETURNS[Pair] = {imager: Imager = self.imager;vars: Vars = imager.vars;dp: Pair _ [vars.p.cpx, vars.p.cpy];IF rounded THEN dp _ IPTransform.DRound[dp];RETURN[IPTransform.InverseTransform[vars.T, dp]];};HierarchicalName: PROC[v: Vector] RETURNS[ROPE] = {shape: VectorShape = IPVector.Shape[v];rope: ROPE _ NIL;FOR i: Integer IN[shape.l..shape.l+shape.n) DOx: Any = IPVector.Get[v, i];id: ROPE = Atom.GetPName[IPConvert.AnyToIdentifier[x]];IF rope=NIL THEN rope _ idELSE rope _ rope.Concat["/"].Concat[id];ENDLOOP;RETURN[rope];};FontKeyToVector: PROC[f: FontKey] RETURNS[Vector] = INLINE { RETURN[f] };VFontToVector: PROC[f: VFont] RETURNS[Vector] = INLINE { RETURN[f] };FindFont: PUBLIC PROC[self: State, v: Vector] RETURNS[Vector] = {name: ROPE = HierarchicalName[v];RETURN[FontKeyToVector[IPFont.New[name]]];};ModifyFont: PUBLIC PROC[v: Vector, m: Transformation] RETURNS[Vector] = {WITH v SELECT FROMold: FontKey => {RETURN[FontKeyToVector[IPFont.Modify[old, m]]];};old: VFont => {new: VFont = NEW[VFontRep _ [vector: old.vector, m: IPTransform.Concat[m, old.m]]];RETURN[VFontToVector[new]];};ENDCASE => {new: VFont = NEW[VFontRep _ [vector: v, m: m]];RETURN[VFontToVector[new]];};};SetFont: PUBLIC PROC[self: State, n: Integer] = {imager: Imager = self.imager;vars: Vars = imager.vars;v: Vector = IPConvert.AnyToVector[IPExec.FGet[self, n]];vars.showVec _ v; imager.font _ NIL;};END.    L  IPShowImpl.mesaLast edited by:Doug Wyatt, July 8, 1983 10:12 am Э╩1  Ш headЪЬЩЪЬЩJЪЬ!Щ!ЧJШ Ъ╧k	Ш	JЪЬЭЬШJЪЬ
ЭЬШJЪЬ	ЭЬШ*JЪЬЭЬ;ШHJЪЬ
ЭЬ=ШLJЪЬ	ЭЬ$Ш2JЪЬЭЬШJЪЬЭЬШ$JЪЬ	ЭЬ+Ш9JЪЬЭЬ'Ш:JЪЬЭЬ!Ш2JЪЬЭЬШ JЪЬЭЬ=ШNJЪЬ	ЭЬШJЪЬЭЬЭЬШ,JЪЬЭЬ8ШHJЪЬЭЬ Ш,JЪЬЭЬ"ЭЬ:ШrЧJШ ЧЪЬЭЬЭШJЪЭЬАШЗJЪЭЬШJЪЬЭЬЭЬШ$JШ JЪЭЬЭЬЭЬШJЪЭЬЭЬЭЬШJШ JЪЬЭЬШJЪЬ
ЭЬЭЬ╧cШ>JШ JЪЬЭЬШJЪЬЭЬШJШ JЪЬ	ЭЬШJШ JЪЬЭЬЭЬ
ШJЪЬ
ЭЬЭЬ$Ш;JШ Ъ╧nЬЭЬЭЬШ)JЪЬЭЬШ2JШWJШЧJШ JЪЬЭЬШ!JЪЬ2Ш2JШ ЪЯЬЭЬЭЬЭЬЭЬЭЬШ>JЪЭЬЭЬЭЬ)ЭЬШTЧJШ ЪЯ
ЬЭЬЭЬЭЬШ.JЪЬЭЬЭЬШЪЭЬЭЬЭШШЪЭЬ0ЭЬЭЬЭШAJЪЭЬЭЬЭЬШ*JЪЭЬШЧЪЭЬЭЬЭЬШJЪЬЭЬШЪЬЭЬШ.JЪЬ,Ш,ЧJШЧJШЧJЪЭЬШЧJЪЭЬШJШЧJШ Ъ
Я
ЬЭЬЭЬЭЬЭЬШCJЪЬ0Ш0ЪЭЬЭЬЭЬЮШ)JЪЬЭЬШ7JШЧЪЭЬЮШ#JЪЬЭЬЭЬШ=JШЧJЪЭЬBШHJШЧJШ ЪЯЬЭЬЭЬШ-JШJШЪЭЬЭЬШJЪЬЭЬШJШЪЭЬЭЬЭЬШJШ7JЪЬVШVJШ+JЪЬЭЬШ*JШJШЪЭЬЭЬЭШЪЬЭЬЭЬШJЪЬЭЬШЪ	ЬЭЬЭЬЭ	ЬЭЬШ&JЪЬЭЬ Ш0ЧJЪЬ	ЭЬШJЪЬЭЬЭЬШ JШ4JШЪЭЬ	ЭШJЪЬЭЬЭЬШJЪЬ+Ш+JЪЬЭЬШJЪЭЬ	ЭЬШЪЭЬЭШJШJЪЬ
ЭЬЭЬЭЬШ0JЪЬЭЬШJЪЭЬШЧЪЬ,Ш,JЪЬ#ЭЬШ.JЪЬ+ЭЬШ6JЪЬ%Ш%JЪЬШЧJШJЪЭЬШЧJШ"JШЧЪЭЬШJЪЭЬ+Ш1JШЧЧJШJШJШЧЪЭЬШJШ'JШJЪЬЭЬШЪЭЬ	ЭЬЭШJШ8JЪЭЬШЧЪЭЬЭЬЭШ.JШJЪЬЭЬШJШJШ3JШ;JЪЭЬЭЬЭЬШ+JШJЪЬШJЪЭЬШЧJШЧJШЧJШЧJШ ЪЯЬЭЬЭЬШ4JЪЭЬ'Ш-JШЧJЩ ЪЯЬЭЬЭЬШ,JШJШJЪЬ&ЭЬШ,JШJШJШЧJШ ЪЯЬЭЬЭЬШ/JШJШJЪЬ)ЭЬШ/JШJШJШЧJШ ЪЯЬЭЬЭЬЭЬШ.JШJШЧJШ ЪЯЬЭЬЭЬЭЬШ.JШJШЧJШ ЪЯЬЭЬЭЬЭЬЭЬЭЬ
ШHJШJШJШ$JЪЭЬ	ЭЬШ,JЪЭЬ#ЭЬШ1JШЧJЩ ЪЯЬЭЬЭЬЭЬШ3JШ'JЪЬЭЬЭЬШЪЭЬЭЬЭШ.JШJЪЬЭЬ/Ш7JЪЭЬЭЬЭЬ
ШJЪЭЬ$Ш(JЪЭЬШЧJЪЭЬШJШЧJШ JЪ
ЯЬЭЬЭЬЭЬЭЬШIJЪ
ЯЬЭЬЭЬЭЬЭЬШEJШ ЪЯЬЭЬЭЬЭЬШAJЪЬЭЬШ!JЪЭЬ$Ш*JШЧJШ ЪЯ
ЬЭЬЭЬЭЬШIЪЭЬЭЬЭШЪЬШJЪЭЬ)Ш/JШЧЪЬШJЪЬЭЬCШSJЪЭЬШJШЧЪЭЬШJЪЬЭЬШ/JЪЭЬШJЪЬШЧЧJШЧJШ ЪЯЬЭЬЭЬШ1JШJШJШ8JЪЬ ЭЬШ$JШЧJЩ JЪЭЬШЧЧ ЕЧ    ╝  #9  