13 Sep
2010
13 Sep
'10
6:42 p.m.
Incidentally the following postscript program produces the trefoil at http://boole.stanford.edu/Trefoil.jpg =====clip here======== %!PS /step { .01 exch 1 1 1 setrgbcolor 0 setlinewidth {/t exch def /r 4 3 t mul cos sub def 2 t mul sin r mul t sin 3 mul sub 2 t mul cos r mul t cos 3 mul add lineto currentpoint stroke moveto t 360 div 1 1 sethsbcolor 2 setlinewidth} for } def 36 36 scale 8.5 11 translate 0 0 moveto 0 360 step 1 -1 moveto 60 80 step showpage =====clip here======= [For admin and other information see: http://www.mta.ca/~cat-dist/ ]