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= |