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 |