Geoff Canyon wrote:
The file doesn't appear to be accessible within RevOnline. I get an
error message file-not-found when I try it. If the code in question
is of a manageable size and format (no really long lines) then
posting it here is likely the best option. Otherwise (and in any
case), can you re-upload the stack, or make it available some other way?
There's a problem with RevOnline. Here's the central part of Jon's code
-- move image data into im1
repeat with r = 1 to imH
repeat with c = 1 to imW
#need to reverse for Mac and post MC 2.4.2 engines!!
if the platform is "MacOS" or version()>"2.4.2" then
put charToNum(char tPos + 4 of timagedata) into tB1[r,c]
put charToNum(char tPos + 3 of timagedata) into tG1[r,c]
put charToNum(char tPos + 2 of timagedata) into tR1[r,c]
else
put charToNum(char tPos + 1 of timagedata) into tB1[r,c]
put charToNum(char tPos + 2 of timagedata) into tG1[r,c]
put charToNum(char tPos + 3 of timagedata) into tR1[r,c]
end if
put tPos + 4 into tPos
end repeat
end repeat
on ComputeHistogram
repeat with i = 0 to maxHist
put 0 into histo[i]
end repeat
repeat with r = 1 to imH
repeat with c = 1 to imW
put Brightness(c, r) into i
add 1 to histo[i]
end repeat
end repeat
end ComputeHistogram
on ApplyTransferFunction
local b
repeat with r = 1 to imH
repeat with c = 1 to imW
put Brightness(c, r) into b
put (transfer[b] + 1) / (b + 1) into adjFactor
AdjustBrightness(r, c, adjFactor)
end repeat
end repeat
--
Alex Tweedly http://www.tweedly.net
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.2/29 - Release Date: 27/06/2005
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
