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

version 1.36, 2005/06/05 22:11:09 version 1.38, 2005/06/28 15:22:45
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
Line 508  true Value toc-image Line 510  true Value toc-image
                 3  OF  s" down" class=  ENDOF                  3  OF  s" down" class=  ENDOF
             ENDCASE              ENDCASE
         THEN          THEN
         s" a" tagged          s" a" tag parse-string s" a" /tag
     THEN      THEN
     rdrop      rdrop
     1 toc-index +! toc-index @ /toc-line mod 0=      1 toc-index +! toc-index @ /toc-line mod 0=

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


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