Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 ; 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: