Commit b9a055e0 authored by Bernd Paysan's avatar Bernd Paysan

Do exif search only on likely JPEG

parent c9625c03
Pipeline #1107 passed with stage
in 10 minutes and 2 seconds
......@@ -66,10 +66,11 @@ glue new glue-right !
: album-image ( addr u n -- )
imgs[] $[] @ >o image-tex
2dup "\xFF\xD8\xFF" string-prefix?
IF mem-exif [: 2dup >thumb-scan ;] catch drop exif>
ELSE img-orient off THEN
mem>texture img-orient @ 1- 0 max dup to rotate#
4 and IF swap THEN dup to image-h over to image-w
IF mem-exif [: 2dup >thumb-scan ;] catch drop
img-orient @ 1- 0 max dup to rotate# exif>
ELSE 0 THEN >r
mem>texture
r> 4 and IF swap THEN dup to image-h over to image-w
wh>tile-glue o> ;
: album-reload ( n -- )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment