COBOL-CASTER

A day spent trying out COBOL by porting over a raycaster. Has only one sphere and no shading whatsoever. The code's pretty ugly.

Usage

Compile: cobc -free -x -o cast main.cbl sphereintersect.cbl dot.cbl vsub.cbl cross.cbl vadd.cbl vscale.cbl vnorm.cbl camera.cbl

Run: ./cast

Output

Pretend that's a sphere.

................................................................................
................................................................................
................................................................................
................................................................................
..............................................XXXXXXXXX.........................
..............................................XXXXXXXXX.........................
...........................................XXXXXXXXXXXXXXX......................
...........................................XXXXXXXXXXXXXXX......................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
..........................................XXXXXXXXXXXXXXXXX.....................
...........................................XXXXXXXXXXXXXXX......................
...........................................XXXXXXXXXXXXXXX......................
..............................................XXXXXXXXX.........................