SGT's model

[moebius2.git] / sgtatham / z.typescript

diff --git a/sgtatham/z.typescript b/sgtatham/z.typescript
new file mode 100644 (file)
index 0000000..920cd72
--- /dev/null
+++ b/sgtatham/z.typescript
@@ -0,0 +1,8 @@
+\e[0;32m: stormhawk;\e[m\e(B maxima -b z.max | perl -pe 's/\\\n//sg' | tail -1 | perl -pe 'BEGIN \r{print "set urange [0:1]\nset vrange [0:pi]\nset parametric\nset hidden\nset iso \rsamples 30\nsplot "} s/^.*\[(.*)\].*$/$1/; s/%pi/pi/g; s:\^:**:g'\r
+set urange [0:1]\r
+set vrange [0:pi]\r
+set parametric\r
+set hidden\r
+set isosamples 30\r
+splot u*cos(v)-(1-u)*cos(v),(u*sin(v)*sin(pi*cos(v)/2)+(1-u)*sin(v)*sin(pi*cos(v)/2))*sin(pi*(u*cos(v)-(1-u)*cos(v))/2)-1.5*((1-u)*(0.66666666666667*sin(v)*cos(pi*cos(v)/2)+cos(v)**2)+u*(cos(v)**2-0.66666666666667*sin(v)*cos(pi*cos(v)/2))-(u*cos(v)-(1-u)*cos(v))**2)*cos(pi*(u*cos(v)-(1-u)*cos(v))/2),1.5*((1-u)*(0.66666666666667*sin(v)*cos(pi*cos(v)/2)+cos(v)**2)+u*(cos(v)**2-0.66666666666667*sin(v)*cos(pi*cos(v)/2))-(u*cos(v)-(1-u)*cos(v))**2)*sin(pi*(u*cos(v)-(1-u)*cos(v))/2)+(u*sin(v)*sin(pi*cos(v)/2)+(1-u)*sin(v)*sin(pi*cos(v)/2))*cos(pi*(u*cos(v)-(1-u)*cos(v))/2)\r
+\e[0;32m: stormhawk;\e[m\e(B \e[Kexit\r