sgtatham/z.typescript

   1 \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
   2 set urange [0:1]\r
   3 set vrange [0:pi]\r
   4 set parametric\r
   5 set hidden\r
   6 set isosamples 30\r
   7 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
   8 \e[0;32m: stormhawk;\e[m\e(B \e[Kexit\r