Return to wf.fs CVS log | Up to [gforth] / gforth |
version 1.27, 2004/08/29 20:54:48 | version 1.28, 2004/12/01 10:03:00 |
---|---|
Line 161 Create jfif $FF c, $D8 c, $FF c, $E0 c | Line 161 Create jfif $FF c, $D8 c, $FF c, $E0 c |
gif? IF gif-size rdrop EXIT THEN | gif? IF gif-size rdrop EXIT THEN |
jpg? IF r> jpg-size EXIT THEN | jpg? IF r> jpg-size EXIT THEN |
png? IF png-size rdrop EXIT THEN | png? IF png-size rdrop EXIT THEN |
0 0 ; | 0 0 rdrop ; |
: .img-size ( addr u -- ) | : .img-size ( addr u -- ) |
r/o open-file IF drop EXIT THEN >r | r/o open-file IF drop EXIT THEN >r |