Commit f4ce6660 authored by Bernd Paysan's avatar Bernd Paysan

Default orintation is 0

parent 73291f62
Pipeline #1121 failed with stage
in 8 minutes and 19 seconds
......@@ -68,7 +68,7 @@ glue new glue-right !
2dup "\xFF\xD8\xFF" string-prefix?
IF mem-exif [: 2dup >thumb-scan ;] catch drop nothrow
img-orient @ 1- 0 max dup to rotate# exif>
ELSE 0 THEN >r
ELSE 0 0 to rotate# THEN >r
mem>texture
r> 4 and IF swap THEN dup to image-h over to image-w
wh>tile-glue o> ;
......
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