ImagerTester.cm

run ImagerCommon

run UnifiedFontPackage

run ImagerImpl

run ImagerDefaultImpl

run ImagerLFImpl

run ImagerPDPackage

run ImagerTester

Interp

&v ← ImagerTester.NewViewer[]

&c ← ImagerTester.ContextOf[&v]

&dev ← ImagerPDImpl.Puffin["banded.pd"];
&dev.leftovers ← FALSE;
&dev.nColors ← 1;
&c ← Imager.Create[$PD, &dev]

&dev ← ImagerPDImpl.Puffin["leftover.pd"];
&dev.nColors ← 1;
&c ← Imager.Create[$PD, &dev]

&c ← Imager.Create[$PD, ImagerPDImpl.Hornet["test.pd"]]

Imager
ImagerTester.MaskText[&c, ImagerTester.Text[]]
SpecialOp[&c, $Close, NIL]
ImagerPDImpl.Stats[]

&g ← MakeGray[0.5]
SetColor[&c, &g]
MaskRectangle[&c, -10000, -10000, 30000, 30000]
SetColor[&c, Imager.black]

TranslateT[&c, 8.5*36, 11*36]
RotateT[&c, 33]
TranslateT[&c, -8.5*36, -11*36]

&color ← ImagerAISImpl.AISToColor["monk.ais"]

[235, 535, 223, 239]

SetFont[&c, ImagerTester.Times[240]]
SetColor[&c, &color]
SetCP[&c, [235, 535]]
MaskChar[&c, 'X]

&c ← Create[$PD, ImagerPDImpl.Hornet["test.pd"]]
TranslateT[&c, 8.5*36, 11*36]
RotateT[&c, 33]
TranslateT[&c, -8.5*36, -11*36]
ImagerTester.textSize ← 33.7
ImagerTester.MaskText[&c, ImagerTester.Text[]]
SpecialOp[&c, $Close, NIL]
ImagerPDImpl.Stats[]

Imager
&c ← Create[$PD, ImagerPDImpl.Hornet["test.pd"]]
ImagerTester.MaskText[&c, ImagerTester.Text[]]
SpecialOp[&c, $NewPage, NIL]
ImagerPDImpl.Stats[]
ImagerTester.textSize ← 33.7
ImagerTester.MaskText[&c, ImagerTester.Text[]]
SpecialOp[&c, $NewPage, NIL]
ImagerPDImpl.Stats[]
TranslateT[&c, 8.5*36, 11*36]
RotateT[&c, 33]
TranslateT[&c, -8.5*36, -11*36]
ImagerTester.MaskText[&c, ImagerTester.Text[]]
SpecialOp[&c, $NewPage, NIL]
ImagerPDImpl.Stats[]
Reset[&c]
SetPriorityImportant[&c, TRUE]
ImagerTester.RotMerc[&c]
ImagerTester.PageCorners[&c]
SpecialOp[&c, $Close, NIL]
ImagerPDImpl.Stats[]

TSetter RockNRoll test.pd
TSetter Stinger test.pd