diff --git a/00_Alternate_Languages/87_3-D_Plot/MiniScript/3dplot.ms b/00_Alternate_Languages/87_3-D_Plot/MiniScript/3dplot.ms new file mode 100644 index 00000000..0cf1e516 --- /dev/null +++ b/00_Alternate_Languages/87_3-D_Plot/MiniScript/3dplot.ms @@ -0,0 +1,26 @@ +// 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 diff --git a/00_Alternate_Languages/87_3-D_Plot/MiniScript/README.md b/00_Alternate_Languages/87_3-D_Plot/MiniScript/README.md new file mode 100644 index 00000000..f52e8746 --- /dev/null +++ b/00_Alternate_Languages/87_3-D_Plot/MiniScript/README.md @@ -0,0 +1,3 @@ +Original source downloaded from [Vintage Basic](http://www.vintage-basic.net/games.html). + +Conversion to [MiniScript](https://miniscript.org).