Image noise: Difference between revisions

m (moved Categorys to top / Category:Raster graphics operations)
Line 1,590:
 
=={{header|MAXScript}}==
<lang MAXScript>
try destroydialog testRollout catch ()
 
fn randomBitmap width height =
(
local newBmp = bitmap width height
for row = 0 to (height-1) do
(
local pixels = for i in 1 to width collect (colorwhite*random 2550 255 2551)
for index = 1 to pixels.count do
(
pixels[index].value = 255*(random 0 1)
)
setpixels newBmp [0,row] pixels
)
return newBmp
)
 
rollout testRollout "Test" width:320 height:240
(
bitmap image width:320 height:240 pos:[0,0]
timer updateTimer interval:1 active:true
on updateTimer tick do
(
Line 1,621 ⟶ 1,616:
local endTime = timestamp()
local fps = ((endTime-startTime)/1000.0)*60.0
if mod updatetimer.ticks 10 == 0 do (testRollout.title = ("Test (FPS: "+fps as string+")"))
)
)
 
createdialog testrollout
</lang>
Anonymous user