Texture2D.load

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