Diff for /gforth/wf.fs between versions 1.36 and 1.37

version 1.36, 2005/06/05 22:11:09 version 1.37, 2005/06/13 19:36:41
Line 192  Create jfif   $FF c, $D8 c, $FF c, $E0 c Line 192  Create jfif   $FF c, $D8 c, $FF c, $E0 c
   scratch r> 0 max /string 0 max -zeros    scratch r> 0 max /string 0 max -zeros
   dup IF  '. emit  THEN  type ;    dup IF  '. emit  THEN  type ;
   
   12.9e FConstant pixels
   
 : size-does> ( -- )  DOES> ( -- )  : size-does> ( -- )  DOES> ( -- )
     ." img." dup body> >name .name      ." img." dup body> >name .name
     2@ ." { width: "      2@ ." { width: "
     s>d d>f 13.8e f/ f.size ." em; height: "      s>d d>f pixels f/ f.size ." em; height: "
     s>d d>f 13.8e f/ f.size ." em; }" cr ;      s>d d>f pixels f/ f.size ." em; }" cr ;
   
 : size-css ( file< > -- )  : size-css ( file< > -- )
     outfile-id >r      outfile-id >r

Removed from v.1.36  
changed lines
  Added in v.1.37


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