[wadalabfont-kit] / renderer / newjoint.l  

Diff of /renderer/newjoint.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:20 2003 UTC version 1.5, Thu Jul 3 11:42:38 2003 UTC
Line 35 
Line 35 
          (aprim)           (aprim)
          (param)(yscale)(centerp)           (param)(yscale)(centerp)
          (newalist `((xlimitratio . 1.0) .,alist))           (newalist `((xlimitratio . 1.0) .,alist))
          (xunit))           (xunit)(xlimit))
   (do ((l primlist (cdr l))    (do ((l primlist (cdr l))
        (i 0 (1+ i))         (i 0 (1+ i))
        (prim)         (prim)
Line 117 
Line 117 
          (param)(xscale)           (param)(xscale)
 ;        (newalist `((ylimitratio . 0.5)(xlimitratio . 0.1) .,alist))  ;        (newalist `((ylimitratio . 0.5)(xlimitratio . 0.1) .,alist))
          (realregion)(region)           (realregion)(region)
          (yunit))           (yunit)(ylimit))
   (do ((l primlist (cdr l))    (do ((l primlist (cdr l))
        (i 0 (1+ i))(prim)         (i 0 (1+ i))(prim)
 ;       (yunitsum 0)  ;       (yunitsum 0)
Line 147 
Line 147 
 ;                 (virtual-region '(nil nil) '(0 0 200 400))  ;                 (virtual-region '(nil nil) '(0 0 200 400))
 ;                 (car nprims) `((ylimit 0 . 50).,newalist) '(0 0 200 400))  ;                 (car nprims) `((ylimit 0 . 50).,newalist) '(0 0 200 400))
 ;                affines)))  ;                affines)))
   ;
   ;
   ;    (prind (car nprims))(prind (car affines))
     (setq prim (affinepart (car nprims) (car affines)))      (setq prim (affinepart (car nprims) (car affines)))
     (push (xunit prim 200.0) xunits)      (push (xunit prim 200.0) xunits)
 ;    (setq yunitsum (plus yunitsum (yunit prim 100.0)))  ;    (setq yunitsum (plus yunitsum (yunit prim 100.0)))

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

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help