DIRECTORY CGCubic USING [Bezier, Coeffs, CoeffsToBezier], Graphics, 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 currentFontYMin, currentFontYMax: REAL; -- for faster culling of characters 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 { IF currentFont.rotation = 0.0 THEN { box: Graphics.Box _ Graphics.GetBounds[context]; cpX, cpY: REAL; [cpX, cpY] _ Graphics.GetCP[context]; IF box.ymax < cpY+currentFontYMin OR box.ymin > cpY+currentFontYMax THEN RETURN; }; 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.screenFont # NIL THEN { [ymin: currentFontYMin, ymax: currentFontYMax] _ Graphics.FontBox[currentFont.screenFont]; currentFontYMin _ micasPerPoint * currentFontYMin; currentFontYMax _ micasPerPoint * currentFontYMax; } ELSE { currentFontYMin _ FIRST[INTEGER]; currentFontYMax _ LAST[INTEGER]; }; 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]]; { box: Graphics.Box _ Graphics.GetBounds[context]; cpX, cpY: REAL; [cpX, cpY] _ Graphics.GetCP[context]; IF box.ymax < cpY OR box.ymin > cpY+(windowHeight*micasPerPoint) THEN RETURN; }; 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 Last Edited by: Beach, September 13, 1983 5:54 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; ]; Cull unrotated characters obviously outside the context Cull dots obviously outside the context 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 Edited on September 13, 1983 5:46 pm, by Beach changes to: showCharactersProc to provide faster culling of characters obviously outside the context, fontProc to establish the culling bounds for the current font, showDotsProc to provide faster culling of dots obviously outside the context ‌ت – "cedar" styleکhead1– "cedar" styleڑدc™J– "cedar" styleڑœ.™.J– "cedar" style™1unit– "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ک0Jڑœ ‍œکJک%ڑ‍œ‍œ-‍کEJڑ‍œک——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ڑœک– "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ڑœدrœF، œ5،œ@™ٌ—J™J™J™——…—+üPر