Gouraud filler and some code for rendering an object. Incorrect x clipping. PI = 3.14159265 *3* 58979323... (you only need the first 5-7 digits anyway...)
Source for a gouraud filler, requires GEMA to compile - Needs GEMA. No useful comments. For TASM and MASM users, remember that GEMA's nmenonics are operation source, destination.
Source for an effect full 4k intro. I can't tell what language most of the comments are in. The 100% register gouraud shaded texture innerloop is particularly clever.