Pascal Coding

I Initially started coding in Turbo Pascal while I was at school. My earliest versions all consisted of simple rotation, of cubes etc. Later on I decided that by modelling 3D parametric Graphs I could produce something a little more interesting.

The top left image shows a bizarre Cigar shaped image based on the parametric equation

X = 500 * sin(q/10) * cos(f/10)

Y = 500 * cos(q/10) * cos(f/10)

Z = 500 * sin(f/10) * (q/10)

The top right image shows a funnel shaped image based on the parametric equation

X = 500 * cos(cos(q/20) -p/2)) * cos((f/10) - p)

Y = 500 * cos(cos(q/20) -p/2)) * sin((f- p)

Z = 500 * sin(sin(q/20) -p/2))

The bottom left image shows a view from the inside of a sphere (I promise you!) based on the parametric equation

X = 500 * cos(q/10) * cos(f/10)

Y = 500 * cos(q/10) * sin(f/10)

Z = 500 * sin(q/10)

The bottom right image shows a torus based on the parametric equation

X = 500 * (2 + cos(q/10)) * cos(f/10)

Y = 500 * (2 + cos(q/10)) * sin(f/10)

Z = 500 * sin(q/10)

To see the Turbo Pascal code click here.

To download the executable click here