DIRECTORY
CGM, Commander, FileNames, FS, Imager, ImagerFont, ImagerInterpress, ImagerPixelArray, IO, Rope, -- MacPaint, MacPICT,--  InterpressFabricators;

InterpressFabricatorsCommand: CEDAR PROGRAM
IMPORTS
 CGM, Commander, FileNames, FS, Imager, ImagerFont, ImagerInterpress, IO, Rope -- , MacPaint, MacPICT
EXPORTS InterpressFabricators 
~ BEGIN OPEN InterpressFabricators;

ROPE: TYPE ~ Rope.ROPE;

inch: REAL = 0.0254; -- inches->meters conversion factor
defaultMacPixelsPerInch: REAL = 72.0; -- for Macintosh files
macCaptionFont: ROPE м "xerox/pressfonts/helvetica-mir"; -- to put caption in Macintosh files
headerSampled: ROPE м "Interpress/Xerox/3.0 "; -- IP header for sampled images
macCaptionLoc: Imager.VEC м [72, 72]; -- where the caption should be in Macintosh files
defaultPageWidth: REAL м 0.210; -- for normal A4 sized paper
defaultPageHeight: REAL м 0.297; -- for normal A4 sized paper
macMarginW: REAL м 0.020; -- offset of Mac images on regular-sized paper
macMarginH: REAL м 0.040; -- offset of Mac images on regular-sized paper

CGMToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref, beginPage, endPage: ProgressProc, msg: IO.STREAM м NIL, pageWidth, pageHeight: REAL, caption: ROPE] RETURNS [failed: BOOL м FALSE] ~ {
resolvedName: Rope.ROPE м FileNames.ResolveRelativePath[inputName];

Paint: PROC [context: Imager.Context] ~ {
Caption: PROC ~ {
Imager.ScaleT[context, inch/72];
Imager.SetFont[context, ImagerFont.Scale[ImagerFont.Find[macCaptionFont], 9]];
Imager.SetXY[context, macCaptionLoc];
Imager.ShowRope[context, caption];
};
Imager.SetPriorityImportant[context, TRUE];
Imager.DoSave[context, Caption];
CGM.ToInterpress[context: context, fileName: resolvedName, pageWidth: pageWidth, pageHeight: pageHeight];
};
IF beginPage[1, 1] THEN GOTO tooBad;
ImagerInterpress.DoPage[self: interpress, action: Paint, scale: 1.0];
IF endPage[1, 1] THEN GOTO tooBad;
EXITS
tooBad => failed м TRUE;
};


CGMToInterpressAction: PUBLIC ActionProc ~ {
BeginPage: ProgressProc ~ {
IF cmd.commandLine # NIL THEN cmd.out.PutF1["[%g", IO.int[pageNumber]]};
EndPage: ProgressProc ~ {IF cmd.commandLine # NIL THEN cmd.out.PutRope["] "]};
output: ImagerInterpress.Ref м ImagerInterpress.Create[outputName, headerSampled];
[] м CGMToInterpress[inputName, output, BeginPage, EndPage, cmd.out, defaultPageWidth, defaultPageHeight, cmd.commandLine];
ImagerInterpress.Close[output];
};

FindFullName: PROC [inputName: ROPE] RETURNS [ROPE] ~ {
fullFName: ROPE м NIL;
fullFName м FS.FileInfo[inputName].fullFName;
RETURN [fullFName]
};


GetFileNameToken: PROC [stream: IO.STREAM] RETURNS [rope: ROPE м NIL] = {
FileNameTokenBreak: PROC [char: CHAR] RETURNS [IO.CharClass] = {
IF char = '_ THEN RETURN [break];
IF char = '  OR char = '\t OR char = ', OR char = '; OR char = '\n THEN RETURN [sepr];
RETURN [other];
};
rope м stream.GetTokenRope[FileNameTokenBreak ! IO.EndOfStream => CONTINUE].token;
};

Complain: PUBLIC ERROR [complaint: ROPE] ~ CODE;

MakeOutputName: PROC [inputName: ROPE, doc: ROPE] RETURNS [ROPE] ~ {
start: INT м Rope.Index[s1: doc, s2: " to "]+4;
end: INT м Rope.SkipTo[s: doc, pos: start, skip: " \n\t"];
cp: FS.ComponentPositions;
isMPNT: BOOL м Rope.Equal[Rope.Substr[doc, start, end-start], "MPNT", FALSE];
[inputName, cp] м FS.ExpandName[inputName];
RETURN [Rope.Cat[
Rope.Substr[inputName, cp.base.start, cp.base.length],
IF isMPNT THEN NIL ELSE ".",
IF isMPNT THEN NIL ELSE Rope.Substr[doc, start, end-start]
]]
};

Command: PUBLIC Commander.CommandProc ~ {
refAction: REF ActionProc ~ NARROW[cmd.procData.clientData];
stream: IO.STREAM м IO.RIS[cmd.commandLine];
firstToken: ROPE м GetFileNameToken[stream];
quiet: BOOL м Rope.Equal[firstToken, "-q", FALSE];
outputName: ROPE м
FileNames.ResolveRelativePath[IF quiet THEN GetFileNameToken[stream] ELSE firstToken];
secondTokenIndex: INT м IO.GetIndex[stream];
gets: ROPE м GetFileNameToken[stream];
inputName: ROPE м NIL;
IF NOT gets.Equal["_"] THEN {
inputName м outputName;
outputName м NIL;
stream.SetIndex[secondTokenIndex];
}
ELSE {inputName м FileNames.ResolveRelativePath[GetFileNameToken[stream]]};
IF inputName = NIL THEN RETURN[result: $Failure, msg: cmd.procData.doc];
inputName м FindFullName[inputName ! FS.Error => {
IF error.group = user THEN {result м $Failure; msg м error.explanation; GOTO Quit}
}];
IF outputName = NIL THEN {
outputName м MakeOutputName[inputName, cmd.procData.doc];
};
cmd.out.PutRope["Reading "];
cmd.out.PutRope[inputName];
cmd.out.PutRope[" . . . "];
IF quiet THEN cmd.commandLine м NIL;
refActionн[inputName, outputName, cmd, stream !
Complain => {result м $Failure; msg м complaint; GOTO Quit};
FS.Error => {
IF error.group = user THEN {result м $Failure; msg м error.explanation; GOTO Quit}
}
];
outputName м FindFullName[outputName ! FS.Error => {
outputName м "Output file(s)"; CONTINUE};
];
cmd.out.PutRope[outputName];
cmd.out.PutRope[" written.\n"];
EXITS Quit => NULL
};

Commander.Register["CGMToInterpress", Command, "\nConvert CGM to Interpress\nUsage:\tCGMToInterpress [-q] [<output> _] <input>\n\t\t\t-q to suppress caption and page number", NEW[ActionProc м CGMToInterpressAction]];
Commander.Register["CGMToIP", Command, "\nConvert CGM to Interpress\nUsage:\tCGMToIP [-q] [<output> _] <input>\n\t\t\t-q to suppress caption and page number", NEW[ActionProc м CGMToInterpressAction]];

END.
   ─  
InterpressFabricatorsCommand.mesa
Copyright ╙ 1989, 1992 by Xerox Corporation.  All rights reserved.
Fumihiko Shibata, July 7, 1989 11:36:03 am JST
Michael Plass, September 12, 1990 12:05 pm PDT
Willie-s, April 3, 1992 4:49 pm PST

macPaintPageWidth : REAL _ 576*inch/defaultMacPixelsPerInch; -- for MacPaint file
macPaintPageHeight: REAL _ 720*inch/defaultMacPixelsPerInch; -- for MacPaint file
rgbLinear: Imager.ColorOperator ~ ImagerColor.NewColorOperatorRGB[maxIn: 255];

MacPaintToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref, beginPage, endPage: ProgressProc, msg: IO.STREAM м NIL, pageWidth, pageHeight: REAL, caption: ROPE] RETURNS [failed: BOOL м FALSE] ~ {
Convert MacPaint file to IP master.
resolvedName: Rope.ROPE м FileNames.ResolveRelativePath[inputName];
pa: Imager.PixelArray м MacPaint.ToPixelArray[resolvedName];
rect: Imager.Rectangle м ImagerTransformation.TransformRectangle[pa.m, [0, 0, pa.sSize, pa.fSize]];
Paint: PROC [context: Imager.Context] ~ {
Caption: PROC ~ {
Imager.ScaleT[context, inch/72];
Imager.SetFont[context, ImagerFont.Scale[ImagerFont.Find[macCaptionFont], 9]];
Imager.SetXY[context, macCaptionLoc];
Imager.ShowRope[context, caption];
};
Imager.SetPriorityImportant[context, TRUE];
Imager.DoSave[context, Caption];
Imager.TranslateT[context, [pageWidth*0.5, pageHeight*0.5]];
Imager.ScaleT[context, inch/defaultMacPixelsPerInch]; -- 72-per-inch points;
Imager.TranslateT[context, [-(rect.x+rect.w*0.5), -(rect.y+rect.h*0.5)]];
Imager.SetColor[context, Imager.black];
Imager.MaskPixel[context, pa];
};
IF beginPage[1, 1] THEN GOTO tooBad;
ImagerInterpress.DeclarePixelArray[interpress, pa];
ImagerInterpress.DoPage[self: interpress, action: Paint, scale: 1.0];
IF endPage[1, 1] THEN GOTO tooBad;
EXITS
tooBad => failed м TRUE;
};
PICTToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref, beginPage, endPage: ProgressProc, msg: IO.STREAM м NIL, pageWidth, pageHeight: REAL, caption: ROPE] RETURNS [failed: BOOL м FALSE] ~ {
Convert Macintosh PICT file to IP master.
rotate: BOOL м FALSE;
scale: REAL;
resolvedName: Rope.ROPE м FileNames.ResolveRelativePath[inputName];
pa: Imager.PixelArray м MacPICT.ToPixelArray[resolvedName];
rect: Imager.Rectangle м ImagerTransformation.TransformRectangle[pa.m, [0, 0, pa.sSize, pa.fSize]];
Paint: PROC [context: Imager.Context] ~ {
Caption: PROC ~ {
Imager.ScaleT[context, inch/72];
Imager.SetFont[context, ImagerFont.Scale[ImagerFont.Find[macCaptionFont], 9]];
Imager.SetXY[context, macCaptionLoc];
Imager.ShowRope[context, caption];
};
Imager.SetPriorityImportant[context, TRUE];
Imager.DoSave[context, Caption];
IF rect.w > rect.h THEN {
rotate м TRUE;
scale м MIN[(pageHeight-2*macMarginH)/rect.w, (pageWidth-2*macMarginW)/rect.h];
}
ELSE {
rotate м FALSE;
scale м MIN[(pageWidth-2*macMarginW)/rect.w, (pageHeight-2*macMarginH)/rect.h];
};
Imager.TranslateT[context, [defaultPageWidth*0.5, defaultPageHeight*0.5]];
IF rotate THEN Imager.RotateT[context, 90.0];
Imager.ScaleT[context, scale];
Imager.TranslateT[context, [-(rect.x+rect.w*0.5), -(rect.y+rect.h*0.5)]];
Imager.SetSampledColor[context: context, pa: pa, m: NIL, colorOperator: rgbLinear];
Imager.MaskRectangle[context, rect];
};
IF beginPage[1, 1] THEN GOTO tooBad;
ImagerInterpress.DeclarePixelArray[interpress, pa];
ImagerInterpress.DoPage[self: interpress, action: Paint, scale: 1.0];
IF endPage[1, 1] THEN GOTO tooBad;
EXITS
tooBad => failed м TRUE;
};

Convert CGM to IP master.
MacPaintToInterpressAction: PUBLIC ActionProc ~ {
BeginPage: ProgressProc ~ {
IF cmd.commandLine # NIL THEN cmd.out.PutF["[%g", IO.int[pageNumber]]};
EndPage: ProgressProc ~ {IF cmd.commandLine # NIL THEN cmd.out.PutRope["] "]};
output: ImagerInterpress.Ref м ImagerInterpress.Create[outputName, headerSampled];
[] м MacPaintToInterpress[inputName, output, BeginPage, EndPage, cmd.out, defaultPageWidth, defaultPageHeight, cmd.commandLine];
ImagerInterpress.Close[output];
};
PICTToInterpressAction: PUBLIC ActionProc ~ {
BeginPage: ProgressProc ~ {
IF cmd.commandLine # NIL THEN cmd.out.PutF["[%g", IO.int[pageNumber]]};
EndPage: ProgressProc ~ {IF cmd.commandLine # NIL THEN cmd.out.PutRope["] "]};
output: ImagerInterpress.Ref м ImagerInterpress.Create[outputName, headerSampled];
[] м PICTToInterpress[inputName, output, BeginPage, EndPage, cmd.out, defaultPageWidth, defaultPageHeight, cmd.commandLine];
ImagerInterpress.Close[output];
};
GetCmdToken: PROC [stream: IO.STREAM] RETURNS [rope: ROPE _ NIL] = {
CmdTokenBreak: PROC [char: CHAR] RETURNS [IO.CharClass] = {
IF char = '_ OR char = '[ OR char = '] THEN RETURN [break];
IF char = '  OR char = '\t OR char = ', OR char = '; OR char = '\n THEN RETURN [sepr];
RETURN [other];
};
rope _ stream.GetTokenRope[CmdTokenBreak ! IO.EndOfStream => CONTINUE].token;
};
Relying on doc, and having the install files register commands seems unsafe.   Jules
Commander.Register["MacPaintToInterpress", Command, "\nConvert MacPaint file to Interpress\nUsage:\tMacPaintToInterpress [-q] [<output> _] <input>\n\t\t\t-q to suppress caption and page number", NEW[ActionProc м MacPaintToInterpressAction]];
Commander.Register["MacPaintToIP", Command, "\nConvert MacPaint file to Interpress\nUsage:\tMacPaintToIP [-q] [<output> _] <input>\n\t\t\t-q to suppress caption and page number", NEW[ActionProc м MacPaintToInterpressAction]];
Commander.Register["PICTToInterpress", Command, "\nConvert Macintosh PICT file to Interpress\nUsage:\tPICTToInterpress [-q] [<output> _] <input>\n\t\t\t-q to suppress caption and page number", NEW[ActionProc м PICTToInterpressAction]];
Commander.Register["PICTToIP", Command, "\nConvert Macintosh PICT file to Interpress\nUsage:\tPICTToIP [-q] [<output> _] <input>\n\t\t\t-q to suppress caption and page number", NEW[ActionProc м PICTToInterpressAction]];
Э╩
■  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬ,╧eЬfЩУJЩ.JЩ#IcodeЩ ЧKЪ
╧k	ЬЮЬЮЬ:ЮЬ╧cЬШЪKШ Ъ╨blЬЮШ+KЪ
ЮЬЬЮЬЮЬ(ЮЬЯШmKЪЮЬШKЪЬЮЬЮШ#KШ KЪЮЬЮЬЮЬШKШ KЪЬЮЬЯ#Ш8KЪЬЮЬ	ЯШ<KЪЬЮЬ%Я$Ш]KЪЬЮЬЯШNKЪЬЮЬЯ1ШWKЪЬЮЬ
ЯШ<KЪЬЮЬ
ЯШ=KЪЬЮЬ
Я.ШHKЪЬЮЬ
Я.ШHKЪЬЮЬ%ЯЩQKЪЬЮЬ%ЯЩQKХStartOfExpansion[maxIn: ImagerSample.Sample]ЪЬNЩNKЩ Ъ╧nЬ╧sЬЮЬKЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЩсJЪЬЮЬЩ#KЪЬЮЬ,ЩCKЩ<KЩcЪбЬЮЬЩ)ЪбЬЮЬЩKЪЬ Щ KЪЬNЩNKЪЬ%Щ%KЪЬ"Щ"KЪЬЩЧKЪЬ%ЮЬЩ+KЪЬ Щ KЪЬ<Щ<KЪЬ6ЯЩLKЪЬIЩIKЪЬ'Щ'KЪЬЩKЪЬЩЧKЪЮЬЮЬЮЬЩ$KЪЬ3Щ3KЪЬEЩEKЪЮЬЮЬЮЬЩ"ЪЮЩKЪЬЮЬЩЧKЪЬЩЧЧШ ЪбЬвЬЮЬKЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЩ▌JЪЬЮЬЩ)KЪЬЮЬЮЬЩKЪЬЮЬЩKЪЬЮЬ,ЩCKЩ;KЩcЪбЬЮЬЩ)ЪбЬЮЬЩKЪЬ Щ KЪЬNЩNKЪЬ%Щ%KЪЬ"Щ"KЪЬЩЧKЪЬ%ЮЬЩ+KЪЬ Щ ЪЮЬЮЬЩKЪЬ	ЮЬЩKЪЬЮЬDЩOKЩЧЪЮЬЩKЪЬ	ЮЬЩKЪЬЮЬDЩOKЩЧKЪЬJЩJKЪЮЬЮЬЩ-KЪЬЩKЪЬIЩIKЪЬ4ЮЬЩSKЪЬ$Щ$KЪЬЩЧKЪЮЬЮЬЮЬЩ$KЪЬ3Щ3KЪЬEЩEKЪЮЬЮЬЮЬЩ"ЪЮЩKЪЬЮЬЩЧKЪЬЩKЩ ЧЪбЬвЬЮЬKЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬШ▄JЪЬЮЬЩKЪЬЮЬ,ШCKШ ЪбЬЮЬШ)ЪбЬЮЬШKЪЬ Ш KЪЬNШNKЪЬ%Ш%KЪЬ"Ш"KЪЬШЧKЪЬ%ЮЬШ+KЪЬ Ш KШiKЪЬШЧKЪЮЬЮЬЮЬШ$KЪЬEШEKЪЮЬЮЬЮЬШ"ЪЮШKЪЬЮЬШЧKЪЬШKШ ЧЪбЬЮЬЩ1Ъб	ЬЩKЪЮЬЮЬЮЬЮЬЩGЧKЪбЬЮЬЮЬЮЬЩNKЩRKЩАKЪЬЩKЪЬЩЧKШ ЪбЬЮЬЩ-Ъб	ЬЩKЪЮЬЮЬЮЬЮЬЩGЧKЪбЬЮЬЮЬЮЬЩNKЩRKЩ|KЪЬЩKЪЬЩЧKШ ЪбЬЮЬШ,Ъб	ЬШKЪЮЬЮЬЮЬЮЬШHЧKЪбЬЮЬЮЬЮЬШNKШRKШ{KЪЬШKЪЬШKШ ЧЪ
бЬЮЬЮЬЮЬЮЬШ7KЪЬЮЬЮЬШKЪЬЮЬШ-KЪЮЬШKЪЬШKШ ЧЦ"cedar" styleЪбЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩDЦ"cedar" styleЪ
бЬЮЬЮЬЮЬЮЬЩ;KЪ
ЮЬЮЬЮЬЮЬЮЬ	Щ;KЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЩVKЪЮЬ	ЩKЪЬЩЧKЦ"cedar" styleЪЬ+ЮЬЮЬЩMKЪЬЩKШ ЧЦ"cedar" styleЪбЬЮЬ
ЮЬЮЬЮЬЮЬЮЬШIЦ"cedar" styleЪ
бЬЮЬЮЬЮЬЮЬШ@KЪЮЬЮЬЮЬ	Ш!KЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬШVKЪЮЬ	ШKЪЬШЧKЦ"cedar" styleЪЬ0ЮЬЮЬШRKЪЬШKШ ЧЪ
бЬЮЬЮЬЮЬЮЬШ0KШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬШDKЪЬNЯЩTKЪЬЮЬ%Ш/KЪЬЮЬ2Ш:KЪЬЮЬШKЪЬЮЬ:ЮЬШMKЪЬЮЬШ+ЪЮЬШKЪЬ6Ш6KЪЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬ#Ш:KЪЬШЧKЪЬШKШ ЧЪбЬЮЬШ)KЪЬЮЬЮЬШ<KЪ	ЬЮЬЮЬЮЬЮЬШ,KЪЬЮЬШ,KЪЬЮЬ ЮЬШ2ЪЬЮЬШKЪЬЮЬЮЬЮЬШVЧKЪЬЮЬЮЬШ,KЪЬЮЬШ&KЪЬЮЬЮЬШЪЮЬЮЬЮЬШKШKЪЬЮЬШKЪЬ"Ш"KЪЬШЧKЪЮЬGШKKЪЮЬЮЬЮЬЮЬ*ШHЪЬ%ЮЬШ2KЪЮЬЮЬ.ЮЬШRKЪЬШЧЪЮЬЮЬЮЬШKШ9KЪЬШЧKЪЬШKЪЬШKЪЬШKЪЮЬЮЬЮЬШ$Ш/KЪЬ1ЮЬШ<ЪЮЬШKЪЮЬЮЬ.ЮЬШRKЪЬШЧKЪЬШЧЪЬ'ЮЬШ4KЪЬЮЬШ)KЪЬШЧKЪЬШKЪЬШKЪЮЬ	ЮШKЪЬШKШ ЧKЪЬпЮЬ&Ш╪KЪЬЯЮЬ&Ш╚KЪЬ├ЮЬ+ЩёKЪЬ│ЮЬ+ЩсKЪЬ┴ЮЬ'ЩыKЪЬ▒ЮЬ'Щ█KШ KЪЮЬШЧЧ ЕЧ    Є  6┤  