steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

images.*: fix all image>stream words in extra so that they work with the added parameter

db4
Björn Lindqvist 2014-03-09 13:08:23 +01:00 committed by John Benediktsson
parent 944718c817
commit 13dc01dbc4
5 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/images/bitmap/bitmap.factor
View File

@ -428,5 +428,4 @@ M: bmp-image stream>image* ( stream bmp-image -- bitmap )
] bi ;
M: bmp-image image>stream
drop BGR reorder-components output-bmp ;
2drop BGR reorder-components output-bmp ;

2
extra/images/pbm/pbm.factor
View File

@ -76,7 +76,7 @@ M: pbm-image stream>image*
drop [ [ read-pbm ] throw-on-eof ] with-input-stream ;
M: pbm-image image>stream
drop {
2drop {
[ drop "P4\n" ascii encode write ]
[ dim>> first number>string " " append ascii encode write ]
[ dim>> second number>string "\n" append ascii encode write ]

2
extra/images/ppm/ppm.factor
View File

@ -50,7 +50,7 @@ M: ppm-image stream>image*
drop [ [ read-ppm ] throw-on-eof ] with-input-stream ;
M: ppm-image image>stream
drop {
2drop {
[ drop "P6\n" ascii encode write ]
[ dim>> first number>string " " append ascii encode write ]
[ dim>> second number>string "\n" append ascii encode write ]

11
extra/images/testing/testing.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2009 Keith Lazuka.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors fry images images.loader images.normalization
images.viewer io io.backend io.directories io.encodings.binary
io.files io.pathnames io.streams.byte-array kernel locals
USING: accessors assocs fry images images.loader images.normalization
images.loader.private images.viewer io io.backend io.directories
io.encodings.binary io.files io.pathnames io.streams.byte-array kernel locals
namespaces quotations random sequences serialize tools.test ;
IN: images.testing
@ -42,8 +42,9 @@ PRIVATE>
f verbose-tests? [
path load-image dup clone normalize-image 1quotation swap
'[
binary [ _ image-class image>stream ] with-byte-writer
image-class load-image* normalize-image
binary [
_ image-class [ types get value-at ] keep image>stream
] with-byte-writer image-class load-image* normalize-image
] unit-test
] with-variable ;

3
extra/images/tga/tga.factor
View File

@ -257,7 +257,7 @@ M: tga-image stream>image*
drop [ [ read-tga ] throw-on-eof ] with-input-stream ;
M: tga-image image>stream
drop
2drop
[
component-order>> { BGRA BGRA } member? [ bad-tga-unsupported ] unless
] keep
@ -287,4 +287,3 @@ M: tga-image image>stream
]
[ bitmap>> write ]
} cleave ;