#! /usr/local/bin/scm  --

;;
;; make slanted fonts
;;   min  -> minsl*
;;   goth -> gothsl*
;;


(define *PL2TF*
	"/usr/local/src/TeX/ASCII-JTeX1.7/jtex/TeXware/pltotf/pltotf")

(define *fonts*
  (quote
   ("min" "goth")))

(define *points*
  (quote
   ("5" "6" "7" "8" "9" "10" "12" "17")))

(define *slants* 
  (quote
   (( "0.0000000" "a")
    ( "0.1736482" "b")
    ( "0.3420201" "c")
    ( "0.5000000" "d")
    ("-0.1736482" "e")
    ("-0.3420201" "f")
    ("-0.5000000" "g"))))

(define (do-it)
  (for-each
   (lambda (font)
     (for-each
      (lambda (point)
	(for-each
	 (lambda (slant)
	   (make-it font point slant))
	 *slants*))
      *points*))
   *fonts*))

(define (make-it font point slant)
  ;;(display (list font point slant))
  (let 
      ((cmd1 
	(string-append 
	 "sed 's/^(DESIGNSIZE.*)$/(DESIGNSIZE R " point ".0)/' "
	 font point ".pl "
	 "| sed 's/(SLANT.*)/(SLANT R " (car slant) ")/' > " 
	 font "sl" (cadr slant) point ".pl"))
       (cmd2
	(string-append
	 *PL2TF* " " font "sl" (cadr slant) point ".pl "  
	 font "sl" (cadr slant) point ".tfm"))
       (cmd3
	(string-append
	 "cp " font point ".nwfadj "  font "sl" (cadr slant) point ".nwfadj")))
    ;
    ;;(newline)
    ;;(display cmd1)(newline)
    ;;(display cmd2)(newline)
    ;;(display cmd3)(newline)
    (system cmd1)
    (system cmd2)
    (system cmd3)))
      

(define (foo-make-it font point slant)
  (newline))


(do-it)
