mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-22 07:10:42 -08:00
27 lines
508 B
Plaintext
27 lines
508 B
Plaintext
// 3dPlot
|
|
//
|
|
// Converted from BASIC to MiniScript by Joe Strout
|
|
|
|
print " "*32 + "3D PLOT"
|
|
print " "*15 + "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
print; print; print
|
|
e = 2.71828
|
|
|
|
fna = function(z)
|
|
return 30 * e^(-z*z/100)
|
|
end function
|
|
|
|
for x in range(-30, 30, 1.5)
|
|
lastZ = 0
|
|
y1 = 5 * floor(sqrt(900-x*x)/5)
|
|
for y in range(y1, -y1, -5)
|
|
z = floor(25+fna(sqrt(x*x+y*y))-.7*y)
|
|
if z > lastZ then
|
|
print " "*(z-lastZ) + "*", ""
|
|
lastZ = z
|
|
end if
|
|
end for
|
|
print
|
|
wait 0.1 // (optional)
|
|
end for
|