ImagerTester.cm

run CountedVMImpl

run ImagerCommon

run UnifiedFontPackage

run ImagerImpl

run ImagerDefaultImpl

run ImagerLFImpl

run ImagerTester

run ImagerTestViewerImpl

run AISImpl

run ImagerAISUtilImpl

run ImagerPDPackage

Interp

run UFFileWatch

NIL = (&v ← ImagerTestViewer.NewViewer[])

&c ← ImagerTestViewer.Context[&v]

ImagerTestViewer.Painter[&v, LOOPHOLE[ImagerTester.MaskText], ImagerTester.Text[]]

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

&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]

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

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

&t ← ImagerTransform.Concat[ImagerTransform.Scale[20, 0.1], ImagerTransform.Rotate[40]]

&c.state.nps.T ← ImagerTransform.Rotate[0]
Imager.ConcatT[&c, &t]
Imager.MaskStrokeClosed[&c, ImagerTester.MercuryPath[ImagerTransform.Invert[&t]], 1]

&color ← ImagerAISUtilImpl.AISToColor["/indigo/ais/monk.ais"]
&color.m ← ImagerTransform.Scale[0.1, 0.1]
Imager.SetColor[&c, &color]

Imager.ScaleT[&c, 0.0254/72]
Imager.MaskStrokeClosed[&c, ImagerTester.mercuryPath, 90]
Imager.SetColor[&c, Imager.black]
Imager.MaskFill[&c, ImagerTester.mercuryPath]
Imager.Reset[&c]

Imager.SetStrokeWidth[&c, 2]
Imager.ScaleT[&c, 0.0254/72]
Imager.MaskStrokeClosed[&c, ImagerTester.mercuryPath, 22]
Imager.SetColor[&c, Imager.white]
Imager.MaskStrokeClosed[&c, ImagerTester.mercuryPath]
Imager.Reset[&c]

Imager.SetStrokeWidth[&c, 1]
Imager.ScaleT[&c, 10]
Imager.ScaleT[&c, 0.0254/72]
Imager.TranslateT[&c, -330, -340]
Imager.MaskStrokeClosed[&c, ImagerTester.mercuryPath, 22]
Imager.SetColor[&c, Imager.white]
Imager.MaskStrokeClosed[&c, ImagerTester.mercuryPath]
Imager.Reset[&c]

&c ← Imager.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[]

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

Imager.MaskRectangle[&c, 0.01, 0.02, 0.03, 0.04]
Imager.SetColor[&c, Imager.MakeGray[0.3]]
Imager.MaskRectangle[&c, 0.01, 0.02, 0.03, 0.04]
Imager.SetColor[&c, Imager.MakeGray[0.5]]
Imager.RotateT[&c, -10]
Imager.MaskRectangle[&c, 0.01, 0.02, 0.03, 0.04]
Imager.SetColor[&c, Imager.black]
Imager.RotateT[&c, -10]
Imager.MaskRectangle[&c, 0.01, 0.02, 0.03, 0.04]
Imager.SetColor[&c, Imager.white]
Imager.RotateT[&c, -10]
Imager.MaskRectangle[&c, 0.01, 0.02, 0.03, 0.04]
Imager.Reset[&c]

Imager.Reset[&c]
Imager.SetColor[&c, Imager.white]
Imager.MaskRectangle[&c, 0, 0, 1, 1]
Imager.Reset[&c]

Imager.ScaleT[&c, 0.5]

TSetter RockNRoll test.pd
TSetter Stinger test.pd