<<>> <> <> <> <> <> <> <> <> <> DIRECTORY Convert, Imager, ImagerArtwork, ImagerInterpress, ImagerTransformation, IO, Prop, Rope, TEditDocument, TEditInputOps, TEditSelection, TextNode, TiogaAccess, TiogaAccessViewers; ImagerArtworkImpl: CEDAR PROGRAM IMPORTS Convert, Imager, ImagerInterpress, ImagerTransformation, IO, Prop, Rope, TEditInputOps, TEditSelection, TiogaAccess, TiogaAccessViewers EXPORTS ImagerArtwork ~ BEGIN ROPE: TYPE ~ Rope.ROPE; Transformation: TYPE ~ ImagerTransformation.Transformation; metersPerPoint: REAL Ź 254.0/720000.0; mmPerPoint: REAL Ź 254.0/720.0; topSpace: REAL Ź 8.0*mmPerPoint; bottomSpace: REAL Ź 4.0*mmPerPoint; Points: PUBLIC PROC RETURNS [Transformation] ~ { RETURN[ImagerTransformation.Scale[metersPerPoint]]; }; CreateInterpressRope: PUBLIC PROC [ action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Transformation Ź NIL, clip: BOOL Ź TRUE] RETURNS [ROPE] ~ { ros: IO.STREAM ~ IO.ROS[]; outputMaster: ImagerInterpress.Ref ~ ImagerInterpress.CreateFromStream[ros, "Interpress/Xerox/3.0 "]; pageAction: PROC [context: Imager.Context] ~ { IF m # NIL THEN Imager.ConcatT[context, m]; IF clip THEN Imager.ClipRectangle[context, bounds]; action[context]; }; ImagerInterpress.DoPage[outputMaster, pageAction, 1.0]; ImagerInterpress.Finish[outputMaster]; RETURN[IO.RopeFromROS[ros]]; }; WriteArtwork: PUBLIC PROC [ writer: TiogaAccess.Writer, action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Transformation Ź NIL, clip: BOOL Ź TRUE, fit: BOOL Ź FALSE, caption: BOOL Ź TRUE] ~ { PutRope: PROC [rope: ROPE] ~ { action: Rope.ActionType ~ {tc.char Ź c; TiogaAccess.Put[writer, tc]}; [] Ź Rope.Map[base: rope, action: action]; }; PutLooksRope: PROC [rope: ROPE, look1, look2: CHAR Ź '\000] ~ { save: TiogaAccess.Looks ~ tc.looks; IF look1 # '\000 THEN tc.looks[look1] Ź TRUE; IF look2 # '\000 THEN tc.looks[look2] Ź TRUE; PutRope[rope]; tc.looks Ź save; }; PutRopeProp: PROC [key: ATOM, val: ROPE] ~ { tc.propList Ź Prop.Put[propList: tc.propList, key: key, val: val]; }; interpress: ROPE ~ CreateInterpressRope[action, bounds, m, clip]; tc: TiogaAccess.TiogaChar Ź vanillaTC; bb: Imager.Rectangle Ź ImagerTransformation.TransformRectangle[m, bounds]; scale: REAL ~ 1000.0; tc.comment Ź TRUE; PutLooksRope[" [Artwork node; type 'Artwork on' to command tool] ", 'n]; IF fit AND bb.h > 0 AND bb.w > 0 THEN { aspectRope: ROPE ~ Convert.RopeFromReal[bb.h/bb.w]; topSpaceRope: ROPE ~ Convert.RopeFromReal[topSpace]; topCalcRope: ROPE ~ Rope.Cat[aspectRope, " the lineLength .mul ", topSpaceRope, " .add "]; PutRopeProp[$Postfix, Rope.Cat[ topCalcRope, "bigger topLeading ", topCalcRope, "bigger topIndent " ].Cat[ Convert.RopeFromReal[bottomSpace], " mm bigger bottomLeading ", "0.5 0.3 0.95 backgroundColor the topLeading 6 pt .sub backgroundAscent 3 pt backgroundDescent 4 pt outlineBoxThickness 1 pt outlineBoxBearoff" ]]; PutRopeProp[$Fit, "TRUE"]; } ELSE { PutRopeProp[$Postfix, Rope.Cat[ Convert.RopeFromReal[(bb.h+bb.y)*scale+topSpace], " mm bigger topLeading ", Convert.RopeFromReal[(bb.h+bb.y)*scale+topSpace], " mm bigger topIndent " ].Cat[ Convert.RopeFromReal[(-bb.y)*scale+bottomSpace], " mm bigger bottomLeading ", "0.5 0.3 0.95 backgroundColor the topLeading 6 pt .sub backgroundAscent 3 pt backgroundDescent 4 pt outlineBoxThickness 1 pt outlineBoxBearoff" ]]; }; PutRopeProp[$Bounds, Rope.Cat[ Convert.RopeFromReal[bb.x*scale], " mm xmin ", Convert.RopeFromReal[bb.y*scale], " mm ymin " ].Cat[ Convert.RopeFromReal[(bb.x+bb.w)*scale], " mm xmax ", Convert.RopeFromReal[(bb.y+bb.h)*scale], " mm ymax " ]]; PutRopeProp[$Artwork, "Interpress"]; PutRopeProp[$Interpress, interpress]; tc.endOfNode Ź TRUE; tc.deltaLevel Ź 1; tc.char Ź '\n; tc.format Ź $artworkFigure; TiogaAccess.Put[writer, tc]; tc.format Ź NIL; tc Ź vanillaTC; IF caption THEN { PutLooksRope["", 't]; PutRope[" Insert caption here "]; PutLooksRope["", 't]; tc.endOfNode Ź TRUE; tc.char Ź '\n; tc.format Ź $artworkCaption; TiogaAccess.Put[writer, tc]; tc.format Ź NIL; tc.endOfNode Ź FALSE; IF TEditSelection.pSel.granularity < node THEN { tc.endOfNode Ź TRUE; PutRope["\n"]; tc.endOfNode Ź FALSE; }; }; }; PasteArtwork: PUBLIC PROC [ action: PROC [Imager.Context], bounds: Imager.Rectangle, m: Transformation Ź NIL, clip: BOOL Ź TRUE, fit: BOOL Ź FALSE, caption: BOOL Ź TRUE] ~ { Locked: PROC [root: TextNode.Ref, tSel: TEditDocument.Selection] ~ { AddSelection: PROC ~ { reader: TiogaAccess.Reader Ź TiogaAccessViewers.FromSelection[]; WHILE NOT TiogaAccess.EndOf[reader] DO TiogaAccess.Put[writer, TiogaAccess.Get[reader]]; ENDLOOP; }; writer: TiogaAccess.Writer Ź TiogaAccess.Create[]; IF NOT tSel.pendingDelete AND tSel.insertion = after THEN AddSelection[]; IF tSel.granularity < node OR NOT tSel.pendingDelete THEN { tc: TiogaAccess.TiogaChar Ź vanillaTC; tc.comment Ź tc.endOfNode Ź TRUE; tc.char Ź '\n; TiogaAccess.Put[writer, tc]; }; WriteArtwork[writer, action, bounds, m, clip, fit, caption]; IF NOT tSel.pendingDelete AND tSel.insertion = before THEN AddSelection[]; TiogaAccessViewers.WriteSelection[writer]; }; TEditInputOps.CallWithLocks[Locked]; }; vanillaTC: TiogaAccess.TiogaChar ~ [ charSet: 0, char: '\n, looks: ALL[FALSE], format: NIL, comment: FALSE, endOfNode: FALSE, deltaLevel: 0, propList: NIL ]; END. CreateButton p Ź ImagerArtwork.PasteArtwork[LOOPHOLE[ImagerExamplesImpl.Text], [0,0,0.08,0.05], ImagerTransformation.Scale[0.5], TRUE]