[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.38 and 1.39

version 1.38, Tue Jun 28 15:22:45 2005 UTC version 1.39, Tue Sep 27 13:50:43 2005 UTC
Line 42 
Line 42 
         case          case
             '& of  ." &"  endof              '& of  ." &"  endof
             '< of  ." &lt;"   endof              '< of  ." &lt;"   endof
             '¤ of  ." &euro;" endof  \           '¤ of  ." &euro;" endof
             dup emit              dup emit
         endcase          endcase
     LOOP ;      LOOP ;
Line 193 
Line 193 
   dup IF  '. emit  THEN  type ;    dup IF  '. emit  THEN  type ;
   
 12.9e FConstant pixels  12.9e FConstant pixels
   FVariable factor  1e factor f!
   
 : size-does> ( -- )  DOES> ( -- )  : size-does> ( -- )  DOES> ( -- )
     ." img." dup body> >name .name      ." img." dup body> >name .name
Line 216 
Line 217 
     2dup img-sizes search-wordlist  IF  drop 2drop      2dup img-sizes search-wordlist  IF  drop 2drop
     ELSE      ELSE
         get-current >r img-sizes set-current          get-current >r img-sizes set-current
         nextname Create 2dup , , size-does>          nextname Create 2dup
           s>d d>f factor f@ f* f>d d>s ,
           s>d d>f factor f@ f* f>d d>s ,
           size-does>
         r> set-current          r> set-current
     THEN ;      THEN ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help