DIRECTORY CGCubic USING [Bezier, Coeffs, CoeffsToBezier], Graphics USING [Box, Color, Context, CurveTo, DrawArea, DrawBox, DrawChar, DrawStroke, FontRef, LastPoint, LineTo, Mark, MoveTo, NewPath, Path, Restore, Rotate, Save, Scale, SetColor, SetCP, SetFat], GraphicsBasic USING [Vec], GraphicsColor USING [HSVToColor], PressImage USING [DrawPressImage, MakePressImage, PressImage, PressImageError], PressReader, PressFontReader USING [CharInfo, Close, EnumerateDirectory, Font, FromFile, GetCharInfo, Handle, VisitFontProc], Real USING [Fix, RoundC], Rope USING [Equal, Fetch, Length, ROPE], ShowPress, VFonts USING [EstablishFont, Font, GraphicsFont]; ShowPressImpl: PROGRAM IMPORTS CGCubic, Graphics, GraphicsColor, PressImage, PressReader, PressFontReader, Real, Rope, VFonts EXPORTS ShowPress SHARES Graphics = BEGIN OPEN ShowPress; micasPerPoint: REAL = 2540.0/72.0; pointsPerMica: REAL = 72.0/2540.0; ShowPressError: PUBLIC ERROR[code: Code] = CODE; Open: PUBLIC PROCEDURE [fileName: Rope.ROPE] RETURNS [show: Handle _ NIL] = { pressFile: PressReader.Handle; pressFontFile: PressFontReader.Handle _ PressFontReader.FromFile["/Indigo/Fonts/Fonts.Widths"]; FontInitProc: PressReader.FontEntryProc = { -- build a list of needed fonts sizeInPoints: CARDINAL; sizeInMicas: REAL; font: VFonts.Font; pressFont: PressFontReader.Font; screenFontFamily: Rope.ROPE; VisitFontProc: PressFontReader.VisitFontProc = { IF Rope.Equal[fontRec.family, fontDirectoryEntry.family, FALSE] AND (fontRec.face = fontDirectoryEntry.face.encoding) AND ((fontRec.size = 0) OR (fontRec.size = REAL[sizeInMicas]*(1.0E-5))) AND ((fontRec.rotation = fontDirectoryEntry.rotation) OR ((fontRec.rotation = 0) AND (fontDirectoryEntry.rotation MOD 5400 = 0))) THEN RETURN[quit: TRUE]; }; IF fontDirectoryEntry.size > 0 THEN { sizeInPoints _ fontDirectoryEntry.size; sizeInMicas _ (REAL[fontDirectoryEntry.size]*2540.0)/72.0; } ELSE { sizeInPoints _ Real.RoundC[(REAL[-fontDirectoryEntry.size]*72.0)/2540.0]; sizeInMicas _ REAL[-fontDirectoryEntry.size]; }; IF Rope.Equal[fontDirectoryEntry.family, "LAUREL", FALSE] THEN { fontDirectoryEntry.family _ "TIMESROMAN"; screenFontFamily _ "TIOGA"; } ELSE screenFontFamily _ fontDirectoryEntry.family; font _ VFonts.EstablishFont[ family: screenFontFamily, size: sizeInPoints, bold: (fontDirectoryEntry.face.weight = bold), italic: (fontDirectoryEntry.face.slope = italic), defaultOnFailure: TRUE ]; pressFont _ show.pressFontFile.EnumerateDirectory[VisitFontProc]; IF pressFont = NIL THEN ERROR ShowPressError[CantFindFonts]; show.fontTable[fontDirectoryEntry.fontSet*16+fontDirectoryEntry.font] _ [ screenFont: VFonts.GraphicsFont[font], pressFont: pressFont, size: sizeInMicas, rotation: REAL[fontDirectoryEntry.rotation]/60.0 ]; }; -- FontInitProc pressFile _ PressReader.OpenPressFile[fileName ! PressReader.PressReaderError => { SELECT errorCode FROM FileNotAvailableForRead, FileNotAPressFile => ERROR ShowPressError[CantReadFile]; ENDCASE => REJECT; } ]; show _ NEW[PressFileRec _ [pressFile: pressFile, pressFontFile: pressFontFile, lastPart: pressFile.GetDocumentDirectory[].nParts]]; show.pressFile.GetFonts[FontInitProc]; }; -- Open DrawPressPage: PUBLIC PROCEDURE [context: Graphics.Context, show: Handle, pageNumber: INT, tinyPaint: BOOL _ FALSE] = { PageProc: PressReader.PageProc = { EntityProc: PressReader.EntityProc = { -- Xe, Ye, fontSet x: INT _ entityTrailer.Xe; y: INT _ entityTrailer.Ye; currentFont: FontRec; -- will be established by setFont currentSpaceX, currentSpaceY: INT; -- will be established by setFont hue: REAL _ 0.0; saturation: REAL _ 1.0; brightness: REAL _ 0.0; skipAlternative, inAlternative: BOOL _ FALSE; showCharactersProc: PressReader.ShowCharactersProc = { c: CHAR; i: INT; charInfo: PressFontReader.CharInfo; dx, dy: INT; IF skipAlternative THEN RETURN; IF tinyPaint THEN { xw, yw: INT _ 0; path: Graphics.Path; FOR i IN [0..text.Length[]) DO c _ text.Fetch[i]; IF c = ' THEN { xw _ xw+currentSpaceX; yw _ yw+currentSpaceY; } ELSE { charInfo _ PressFontReader.GetCharInfo[currentFont.pressFont, c]; xw _ xw+Real.Fix[charInfo.widthX*currentFont.size]; yw _ yw+Real.Fix[charInfo.widthY*currentFont.size]; }; ENDLOOP; Graphics.MoveTo[path, x, y]; SELECT currentFont.rotation FROM 0.0 => { x _ x+xw; y _ y+yw }; 90.0 => { x _ x-yw; y _ y+xw }; 180.0 => { x _ x-xw; y _ y-yw }; 270.0 => { x _ x+yw; y _ y-xw }; ENDCASE => ERROR; Graphics.LineTo[path, x, y]; Graphics.DrawStroke[context, path]; } ELSE { FOR i IN [0..text.Length[]) DO c _ text.Fetch[i]; IF c = ' THEN { dx _ currentSpaceX; dy _ currentSpaceY; } ELSE { mark: Graphics.Mark _ Graphics.Save[context]; charInfo _ PressFontReader.GetCharInfo[currentFont.pressFont, c]; Graphics.Scale[context, micasPerPoint, micasPerPoint]; Graphics.Rotate[context, currentFont.rotation]; Graphics.DrawChar[context, c, currentFont.screenFont]; Graphics.Restore[context, mark]; dx _ Real.Fix[charInfo.widthX*currentFont.size]; dy _ Real.Fix[charInfo.widthY*currentFont.size]; }; SELECT currentFont.rotation FROM 0.0 => { x _ x+dx; y _ y+dy }; 90.0 => { x _ x-dy; y _ y+dx }; 180.0 => { x _ x-dx; y _ y-dy }; 270.0 => { x _ x+dy; y _ y-dx }; ENDCASE => ERROR; Graphics.SetCP[context, x, y]; ENDLOOP; }; }; -- showCharactersProc fontProc: PressReader.FontProc = { IF skipAlternative THEN RETURN; currentFont _ show.fontTable[entityTrailer.fontSet*16+font]; IF currentFont.pressFont = NIL THEN RETURN; spacingProc[resetSpace, 0]; }; positionProc: PressReader.PositionProc = { IF skipAlternative THEN RETURN; IF opCode = setX THEN x _ entityTrailer.Xe + value ELSE y _ entityTrailer.Ye + value; Graphics.SetCP[context, x, y]; }; spacingProc: PressReader.SpacingProc = { IF skipAlternative THEN RETURN; IF currentFont.pressFont = NIL THEN ERROR; SELECT opCode FROM setSpaceX, setSpaceXShort => currentSpaceX _ value; setSpaceY, setSpaceYShort => currentSpaceY _ value; resetSpace => { charInfo: PressFontReader.CharInfo _ PressFontReader.GetCharInfo[currentFont.pressFont, ' ]; currentSpaceX _ Real.Fix[charInfo.widthX*currentFont.size]; currentSpaceY _ Real.Fix[charInfo.widthY*currentFont.size]; }; ENDCASE => ERROR; }; spaceProc: PressReader.SpaceProc = { IF skipAlternative THEN RETURN; SELECT currentFont.rotation FROM 0.0 => { x _ x+currentSpaceX; y _ y+currentSpaceY }; 90.0 => { x _ x-currentSpaceY; y _ y+currentSpaceX }; 180.0 => { x _ x-currentSpaceX; y _ y-currentSpaceY }; 270.0 => { x _ x+currentSpaceY; y _ y-currentSpaceX }; ENDCASE => ERROR; Graphics.SetCP[context, x, y]; }; colorProc: PressReader.ColorProc = { color: Graphics.Color; IF skipAlternative THEN RETURN; SELECT opCode FROM setHue => hue _ REAL[value]/255.0; setSaturation => saturation _ REAL[value]/255.0; setBrightness => brightness _ REAL[value]/255.0; ENDCASE => ERROR; color _ GraphicsColor.HSVToColor[hue, saturation, brightness]; Graphics.SetColor[context, color]; }; showRectangleProc: PressReader.ShowRectangleProc = { IF skipAlternative THEN RETURN; Graphics.DrawBox[context, Graphics.Box[x, y, x+width, y+height]]; }; alternativeProc: PressReader.AlternativeProc = { IF (types = 0) AND (elBytes = 0) AND (dlBytes = 0) THEN inAlternative _ skipAlternative _ FALSE ELSE IF inAlternative THEN skipAlternative _ TRUE ELSE inAlternative _ TRUE; }; showObjectProc: PressReader.ShowObjectProc = { path: Graphics.Path _ Graphics.NewPath[]; moveToProc: PressReader.MoveToProc = {Graphics.MoveTo[self: path, x: x+entityTrailer.Xe, y: y+entityTrailer.Ye, flush: FALSE];}; drawToProc: PressReader.DrawToProc = {Graphics.LineTo[self: path, x: x+entityTrailer.Xe, y: y+entityTrailer.Ye];}; drawCurveProc: PressReader.DrawCurveProc = { lpX, lpY: REAL; bezier: CGCubic.Bezier; [lpX, lpY] _ Graphics.LastPoint[path]; bezier _ CGCubic.CoeffsToBezier[CGCubic.Coeffs[ c0: GraphicsBasic.Vec[lpX, lpY], c1: GraphicsBasic.Vec[cX+entityTrailer.Xe, cY+entityTrailer.Ye], c2: GraphicsBasic.Vec[bX+entityTrailer.Xe, bY+entityTrailer.Ye], c3: GraphicsBasic.Vec[aX+entityTrailer.Xe, aY+entityTrailer.Ye]]]; Graphics.CurveTo[self: path, x1: bezier.b1.x, y1:bezier.b1.y, x2: bezier.b2.x, y2: bezier.b2.y, x3: bezier.b3.x, y3: bezier.b3.y]; }; IF skipAlternative THEN RETURN; show.pressFile.GetObject[[moveToProc, drawToProc, drawCurveProc]]; Graphics.DrawArea[self: context, path: path, parityFill: TRUE]; }; -- showObjectProc showDotsProc: PressReader.ShowDotsProc = { codingType, dotsPerLine, scanLines, scanMode, passDots, displayDots, passLines, displayLines: INT _ 0; windowWidth, windowHeight: REAL _ 0.0; dotInfo: PressReader.Dots; image: PressImage.PressImage; mark: Graphics.Mark _ Graphics.Save[context]; setCodingProc: PressReader.SetCodingProc = { codingType _ code; windowWidth _ dotsPerLine _ displayDots _ dots; windowHeight _ scanLines _ displayLines _ lines; }; setModeProc: PressReader.SetModeProc = {scanMode _ mode;}; setWindowProc: PressReader.SetWindowProc = { passDots _ pd; displayDots _ dd; passLines _ pl; displayLines _ dl; }; setSizeProc: PressReader.SetSizeProc = { windowWidth _ REAL[width]*pointsPerMica; windowHeight _ REAL[height]*pointsPerMica; }; dotsFollowProc: PressReader.DotsFollowProc = { dotInfo _ dots; }; IF skipAlternative THEN RETURN; show.pressFile.GetDots[[setCodingProc, setModeProc, setWindowProc, setSizeProc, dotsFollowProc]]; image _ PressImage.MakePressImage[ sampleType: codingType, dots: dotsPerLine, lines: scanLines, mode: scanMode, pd: passDots, dd: displayDots, pl: passLines, dl: displayLines, width: windowWidth, height: windowHeight, bits: dotInfo ! PressImage.PressImageError => GOTO Quit ]; Graphics.Scale[context, micasPerPoint, micasPerPoint]; PressImage.DrawPressImage[context, image]; Graphics.Restore[context, mark]; EXITS Quit => RETURN; }; -- showDotsProc fontProc[0]; -- SetFont 0; ResetSpace; show.pressFile.GetCommands[PressReader.CommandProcs[ showCharactersProc: showCharactersProc, fontProc: fontProc, positionProc: positionProc, spacingProc: spacingProc, spaceProc: spaceProc, colorProc: colorProc, showRectangleProc: showRectangleProc, alternativeProc: alternativeProc, showObjectProc: showObjectProc, showDotsProc: showDotsProc]]; }; -- EntityProc show.pressFile.GetPage[EntityProc]; }; -- PageProc SkipFonts: PressReader.FontDirectoryProc = { pageNumber _ IF pageNumber = show.lastPart THEN ERROR ShowPressError[NoSuchPage] ELSE MIN[pageNumber+1, show.lastPart]; show.pressFile.GetParts[pageNumber, PageProc, SkipFonts]; }; [] _ Graphics.SetFat[self: context, fat: TRUE]; show.pressFile.GetParts[pageNumber, PageProc, SkipFonts]; }; -- DrawPressPage Close: PUBLIC PROCEDURE [show: Handle] = { show.pressFile.ClosePressFile[]; PressFontReader.Close[show.pressFontFile]; }; END. ShowPressImpl.mesa Last edited by Shore; December 7, 1982 1:38 pm NOTE: the following code is a complete hack!!!! It is included only because of the Tioga -> Laurel -> (Timesroman) inconsistency in Cedar/Tioga screen fonts and the current Tioga TSetter. BE IT KNOWN: I'm ashamed of myself!!! ! VFonts.Error => SELECT code FROM VFonts.ErrorCode[fontNotFound] => ERROR ShowPressError[CantFindFonts, viewer]; ENDCASE => ERROR; ]; Change Log Created by Andrew Shore; September 13, 1982 6:45 pm Changed by Shore; October 14, 1982 10:03 pm converted to Cedar 3.4 (Graphics.Path operations) Changed by Shore; December 4, 1982 12:10 am converted to Cedar.Style Edited on December 7, 1982 1:37 pm, by Shore added Graphics.SetFat so thin lines will show changes to: DIRECTORY, DrawPressPage ‌تS– "cedar" styleکhead1– "cedar" styleڑدc™J– "cedar" styleڑœ.™.unit– "cedar" styleڑدk ک J– "cedar" styleڑœ‍œ"ک/J– "cedar" styleڑœ ‍œ¹کاJ– "cedar" styleڑœ‍œکJ– "cedar" styleڑœ‍œک!J– "cedar" styleڑœ‍œ?کOJ– "cedar" styleکJ– "cedar" styleڑœ‍œ[کpJ– "cedar" styleڑœ‍œکJ– "cedar" styleڑœ‍œ‍œک(J– "cedar" styleک J– "cedar" styleڑœ‍œ%ک1——– "cedar" styleڑدn œ‍کJ– "cedar" styleڑ‍œ_کfJ– "cedar" styleڑ‍œ کJ– "cedar" styleڑ‍œ‍کJ– "cedar" styleکJ– "cedar" styleڑ‍œکJ– "cedar" styleکJ– "cedar" styleڑœ‍œک"J– "cedar" styleڑœ‍œک"J– "cedar" styleکJ– "cedar" styleڑœ‍œ‍œ‍œک0– "cedar" styleڑںœ‍œ‍ œ‍œ‍œ‍œکMJ– "cedar" styleکJ– "cedar" styleک_– "cedar" styleڑںœ‌!کLJ– "cedar" styleڑœ‍œکJ– "cedar" styleڑœ ‍œکJ– "cedar" styleکJ– "cedar" styleک J– "cedar" styleڑœ‍œک– "cedar" styleڑں œ#ک0J– "cedar" styleڑ‍œ7‍œ‍œ3‍œ‍œ‍œ‍œ3‍œ‍œ‍œ ‍œ‍œ‍œکطJ– "cedar" styleک—J– "cedar" styleک– "cedar" styleڑ‍œ‍œک%J– "cedar" styleڑœ'ک'J– "cedar" styleڑœ‍œ)ک<—– "cedar" styleڑ‍œکJ– "cedar" styleڑœ‍œ)کIJ– "cedar" styleڑœ‍œک0—J– "cedar" styleک– "cedar" styleڑدbœك™نJ– "cedar" styleک– "cedar" styleڑ‍œ1‍œ‍œک@J– "cedar" styleڑœ)ک)J– "cedar" styleڑœکJ– "cedar" styleک—J– "cedar" styleڑ‍œ.ک2—J– "cedar" styleک– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœ.ک.J– "cedar" styleڑœ1ک1– "cedar" styleڑœ‍œک– "cedar" styleڑœ"™"J– "cedar" styleڑœ"‍œ'™NJ– "cedar" styleڑ‍œ‍œ™J– "cedar" styleڑœ™———J– "cedar" styleکAJ– "cedar" styleکJ– "cedar" styleڑ‍œ ‍œ‍œ‍œکک>—J– "cedar" styleڑ‍œ‍œک—J– "cedar" styleک—– "cedar" styleڑں œک$J– "cedar" styleڑ‍œ‍œ‍œک– "cedar" styleڑ‍œ‍ک J– "cedar" styleک4J– "cedar" styleک5J– "cedar" styleک6J– "cedar" styleک6J– "cedar" styleڑ‍œ‍œک—J– "cedar" styleکJ– "cedar" styleک—– "cedar" styleڑں œک$J– "cedar" styleکJ– "cedar" styleڑ‍œ‍œ‍œک– "cedar" styleڑ‍œ‍کJ– "cedar" styleڑœ‍œک"J– "cedar" styleڑœ‍œک0J– "cedar" styleڑœ‍œک0J– "cedar" styleڑ‍œ‍œک—J– "cedar" styleڑœ>ک>J– "cedar" styleڑœ"ک"J– "cedar" styleک—– "cedar" styleڑںœ#ک4J– "cedar" styleڑ‍œ‍œ‍œکJ– "cedar" styleکAJ– "cedar" styleک—– "cedar" styleڑںœ!ک0– "cedar" styleڑ‍œ ‍œ‍œ‍ک7J– "cedar" styleڑœ"‍ک'—J– "cedar" styleڑ‍œ‍œ‍œ‍ک1J– "cedar" styleڑ‍œ‍œکJ– "cedar" styleک—– "cedar" styleڑںœ ک.J– "cedar" styleک)L– "cedar" styleڑں œm‍œک€L– "cedar" styleڑں œhکr– "cedar" styleڑں œک,J– "cedar" styleڑœ ‍œکJ– "cedar" styleکJ– "cedar" styleڑœ&ک&– "cedar" styleک/J– "cedar" styleڑœ ک J– "cedar" styleڑœ@ک@J– "cedar" styleڑœ@ک@J– "cedar" styleڑœBکB—– "cedar" styleڑœکJ– "cedar" styleڑœ ک J– "cedar" styleڑœ!ک!J– "cedar" styleڑœ%ک%——J– "cedar" styleکJ– "cedar" styleڑ‍œ‍œ‍œکJ– "cedar" styleڑœBکBJ– "cedar" styleڑœ9‍œک?J– "cedar" styleڑœ‌ک—– "cedar" styleڑںœک*J– "cedar" styleڑœ^‍œکfJ– "cedar" styleڑœ‍œک&J– "cedar" styleکJ– "cedar" styleکJ– "cedar" styleک-– "cedar" styleڑں œ ک-J– "cedar" styleڑœکJ– "cedar" styleڑœ/ک/J– "cedar" styleڑœ0ک0J– "cedar" styleک—L– "cedar" styleڑںœ/ک:– "cedar" styleڑں œک,J– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleک—– "cedar" styleڑںœک(J– "cedar" styleڑœ‍œک(J– "cedar" styleڑœ‍œک*J– "cedar" styleڑœک—– "cedar" styleڑںœ ک.J– "cedar" styleکJ– "cedar" styleک—J– "cedar" styleکJڑ‍œ‍œ‍œکJ– "cedar" styleڑœaکa– "cedar" styleڑœ"ک"J– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœ ک J– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleڑœک– "cedar" styleڑœکJ– "cedar" styleڑœ‍œک*——J– "cedar" styleکJ– "cedar" styleک6J– "cedar" styleڑœ*ک*J– "cedar" styleک J– "cedar" styleک– "cedar" styleڑ‍کJ– "cedar" styleڑœ‍œک—J– "cedar" styleڑœ‌ک—J– "cedar" styleکJ– "cedar" styleڑœ‌ک'– "cedar" styleک4J– "cedar" styleڑœ'ک'J– "cedar" styleڑœکJ– "cedar" styleکJ– "cedar" styleکJ– "cedar" styleکJ– "cedar" styleکJ– "cedar" styleک%J– "cedar" styleک!J– "cedar" styleڑœکJ– "cedar" styleڑœکJ– "cedar" styleک—J– "cedar" styleڑœ‌ ک—J– "cedar" styleکJ– "cedar" styleک#J– "cedar" styleڑœ‌ک—L– "cedar" styleکڑœ,ک,– "cedar" styleڑœکJ– "cedar" styleڑ‍œ‍œ‍œکCJ– "cedar" styleڑ‍œ‍œک&—J– "cedar" styleڑœ9ک9J– "cedar" styleک—J•StartOfExpansion[]کJڑœ)‍œک/J– "cedar" styleڑœ9ک9J– "cedar" styleڑœ‌ک—– "cedar" styleڑںœ‍œ‍ œک*J– "cedar" styleک J– "cedar" styleک*J– "cedar" styleک—J– "cedar" styleکJ– "cedar" styleڑ‍œک—– "cedar" styleڑ‌ ™ J– "cedar" style™3J– "cedar" style™– "cedar" style™+J– "cedar" style™1—J™™+J™—J™ڑœ,™,J™-Jڑœ$™$—J™J™——…—)œK