version 1.36, 2005/06/05 22:11:09
|
version 1.39, 2005/09/27 13:50:43
|
Line 42 require string.fs
|
Line 42 require string.fs
|
case |
case |
'& of ." &" endof |
'& of ." &" endof |
'< of ." <" endof |
'< of ." <" endof |
'¤ of ." €" endof |
\ '¤ of ." €" endof |
dup emit |
dup emit |
endcase |
endcase |
LOOP ; |
LOOP ; |
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 |
|
FVariable factor 1e factor f! |
|
|
: 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 214 Create jfif $FF c, $D8 c, $FF c, $E0 c
|
Line 217 Create jfif $FF c, $D8 c, $FF c, $E0 c
|
2dup img-sizes search-wordlist IF drop 2drop |
2dup img-sizes search-wordlist IF drop 2drop |
ELSE |
ELSE |
get-current >r img-sizes set-current |
get-current >r img-sizes set-current |
nextname Create 2dup , , size-does> |
nextname Create 2dup |
|
s>d d>f factor f@ f* f>d d>s , |
|
s>d d>f factor f@ f* f>d d>s , |
|
size-does> |
r> set-current |
r> set-current |
THEN ; |
THEN ; |
|
|
Line 508 true Value toc-image
|
Line 514 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= |