void ch1Example()
{
Interpreter interp = RaytraceInterpreter.MakeInterp();
interp.RegisterModule(new Ch1Module());
interp.Run("[ Ch1 ] USE-MODULES");
double pos(string axis)
{
interp.Run(String.Format("{0}-POS", axis));
DoubleItem item = (DoubleItem)interp.StackPop();
return(item.DoubleValue);
}
interp.Run("0 2 0 Point POSITION!");
double y = pos("Y");
int numIterations = 0;
while (y > 0)
{
interp.Run("TICK");
y = pos("Y");
numIterations++;
}
double x = pos("X");
Debug.WriteLine("distance: {0}, numIterations: {1}", x, numIterations);
}
void ch3Example()
{
Interpreter interp = RaytraceInterpreter.MakeInterp();
interp.Run(@"
[ canvas linear-algebra ] USE-MODULES
: OFFSETS [ 0 1 2 3 4 5 6 7 8 9 10 11 ] ;
: DELTA-ANGLE 2 PI * 12 / ;
: p0 1 0 0 Point ;
: Canvas-SIZE 500 ;
: PointS OFFSETS 'DELTA-ANGLE * ROTATION-Z p0 *' MAP ;
: scale 200 200 0 SCALING ;
: translate 250 250 0 TRANSLATION ;
: transform [ scale translate ] CHAIN ;
: Canvas-PointS PointS 'transform SWAP *' MAP ;
: white 1 1 1 Color ;
'canvas' VARIABLE
: CHART canvas @ ;
: XY DUP 'x' REC@ SWAP 'y' REC@ ; # ( point -- x y )
Canvas-SIZE DUP Canvas canvas !
Canvas-PointS 'CHART SWAP XY white WRITE-PIXEL' FOREACH
CHART >PPM
");
dynamic ppmData = interp.StackPop();
writeFile("ch3.ppm", ppmData.StringValue);
Debug.WriteLine("Howdy");
}
void ch7Example()
{
Interpreter interp = RaytraceInterpreter.MakeInterp();
interp.Run(@"
[ canvas linear-algebra intersection shader scene ] USE-MODULES
[ 'camera' 'world' 'sphere_data' 'transform' 'material' ] VARIABLES
: WORLD-LIGHT -10 10 -10 Point 1 1 1 Color PointLight ;
: CAM-TRANSFORM ( 0 1.5 -5 Point ) ( 0 1 0 Point ) ( 0 1 0 Vector ) VIEW-TRANSFORM ;
: FLOOR-TRANSFORM 10 0.01 10 SCALING ;
: FLOOR-MATERIAL Material 1 0.9 0.9 Color 'color' <REC! 0 'specular' <REC! ;
: LEFT-WALL-TRANSFORM [ 10 0.01 10 SCALING PI 2 / ROTATION-X PI -4 / ROTATION-Y 0 0 5 TRANSLATION ] CHAIN ;
: LEFT-WALL-MATERIAL FLOOR-MATERIAL ;
: RIGHT-WALL-TRANSFORM [ 10 0.01 10 SCALING PI 2 / ROTATION-X PI 4 / ROTATION-Y 0 0 5 TRANSLATION ] CHAIN ;
: RIGHT-WALL-MATERIAL FLOOR-MATERIAL ;
: BALL1-TRANSFORM -0.5 1 0.5 TRANSLATION ;
: BALL1-MATERIAL Material 0.1 1 0.5 Color 'color' <REC! 0.7 'diffuse' <REC! 0.3 'specular' <REC! ;
: BALL2-TRANSFORM [ 0.5 0.5 0.5 SCALING 1.5 0.5 -0.5 TRANSLATION ] CHAIN ;
: BALL2-MATERIAL Material 0.5 1 0.1 Color 'color' <REC! 0.7 'diffuse' <REC! 0.3 'specular' <REC! ;
: BALL3-TRANSFORM [ 0.33 0.33 0.33 SCALING -1.5 0.33 -0.75 TRANSLATION ] CHAIN ;
: BALL3-MATERIAL Material 1 0.8 0.1 Color 'color' <REC! 0.7 'diffuse' <REC! 0.3 'specular' <REC! ;
[
[ FLOOR-TRANSFORM FLOOR-MATERIAL ]
[ LEFT-WALL-TRANSFORM LEFT-WALL-MATERIAL ]
[ RIGHT-WALL-TRANSFORM RIGHT-WALL-MATERIAL ]
[ BALL1-TRANSFORM BALL1-MATERIAL ]
[ BALL2-TRANSFORM BALL2-MATERIAL ]
[ BALL3-TRANSFORM BALL3-MATERIAL ]
] sphere_data !
: SET-TRANSFORM transform @ 'transform' <REC! ;
: SET-MATERIAL material @ 'material' <REC! ;
: ADD-SPHERE ( material ! transform ! ) world @ Sphere SET-TRANSFORM SET-MATERIAL ADD-OBJECT ;
: ADD-SPHERES sphere_data @ 'UNPACK ADD-SPHERE' FOREACH ;
: WORLD! World WORLD-LIGHT 'light' <REC! world ! ;
: CAMERA! 100 50 PI 3 / Camera CAM-TRANSFORM 'transform' <REC! camera ! ;
: INIT CAMERA! WORLD! ADD-SPHERES ;
:RUN INIT camera @ world @ RENDER >PPM ;
RUN
");
dynamic ppmData = interp.StackPop();
writeFile("ch7.ppm", ppmData.StringValue);
}
void ch2Example()
{
Interpreter interp = RaytraceInterpreter.MakeInterp();
double pos(string axis)
{
interp.Run(String.Format("{0}-POS", axis));
DoubleItem item = (DoubleItem)interp.StackPop();
return(item.DoubleValue);
}
interp.RegisterModule(new Ch1Module());
interp.Run(@"
[ Ch1 canvas ] USE-MODULES
[ '_canvas' '_color' ] VARIABLES
900 550 Canvas _canvas !
0 0 1 Color _color !
: CHART _canvas @ ;
");
interp.Run("0 1 0 Point POSITION!");
interp.Run("1 1.8 0 Vector NORMALIZE 11.25 * VELOCITY!");
double y = pos("Y");
int numIterations = 0;
while (y > 0)
{
interp.Run("TICK");
interp.Run("CHART ( X-POS 900 >CLAMPED-INT ) ( Y-POS 550 >CLAMPED-INT 550 FLIP-Y ) _color @ WRITE-PIXEL");
y = pos("Y");
numIterations++;
}
double x = pos("X");
interp.Run("CHART >PPM");
dynamic ppmData = interp.StackPop();
writeFile("ch2.ppm", ppmData.StringValue);
Debug.WriteLine("distance: {0}, numIterations: {1}", x, numIterations);
}
void ch5Example()
{
Interpreter interp = RaytraceInterpreter.MakeInterp();
interp.CurModule().AddWord(new ShadeIfHitWord("SHADE-IF-HIT"));
interp.Run(@"
[ canvas linear-algebra intersection shader ] USE-MODULES
[ 'ray_origin' 'wall_z' 'wall_size' 'canvas_pixels' 'pixel_size' 'half' ] VARIABLES
0 0 -5 Point ray_origin !
10 wall_z !
7 wall_size !
100 canvas_pixels !
wall_size @ canvas_pixels @ / pixel_size !
wall_size @ 2.0 / half !
[ 'canvas' 'color' 'shape' 'light' ] VARIABLES
canvas_pixels @ DUP Canvas canvas !
Sphere shape !
( -10 10 -10 Point ) ( 1 1 1 Color ) PointLight light !
( shape @ 'material' REC@ ) 1 0.2 1 Color 'color' REC!
# shape @ [ 1 0.5 1 SCALING 0.1 -0.1 -2 TRANSLATION ] CHAIN 'transform' REC!
[ '_x' '_y' ] VARIABLES
: WORLD-Y half @ pixel_size @ _y @ * - ;
: WORLD-X pixel_size @ _x @ * half @ - ;
: POS WORLD-X WORLD-Y wall_z @ Point ;
: RAY ray_origin @ DUP POS SWAP - NORMALIZE Ray ;
: XS shape @ RAY INTERSECTS ;
[ canvas_pixels @ DUP ] '_y ! _x ! SHADE-IF-HIT' FOR
canvas @ >PPM
");
dynamic ppmData = interp.StackPop();
writeFile("ch5.ppm", ppmData.StringValue);
}
void ch4Example()
{
Interpreter interp = RaytraceInterpreter.MakeInterp();
interp.CurModule().AddWord(new WriteHitWord("WRITE-HIT"));
interp.Run(@"
[ canvas linear-algebra intersection ] USE-MODULES
[ 'ray_origin' 'wall_z' 'wall_size' 'canvas_pixels' 'pixel_size' 'half' ] VARIABLES
0 0 -5 Point ray_origin !
10 wall_z !
7 wall_size !
100 canvas_pixels !
wall_size @ canvas_pixels @ / pixel_size !
wall_size @ 2.0 / half !
[ 'canvas' 'color' 'shape' ] VARIABLES
canvas_pixels @ DUP Canvas canvas !
1 0 0 Color color !
Sphere shape !
# shape @ [ 0.1 0.5 1 SCALING 0.1 -0.2 -2 TRANSLATION ] CHAIN 'transform' REC!
[ '_x' '_y' ] VARIABLES
: WORLD-Y half @ pixel_size @ _y @ * - ;
: WORLD-X pixel_size @ _x @ * half @ - ;
: POS WORLD-X WORLD-Y wall_z @ Point ;
: RAY ray_origin @ DUP POS SWAP - NORMALIZE Ray ;
: XS shape @ RAY INTERSECTS ;
: HIT? XS HIT NULL == NOT ;
[ canvas_pixels @ DUP ] '_y ! _x ! WRITE-HIT' FOR
canvas @ >PPM
");
dynamic ppmData = interp.StackPop();
writeFile("ch4.ppm", ppmData.StringValue);
}
