#! /bin/sh
echo '(setq a 0) (defun deg (x) (* #.(/ 3.1415926535897932384626433 180) x)) (progn (princ "START") (terpri) (while (< a 360) (let ((x (* (cos (deg a)) 1500)) (y (* (sin (deg a)) 1500))) (print a) (princ " ") (print x) (princ " ") (print y) (princ " ") (print (- x)) (princ " ") (print (- y)) (terpri)) (setq a (+ a 3))) (princ "END") (terpri)) ' |
  $HOME/muck.new/lisp/lisp |
  sed -e 1,/START/d -e /END/,\$d |
  while read a x y nx ny; do
	( sed -e "2s/.*/$x $y 0/" -e "3s/.*/$nx $ny 0/" < pref.m
	  gen-m ) | render1 | pnmgamma 1.7 > img.`printf %03d $a`
done