extra/gml/examples/torus.gml

   1 usereg\r
   2 \r
   3 [ (-1,-1,0) (1,-1,0)\r
   4   (1,1,0) (-1,1,0) ] !poly\r
   5 \r
   6 :poly 1 poly2doubleface\r
   7 dup edgemate exch\r
   8 1 1 extrude-simple !f0 !f1\r
   9 \r
  10 :poly { 0.5 mul } map reverse\r
  11 5 poly2doubleface\r
  12 dup edgemate exch\r
  13 -1 1 extrude-simple\r
  14 !r0 !r1\r
  15 \r
  16 :r0 :f0 killFmakeRH\r
  17 :r1 :f1 killFmakeRH\r