[wadalabfont-kit] / renderer / out2ps.l  

Diff of /renderer/out2ps.l

Parent Directory | Revision Log

version 1.5, Wed Jul 2 12:37:45 2003 UTC version 1.6, Thu Jul 3 02:01:26 2003 UTC
Line 1 
Line 1 
 ;  ;
 ; $BAH9g$o$;$N$?$a$@$1$KB8:_$9$k2>A[E*$J(Bxlimit, ylimit  
 ; $B$H$$$&%(%l%a%s%H$r=|$/(B  
 ;  
 (defun rm-limit (prim)  
   (do ((l (cadr prim) (cdr l))(ret))  
     ((atom l)`(,(car prim) ,(nreverse ret).,(cddr prim)))  
     (or (memq (caar l) '(xlimit ylimit))  
         (push (car l) ret))))  
 ;  
 ; $B%U%!%$%k$N%X%C%@$N=PNO(B  ; $B%U%!%$%k$N%X%C%@$N=PNO(B
 ;  ;
   
 (defun outputFileHeader (scale)  (defun outputFileHeader (scale line col)
     (format "%!/n%%BoundingBox: 45 45 /c /c/n"      (format "%!/n%%BoundingBox: 45 45 /c /c/n"
             (plus 55 (fix (times 0.001 scale (- (* line 500) 100))))              (plus 55 (fix (times 0.001 scale (- (* line 500) 100))))
             (plus 55 (fix (times 0.001 scale (- (* col 500) 100)))))              (plus 55 (fix (times 0.001 scale (- (* col 500) 100)))))
Line 207 
Line 198 
 ;  ;
 ; $B%Z!<%8$4$H$N%X%C%@$N=PNO(B  ; $B%Z!<%8$4$H$N%X%C%@$N=PNO(B
 ;  ;
 (defun outputPageHeader (page file printfile)  (defun outputPageHeader (page psfile printfile scale )
   (lets ((date (date-time)))    (lets ((date (date-time)))
     (format "50 50 translate/n0.001 /c mul dup scale/n" scale)      (format "50 50 translate/n0.001 /c mul dup scale/n" scale)
     (format "//Helvetica findfont 70 scalefont setfont/n")      (format "//Helvetica findfont 70 scalefont setfont/n")
Line 232 
Line 223 
         (ii nil)(jj nil)(page nil)(last nil)          (ii nil)(jj nil)(page nil)(last nil)
         (skeleton)(hints)(type1)(kstr)          (skeleton)(hints)(type1)(kstr)
         (next nil)(nextnext nil)(x1 nil)(y1 nil)(x2 nil)(y2 nil))          (next nil)(nextnext nil)(x1 nil)(y1 nil)(x2 nil)(y2 nil))
     (outputFileHeader scale)      (outputFileHeader scale line col)
     (setq ii 0 jj 0 page 1)      (setq ii 0 jj 0 page 1)
     (outputPageHeader page psfile printfile)      (outputPageHeader page psfile printfile scale)
     (do      (do
         ((ol outlines (cdr ol))          ((ol outlines (cdr ol))
          (l nil))           (l nil))
Line 284 
Line 275 
              (cond ((and (eq jj line)(consp (cdr ol)))               (cond ((and (eq jj line)(consp (cdr ol)))
                     (format "showpage/n")                      (format "showpage/n")
                     (setq page (1+ page))                      (setq page (1+ page))
                     (outputPageHeader page psfile printfile)                      (outputPageHeader page psfile printfile scale)
                     (setq jj 0))))                      (setq jj 0))))
             (t (format "0 500 translate/n"))))              (t (format "0 500 translate/n"))))
     (format "showpage/n")))      (format "showpage/n")))

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help