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