Anonymous user
Image noise: Difference between revisions
m
→{{header|BBC BASIC}}
(Added BBC BASIC) |
|||
Line 231:
<lang bbcbasic> dx% = 320
dy% = 240
images% = 100000
VDU 23,22,dx%;dy%;8,8,16,0
REM Create a block of random data in memory:
DIM random% dx%*dy%+
FOR R% = random% TO random%+dx%*dy%+
?R% = RND(256)-1
NEXT
Line 253 ⟶ 254:
NEXT
REM Display image at a random
frame% = 0
TIME = 0
REPEAT
bmpfile.bfOffBits% = random% - bmpfile{} + RND(
OSCLI "MDISPLAY " + STR$~bmpfile{}
frame% += 1
|