DIRECTORY Graphics, GraphicsColor, Real, Rope, TSFont, TSTypes, TSOutput, TSOutputDisplay, VFonts, ViewerClasses, ViewerOps; TSOutputDisplayImpl: CEDAR PROGRAM IMPORTS Graphics, GraphicsColor, Real, TSFont, TSTypes, VFonts, ViewerOps EXPORTS TSOutput = BEGIN OPEN TSOutputDisplay; CreateViewer: PUBLIC PROCEDURE [viewerName: Rope.ROPE _ NIL] RETURNS [handle: TSOutput.Handle] = { v: ViewerClasses.Viewer _ ViewerOps.FindViewer[viewerName]; IF v # NIL THEN ViewerOps.DestroyViewer[v]; v _ ViewerOps.CreateViewer[ flavor: $TSDisplay, info: [ name: viewerName, iconic: FALSE, column: left, scrollable: TRUE, data: handle], paint: TRUE]; handle _NARROW [ViewerOps.FetchProp[v, $TSDisplayHandle]]; }; Char: TSOutput.CharProc = { -- [self: Handle, x, y: TSTypes.Dimn, char: CHAR, font: TSFont.Ref] displayState: DisplayState _ NARROW[self.outputState]; CharPaint: DisplayProc = { Graphics.SetColor[dc, displayState.color]; Graphics.SetCP[dc, x.DimnInt[TSTypes.pt], y.DimnInt[TSTypes.pt]]; Graphics.DrawChar[dc, char, displayState.graphicsFont]; }; SetFont[displayState, font]; Painter[CharPaint, displayState]; }; SetFont: PROCEDURE [displayState: DisplayState, font: TSFont.Ref] = { IF displayState.currentFont # font AND font # NIL THEN { family: Rope.ROPE; micaSize: INTEGER; pointsPerMica: REAL = 72.0/2540.0; face: [0..255]; rotation: INTEGER; [family, micaSize, face, rotation] _ TSFont.ParcFontSpecification[font]; displayState.graphicsFont _ VFonts.GraphicsFont[ VFonts.EstablishFont[ family: family, size: Real.RoundI[micaSize * pointsPerMica], bold: (face/2) MOD 2 = 1, italic: face MOD 2 = 1, defaultOnFailure: TRUE ] ]; }; displayState.currentFont _ font; }; Rule: TSOutput.RuleProc = { -- [self: Handle, leftX, bottomY, width, height: TSTypes.Dimn] displayState: DisplayState _ NARROW[self.outputState]; RulePaint: DisplayProc = { Graphics.SetColor[dc, displayState.color]; Graphics.DrawBox[dc, [leftX.DimnInt[TSTypes.pt], bottomY.DimnInt[TSTypes.pt], leftX.AddDimn[width].DimnInt[TSTypes.pt], bottomY.AddDimn[height].DimnInt[TSTypes.pt]]]; }; Painter[RulePaint, displayState]; }; Color: TSOutput.ColorProc = { -- [self: Handle, hue, saturation, brightness: REAL] displayState: DisplayState _ NARROW[self.outputState]; displayState.color _ GraphicsColor.HSVToColor[hue, saturation, brightness]; }; NewPage: TSOutput.NewPageProc = { -- [self: Handle] displayState: DisplayState _ NARROW[self.outputState]; ViewerOps.PaintViewer[viewer: displayState.viewer, hint: all, whatChanged: NIL, clearClient: TRUE]; }; PageSize: TSOutput.PageSizeProc = { -- [self: Handle, height, width: TSTypes.Dimn] displayState: DisplayState _ NARROW[self.outputState]; displayState.pageHeight _ height.texPts; }; Finish: TSOutput.FinishProc = { -- [self: Handle] }; TSDisplayInitViewer: ViewerClasses.InitProc = { displayState: DisplayState _ NEW[DisplayStateRec]; handle: TSOutput.Handle _ NEW[TSOutput.OutputRec]; handle.charProc _ Char; handle.ruleProc _ Rule; handle.colorProc _ Color; handle.newPageProc _ NewPage; handle.pageSizeProc _ PageSize; handle.finishProc _ Finish; handle.outputState _ displayState; displayState.viewer _ self; ViewerOps.AddProp[self, $TSDisplayHandle, handle]; }; TSDisplayPaint: ViewerClasses.PaintProc = { -- [self: ViewerClasses.Viewer, context: Graphics.Context, whatChanged: REF ANY, clear: BOOL] displayState: DisplayState; IF whatChanged # NIL AND ISTYPE[whatChanged, DisplayState] THEN { displayState _ NARROW[whatChanged, DisplayState]; Graphics.Translate[context, 0.0, self.ch - displayState.pageHeight]; displayState.callBackProc[context]; }; }; Painter: PROCEDURE [proc: DisplayProc, displayState: DisplayState] = { CallBack: DisplayProc = { proc[dc]; }; TRUSTED { displayState.callBackProc _ CallBack; ViewerOps.PaintViewer[viewer: displayState.viewer, hint: client, whatChanged: displayState, clearClient: FALSE]; }; }; tsDisplayClass: ViewerClasses.ViewerClass ~ NEW[ViewerClasses.ViewerClassRec _ ViewerOps.FetchViewerClass[$Container]^]; containerInit: ViewerClasses.InitProc ~ tsDisplayClass.init; containerPaint: ViewerClasses.PaintProc ~ tsDisplayClass.paint; tsDisplayClass.coordSys _ bottom; tsDisplayClass.init _ TSDisplayInitViewer; tsDisplayClass.paint _ TSDisplayPaint; ViewerOps.RegisterViewerClass[$TSDisplay, tsDisplayClass]; END. <TSOutputDisplayImpl.mesa Implements TSOutput interface for the Tioga typesetter to display in a Viewer/Imager context Created by: Beach, December 7, 1983 5:33 pm displayState: DisplayState _ NARROW[self.outputState]; Edited on October 6, 1983 2:39 pm, by Beach Modified TSOutputPressImpl.Mesa to get this interface, DIRECTORY, DisplayProc, Char, paint (local of Char), TSDiplayPaint, tSDisplayClass, containerPaint, tSDisplayClass, ViewerOps, Rule, RulePaint (local of Rule), Color, NewPage, PageSize, Finish, TSDiplayPaint, Painter, CallBack (local of Painter) ÊR– "cedar" style˜JšÏc™Jš\™\J™+šÏk ˜ J˜ J˜J˜J˜J˜J˜J˜ J˜J˜J˜J˜ J˜—šœžœž˜"JšžœB˜IJšžœ˜—Jšž˜Jšžœ˜J˜šÏnœžœž œžœ˜bJšœ;˜;Jšžœžœžœ˜+šœ˜˜˜J˜Jšœžœ˜J˜ Jšœž˜Jšœ˜—Jšœžœ˜ ——Jšœžœ,˜:Jšœ˜J˜—šŸœC˜_Jšœžœ˜6šŸ œ˜J•StartOfExpansionR[self: Graphics.Context, char: CHARACTER, font: GraphicsBasic.FontRef _ NIL]˜*J˜AJ˜7J˜—Jšœ˜Jšœ!˜!J˜J˜—šŸœž œ3˜Ešžœ!žœžœ˜8Jšœ žœ˜Jšœ žœ˜Jšœžœ˜"Jšœ˜Jšœ žœ˜J˜Hšœ0˜0šœ˜Jšœ˜Jšœ,˜,Jšœžœ˜Jšœ žœ˜Jšœžœ˜—Jšœ˜—Jšœ˜—Jšœ ˜ J˜J˜—šŸœ<˜ZJšœžœ˜6šŸ œ˜J˜*J˜¦J˜—Jšœ!˜!J˜—J˜šŸœ4˜RJšœžœ˜6J˜KJ˜J˜—šŸœ˜3Jšœžœ˜6JšœKžœžœ˜cJ˜J˜—šŸœ.˜RJšœžœ˜6J˜(J˜J˜—šŸœ˜1Jšœžœ™6J˜J˜—šŸœ˜/Jšœžœ˜2Jšœžœ˜2J˜J˜J˜J˜J˜J˜J˜"J˜Jšœ2˜2J˜J˜—šŸœ_˜‹Jšœ˜š žœžœžœžœžœ˜AJšœžœ˜1J˜EJ˜#Jšœ˜—J˜J˜—šŸœž œ3žœ˜GJšŸœ˜&šœ ˜ Jšœ%˜%Jšœižœ˜pJ˜—J˜J˜—˜+JšžœI˜L—J˜