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

version 1.38, 2005/06/28 15:22:45 version 1.39, 2005/09/27 13:50:43
Line 42  require string.fs Line 42  require string.fs
         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  Create jfif   $FF c, $D8 c, $FF c, $E0 c Line 193  Create jfif   $FF c, $D8 c, $FF c, $E0 c
   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  Create jfif   $FF c, $D8 c, $FF c, $E0 c Line 217  Create jfif   $FF c, $D8 c, $FF c, $E0 c
     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 ;
   

Removed from v.1.38  
changed lines
  Added in v.1.39


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>