StatementInterpreter run AISImpl run Texture2DImpl Alias T2UseDunnView Alias T2Show (foo) DunnView foo.ais Alias T2UsePreview Alias T2Show (foo) Preview foo.ais Alias T2UseQuiet Alias T2Show (foo) -- nop foo T2UsePreview Alias T2TempCompute { OPEN Texture2DImpl; FunctionAIS["KPtemp.ais", res, res, NoiseTest, bitsPerPixel] } Alias T2BoostCompute { OPEN Texture2DImpl; &range _ ValueRange["KPtemp.ais"]; ChangeContrast["KPtemp.ais", "KPtemp.ais", &range.minvalue, &range.maxvalue, 0, 1] } Alias T2Boost T2BoostCompute; T2Show KPtemp Alias T2BitsPerPixel (mybits) { Texture2DImpl.bitsPerPixel _ mybits } Alias T2Resolution (myres) { Texture2DImpl.res _ myres } Alias T2Type (mytype) { Texture2DImpl.type _ mytype } Alias T2Save (shortname) Copy shortname.ais _ KPtemp.ais Alias T2Do (mytype myres) T2Type mytype; T2Resolution myres; T2TempCompute; T2Save mytype-myres; T2Show mytype-myres Alias T2Seed (foo) { Texture2DImpl.NewSeed[foo] } Alias T2BarkParam { OPEN Texture2DImpl; x1 _ 8; y1 _ 4; n _ 8 } Alias T2Bark T2BarkParam; T2Do bark 300 Alias T2DropsParam { OPEN Texture2DImpl; x1 _ 8; y1 _ x1 } Alias T2Drops T2DropsParam; T2Do drops 300 Alias T2MarbleParam { OPEN Texture2DImpl; x1 _ 8; y1 _ 8; n _ 9 } Alias T2Marble T2MarbleParam; T2Do marble 300 Alias T2RockParam { OPEN Texture2DImpl; x1 _ 4; y1 _ 4; n _ 9 } Alias T2Rock T2RockParam; T2Do rock 300 Alias T2SmokeParam { OPEN Texture2DImpl; x1 _ 8; y1 _ 8; n _ 9 } Alias T2Smoke T2SmokeParam; T2Do smoke 300 Alias T2ElevationParam { OPEN Texture2DImpl; x1 _ 4; y1 _ 4; n _ 5 } Alias T2Elevation T2ElevationParam; T2Do elevation 300 Alias T2ElevationGrad T2ElevationParam; T2Do elevationGrad 300 Alias Texture2D -- Commands: T2UseDunnView T2UsePreview T2UseQuiet T2Boost T2Resolution T2Type T2Save T2Do T2Bark T2Drops T2Marble T2Rock T2Smoke ²Texture2D.load Copyright c 1985 by Xerox Corporation. All rights reserved. Michael Plass, December 13, 1985 10:09:35 am PST McCreight, December 20, 1985 12:31:54 pm PST Κ‘˜šœ™Icodešœ Οmœ1™K˜Kšœž œ‚˜‘K˜—…— c