<> <> <> <> DIRECTORY Atom, CD, CDBasics, CDCommandOps, CDExtras, CDIO, CDMenus, CDOps, CDProperties, CDSequencer, CDTexts, FS, Imager, ImagerInterpress, IO, Real, RefTab, Rope, SymTab, TerminalIO; CDInterpressPlotImpl: CEDAR PROGRAM IMPORTS Atom, CD, CDBasics, CDCommandOps, CDExtras, CDIO, CDMenus, CDOps, CDProperties, CDSequencer, CDTexts, FS, Imager, ImagerInterpress, IO, Real, RefTab, Rope, SymTab, TerminalIO = BEGIN <<>> <<--constant sizes and scales >> usPageX: REAL = 0.216; --(72*8.5-2; points) United States standard page with.... usPageY: REAL = 0.277; --(72*11.0; points) versatecDeviceX: REAL = 0.97; --of the very special versatec plotter sitting close to my office... I really do not store in this constant the with of any other versatec plotter available... <<>> <<--default sizes and scales >> defaultPageX: REAL _ usPageX; defaultPageY: REAL _ usPageY; defaultStripeX: REAL _ versatecDeviceX; defaultBorder: REAL _ Imager.metersPerInch; defaultScale: REAL _ Imager.metersPerPoint/CD.lambda; <<>> <<--others >> abortFlag: REF BOOL = NEW[BOOL_FALSE]; fileNameDefault: Rope.ROPE _ "///temp/temp.IP"; normalsetUp: BOOL _ FALSE; <<>> <<>> <<--set ups for this very plot which will be created right now>> pageX: REAL; pageY: REAL; contextFilter: REF CD.ContextFilter = NEW[CD.ContextFilter_ALL[[ doit: TRUE, color: Imager.black ]]]; RectToRectangle: PROC [r: CD.Rect] RETURNS [Imager.Rectangle] = BEGIN RETURN [[x: r.x1, y: r.y1, w: r.x2-r.x1, h: r.y2-r.y1]] END; ResetContextFilter: PROC [ignoreProperties: BOOL _ TRUE] = BEGIN normalsetUp _ ignoreProperties; FOR layer: CD.Layer IN CD.Layer DO contextFilter[layer].doit _ ignoreProperties; CDProperties.PutPropOnLayer[layer, $CDxInterpressPlot, NIL]; ENDLOOP; contextFilter[CD.backGround].doit _ FALSE; END; SetUpContextFilter: PROC [] = BEGIN normalsetUp _ FALSE; FOR layer: CD.Layer IN CD.Layer DO contextFilter[layer].doit _ (CDProperties.GetPropFromLayer[layer, $CDxInterpressPlot]=$doit) ENDLOOP; contextFilter[CD.backGround].doit _ FALSE; END; HardCopyCommand: PROC [comm: CDSequencer.Command] = BEGIN TerminalIO.WriteRope["HardCopy\n"]; abortFlag^ _ FALSE; [] _ CDCommandOps.CallWithResource[ proc: ProtectedHardCopy, comm: comm, resource: $CDSimplePlotImpl, abortFlag: abortFlag ]; END; ProtectedHardCopy: PROC [comm: CDSequencer.Command] = <<--not re-entrant: using a global abort flag (abortFlag)>> BEGIN fileName: Rope.ROPE _ fileNameDefault; pageNumX: INT _ 1; --number of vertical stripes pageNumY: INT _ 1; --number of horizontal stripes nX, nY: INT; --number of current page borderX, borderY: REAL; --border of page ref: ImagerInterpress.Ref; dr: CD.DrawRef; clip: CD.Rect; start: CD.Position; sizePerPage: CD.Position; scale: REAL; substituteFonts: BOOL _ FALSE; deviceTranslation: Imager.VEC _ [0, 0]; PlotPage: PROC [context: Imager.Context] = <<--the real stuff>> BEGIN r: CD.Rect _ CDBasics.RectAt[start, sizePerPage]; r _ CDBasics.Intersection[r, clip]; IF ~CDBasics.NonEmpty[r] THEN RETURN; IF abortFlag^ THEN RETURN; Imager.TranslateT[context, deviceTranslation]; Imager.ScaleT[context, scale]; Imager.TranslateT[context, [-r.x1, -r.y1]]; Imager.ClipRectangle[context, RectToRectangle[r]]; dr _ CD.CreateDrawRef[comm.design, context]; dr.minimalSize _ 0; dr.stopFlag _ abortFlag; dr.contextFilter _ contextFilter; dr.interestClip _ r; IF substituteFonts THEN { dr.b2 _ FALSE; dr.properties _ Atom.PutPropOnList[dr.properties, $FontExchange, fontReplace]; }; CDOps.DrawDesign[comm.design, dr]; END; PreAmble: PROC [ref: ImagerInterpress.Ref, contextFilter: REF CD.ContextFilter] = BEGIN declared: RefTab.Ref _ RefTab.Create[]; FOR layer: CD.Layer IN CD.Layer DO IF contextFilter[layer].doit THEN IF RefTab.Insert[declared, contextFilter[layer].color, contextFilter[layer].color] THEN ImagerInterpress.DeclareColor[ref, contextFilter[layer].color] ENDLOOP; declared _ NIL; END; SetUp: PROC [] = BEGIN RequestBorder: PROC [anyWay: BOOL _ FALSE] = BEGIN borderY _ borderX _ 0; IF (anyWay AND ~special) OR TerminalIO.UserSaysYes["border ?"] THEN borderY _ borderX _ defaultBorder; END; SetUpVaryingScaling: PROC [clip: CD.Rect] = BEGIN insidePageX, insidePageY: REAL; --what fits in a page without border IF special AND TerminalIO.UserSaysYes["multiple pages ?"] THEN { pageNumX _ TerminalIO.RequestInt["Number of pages in x direction? >"]; IF pageNumX<1 OR pageNumX>20 THEN { TerminalIO.WriteRope[" to bad\n"]; ERROR ABORTED }; } ELSE { pageNumX _ 0; }; RequestBorder[anyWay: pageNumX=0]; insidePageX _ pageX-2*borderX; insidePageY _ pageY-2*borderY; IF pageNumX=0 THEN { <<--single page>> pageNumY _ 1; pageNumX _ 1; sizePerPage _ CDBasics.SizeOfRect[clip]; scale _ MIN[insidePageX/sizePerPage.x, insidePageY/sizePerPage.y]; } ELSE { <<--multiple pages>> sizePerPage.x _ (clip.x2-clip.x1)/pageNumX+1; sizePerPage.y _ Real.Fix[insidePageY*((sizePerPage.x-1.0)/insidePageX)]; scale _ insidePageX/sizePerPage.x; pageNumY _ ( (clip.y2-clip.y1)+(sizePerPage.y-1) )/sizePerPage.y; } END; SetUpStriped: PROC [clip: CD.Rect] = BEGIN borderY _ defaultBorder; borderX _ 0; pageNumY _ 1; IF special AND TerminalIO.UserSaysYes["multiple stripes ?"] THEN { pageNumX _ TerminalIO.RequestInt["How many stripes? >"]; IF pageNumX<1 OR pageNumX>20 THEN { TerminalIO.WriteRope[" to bad\n"]; ERROR ABORTED } } ELSE { pageNumX _ 1; }; sizePerPage.x _ (clip.x2-clip.x1)/pageNumX; sizePerPage.y _ clip.y2-clip.y1; scale _ pageX/sizePerPage.x; pageY _ scale*sizePerPage.y+2*borderY; END; SetUpFixedScaling: PROC [clip: CD.Rect] = BEGIN borderAnyway: BOOL; borderAnyway _ ( (clip.x2-clip.x1)*scale < (pageX - 0.05) ) AND ( (clip.y2-clip.y1)*scale < (pageY - 0.05) ); RequestBorder[borderAnyway]; scale _ defaultScale; sizePerPage.x _ Real.Round[(pageX-2*borderX)/scale]; sizePerPage.y _ Real.Round[(pageY-2*borderY)/scale]; pageNumX _ (clip.x2-clip.x1+sizePerPage.x-1)/sizePerPage.x; pageNumY _ (clip.y2-clip.y1+sizePerPage.y-1)/sizePerPage.y; END; AdjustPosition: PROC [] = BEGIN IF pageNumX=1 THEN { borderX _ MIN[(pageX - (clip.x2-clip.x1)*scale)/2, defaultBorder]; }; IF pageNumY=1 THEN { pictureHeight: REAL _ (clip.y2-clip.y1)*scale; borderY _ MAX[pageY-defaultBorder-pictureHeight, (pageY-pictureHeight)/2]; }; END; SubstituteFonts: PROC = BEGIN SELECT TerminalIO.RequestSelection["substitute fonts ?", LIST["no substitution", "standard substitution file", "user substitution file"]] FROM 2=> { substituteFonts _ TRUE; TerminalIO.WriteRope["use standard font substitution file\n"]; fontTab _ InitFontTab[]; }; 3 => { r: Rope.ROPE; r _ TerminalIO.RequestRope["fullpath name for font substitution file > "]; substituteFonts _ TRUE; fontTab _ InitFontTab[r]; }; ENDCASE => { TerminalIO.WriteRope["don't substitute fonts\n"]; substituteFonts _ FALSE; }; END; GetClipRect: PROC [comm: CDSequencer.Command] = BEGIN clip _ CDBasics.ToRect[comm.pos, comm.sPos]; IF ~CDBasics.NonEmpty[clip] OR ~TerminalIO.UserSaysYes["clip to rectangle ?"] THEN clip _ CDExtras.BoundingBox[comm.design]; IF clipRect THEN TerminalIO.WriteRope["clip to rectangle\n"] ELSE TerminalIO.WriteRope["plot complete design\n"]; IF ~CDBasics.NonEmpty[clip] THEN { TerminalIO.WriteRope["clip rectangle is empty\n"]; ERROR ABORTED }; END; GetMedium: PROC [] = BEGIN special _ FALSE; fixedScale _ FALSE; striped _ FALSE; SELECT TerminalIO.RequestSelection["Plot", LIST["standard scale", "fill page", "fill versatec stripe", "other"]] FROM 1 => { fixedScale _ TRUE; TerminalIO.WriteRope["standard scale\n"]; }; 3 => { striped _ TRUE; pageX _ defaultStripeX; TerminalIO.WriteRope["fill versatec stripe\n"]; }; 4 => { TerminalIO.WriteRope["special:\n"]; special _ TRUE; SELECT TerminalIO.RequestSelection["Plot", LIST["pages", "versatec stripes", "standard scale"]] FROM 1 => { TerminalIO.WriteRope["standard pages\n"]; }; 2 => { striped _ TRUE; pageX _ defaultStripeX; TerminalIO.WriteRope["versatec stripes\n"]; }; 3 => { fixedScale _ TRUE; TerminalIO.WriteRope["standard scale\n"]; }; ENDCASE => ERROR ABORTED; }; --2,-- ENDCASE => { TerminalIO.WriteRope["fill page\n"]; }; END; special: BOOL _ FALSE; clipRect: BOOL _ FALSE; fixedScale: BOOL _ FALSE; striped: BOOL _ FALSE; IF ~normalsetUp THEN { TerminalIO.WriteRope["** SPECIAL COLORS\n"]; SetUpContextFilter[] }; pageX _ defaultPageX; pageY _ defaultPageY; fontTab _ NIL; SubstituteFonts[]; GetClipRect[comm]; GetMedium[]; sizePerPage _ CDBasics.SizeOfRect[clip]; IF striped THEN SetUpStriped[clip] ELSE IF fixedScale THEN SetUpFixedScaling[clip] ELSE SetUpVaryingScaling[clip]; AdjustPosition[]; TerminalIO.WriteRope[IO.PutFR[" printing %01g rows and %01g columns\n", IO.int[pageNumX], IO.int[pageNumY]]]; END; SetUp[]; ref _ ImagerInterpress.Create[fileName]; PreAmble[ref, contextFilter]; deviceTranslation _ [borderX, borderY]; FOR nX IN [0..pageNumX) DO FOR nY IN [0..pageNumY) DO IF abortFlag^ THEN EXIT; start.x _ clip.x1+nX*sizePerPage.x; start.y _ clip.y1+nY*sizePerPage.y; ImagerInterpress.DoPage[ref, PlotPage]; ENDLOOP; ENDLOOP; ImagerInterpress.Close[ref]; TerminalIO.WriteRope[IO.PutFR[" ""%01g"" created\n", IO.rope[fileName]]]; IF ~abortFlag^ THEN TerminalIO.WriteRope[" done\n"]; END; --************************************************ <<--Font replacement stuff>> fontTab: SymTab.Ref; wDir: Rope.ROPE; fontReplace: REF PROC [CDTexts.CDFont] RETURNS [CDTexts.CDFont] _ NEW[PROC [CDTexts.CDFont] RETURNS [CDTexts.CDFont] _ FontReplace]; FontReplace: PROC [cdFont: CDTexts.CDFont] RETURNS [CDTexts.CDFont] = BEGIN newFont: CDTexts.CDFont _ NIL; IF cdFont.scaleI=CD.lambda THEN { x: REF _ SymTab.Fetch[fontTab, cdFont.supposedName].val; WITH x SELECT FROM l: LIST OF REF ANY => { IF l.first#NIL AND l.rest#NIL AND l.rest.rest=NIL THEN { scale: INT _ 0; name: Rope.ROPE _ CDExtras.ToRope[l.first]; WITH l.rest.first SELECT FROM ri: REF INT => scale _ ri^ ENDCASE => NULL; IF scale>0 AND ~Rope.IsEmpty[name] THEN { newFont _ CDTexts.MakeFont1[name, scale]; IF newFont#NIL THEN { x: REF CDTexts.FontRec; TRUSTED {x _ LOOPHOLE[newFont]}; [] _ SymTab.Store[fontTab, cdFont.supposedName, x]; } }; } }; f: CDTexts.CDFont => newFont _ f; f: REF CDTexts.FontRec => newFont _ f; ENDCASE => NULL; }; IF newFont=NIL THEN newFont_cdFont; RETURN [newFont] END; InitFontTab: PROC [fileName: Rope.ROPE_NIL] RETURNS [fontTab: SymTab.Ref] = BEGIN OneLine: PROC [line: Rope.ROPE] = BEGIN stream: IO.STREAM _IO.RIS[line]; scale: INT; subst, by: Rope.ROPE; subst _ IO.GetRopeLiteral[stream]; by _ IO.GetRopeLiteral[stream]; scale _ IO.GetInt[stream]; [] _ fontTab.Store[subst, LIST[by, NEW[INT_scale]]]; END; file: IO.STREAM _ NIL; fontTab _ SymTab.Create[]; IF Rope.IsEmpty[fileName] THEN fileName _ "CDSubstituteFonts"; fileName _ CDIO.MakeName[base: fileName, ext: "SubstituteFonts", wDir: wDir]; file _ FS.StreamOpen[fileName ! FS.Error => { TerminalIO.WriteRope["no font substitution: "]; TerminalIO.WriteRope[error.explanation]; TerminalIO.WriteLn[]; GOTO thatsIt }]; DO line: Rope.ROPE; line _ IO.GetLineRope[file ! IO.EndOfStream => GOTO thatsIt]; IF ~Rope.IsEmpty[line] THEN OneLine[line ! IO.EndOfStream => GOTO thatsIt; IO.Error => { TerminalIO.WriteRope["**error reading font substitution: "]; TerminalIO.WriteRope[line]; TerminalIO.WriteLn[]; CONTINUE }; ]; ENDLOOP; EXITS thatsIt => NULL; END; --************************************************ Init: PROC = BEGIN <> wDir _ CDIO.GetWorkingDirectory[NIL]; ResetContextFilter[ignoreProperties: TRUE]; CDSequencer.ImplementCommand[a: $InterpressPlot, p: HardCopyCommand, queue: doQueue]; CDMenus.CreateEntry[menu: $HardCopyMenu, entry: "b&w interpress", key: $InterpressPlot]; TerminalIO.WriteRope["BW Interpress plot loaded\n"]; END; Init[]; END.