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

benchmark.yuv-to-rgb: use TYPED: instead of HINTS:

db4
Slava Pestov 2010-04-23 07:43:36 -04:00
parent 279eb461b1
commit 0ddaba8adb
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/benchmark/yuv-to-rgb/yuv-to-rgb.factor
View File

@ -1,11 +1,12 @@
! Copyright (C) Chris Double. ! Copyright (C) Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.accessors alien.c-types alien.syntax byte-arrays USING: alien.accessors alien.c-types alien.syntax byte-arrays
destructors generalizations hints kernel libc locals math math.order destructors generalizations kernel libc locals math math.order
sequences sequences.private classes.struct accessors alien.data ; sequences sequences.private classes.struct accessors alien.data
typed ;
IN: benchmark.yuv-to-rgb IN: benchmark.yuv-to-rgb
STRUCT: yuv_buffer STRUCT: yuv-buffer
{ y_width int } { y_width int }
{ y_height int } { y_height int }
{ y_stride int } { y_stride int }
@ -19,7 +20,7 @@ STRUCT: yuv_buffer
:: fake-data ( -- rgb yuv ) :: fake-data ( -- rgb yuv )
1600 :> w 1600 :> w
1200 :> h 1200 :> h
yuv_buffer <struct> :> buffer yuv-buffer <struct> :> buffer
w h * 3 * <byte-array> :> rgb w h * 3 * <byte-array> :> rgb
rgb buffer rgb buffer
w >>y_width w >>y_width
@ -79,14 +80,12 @@ STRUCT: yuv_buffer
pick y_width>> iota pick y_width>> iota
[ yuv>rgb-pixel ] with with with with each ; inline [ yuv>rgb-pixel ] with with with with each ; inline
: yuv>rgb ( rgb yuv -- ) TYPED: yuv>rgb ( rgb: byte-array yuv: yuv-buffer -- )
[ 0 ] 2dip [ 0 ] 2dip
dup y_height>> iota dup y_height>> iota
[ yuv>rgb-row ] with with each [ yuv>rgb-row ] with with each
drop ; drop ;
HINTS: yuv>rgb byte-array yuv_buffer ;
: yuv>rgb-benchmark ( -- ) : yuv>rgb-benchmark ( -- )
[ fake-data yuv>rgb ] with-destructors ; [ fake-data yuv>rgb ] with-destructors ;