[REBOL] Re: Can Rebol Do?. (was) Re: International REBOL Use
From: agem:crosswinds at: 4-May-2001 17:51
[rebol [
comment: {
JUF (just for fun):
if iam done this right, /view can
grayscale and dump an image 500x350
in ~2.5sec (k2/350)
dump means, it extracts one color from each
pixel in a loop (*175000) (dont know which color :).
should do this
" tricky part.. Image encoding must be direct hex stream (1,2,4
or 8 bits per pixel, greyscale)"
with 8bit/pixel?
don't know if its fast enough compared to native tools,
and you need a running x-server with access for the cgi-owner
to use it.. (or windows?)
now learning pdf ..
oh yes, the code is high dirty,
yell if you need cleanup :)
Volker
}]
;---
;some helpers
;debug2/cmd source ???
???: func ['wort wert] [
print [mold :wort " : " mold wert]
wort wert
]
;---
;get image
b: load read-thru
;http://www.rebol.com/view/demos/palms.jpg
http://www.rebolforces.com/reb/images/rebolt.jpg
probe type? b
??? a: b/size
;---
;a bit show-sugar before
h: to image! layout [origin 0x0 image b effect [grayscale]]
view layout [
title "here is the used picture"
across image b image h
return
button "benchmark" [unview/all]
text "read on console.."
;box a effect[cross]
]
??? c: a/x * a/y
d: make binary! c
;---
; the benchmark (!!)
do [
t1: now/precise
;---
;the real working part.. !!!!
i: to image! layout [origin 0x0 image b effect [grayscale]]
repeat f divide length? i 4 [
insert tail d to char! i/:f/1
]
??? t2: now/time/precise - t1/time
]
probe length? d
;halt
]
>>>>>>>>>>>>>>>>>> Ursprüngliche Nachricht <<<<<<<<<<<<<<<<<<
Am 04.05.01, 08:24:18, schrieb Joanna Kurki <[belymt--saunalahti--fi]> zum
Thema [REBOL] Re: Can Rebol Do?. (was) Re: International REBOL Use: