Sorry your browser is not supported!

Rem Project: Arrays_lesson
Rem Created: Monday, August 09, 2010

Rem ***** Main Source File *****
sync on
sync rate 0
randomize timer()

Load Bitmap "layout.bmp", 1 `a 256 by 256 bitmap that uses only the 6 colors in the array 
Set Current Bitmap 1
Lock Pixels
dim Pixel(256,256) 
for x=1 to 256
   for z=1 to 256
      IF RGBR = (point(x,z)) = 255 Then Pixel (x,z)= 0            `red
      IF RGBG = (point(x,z)) = 255 Then Pixel (x,z)= 1            `green
      IF RGBB = (point(x,z)) = 255 Then Pixel (x,z)= 2            `blue
      IF RGBR =0 and RGBG = 0 and RGBB = 0 Then Pixel(x,z)= 3     `black
      If RGBR =255 and RGBG =255 and RGBB =255 Then Pixel(x,z)= 4 `white
      If RGBR =127 and RGBG =127 and RGBB =127 Then Pixel(x,z)= 5 `grey
   next z
next x
Unlock Pixels 
Delete Bitmap

sync on
sync rate 0
randomize timer()

Load Bitmap "layout.png", 1 `a 512 by 512 image that uses only the 6 colors in the array (you could have thousands of possible colors)
Set Current Bitmap 1
Lock Pixels
dim Pixel(512,512) 
for x = 0 to 511
   for z = 0 to 511
      IF RGBR (point(x,z)) = 255 Then Pixel (x,z)= 0                                                  `red
      IF RGBG (point(x,z)) = 255 Then Pixel (x,z)= 1                                                  `green
      IF RGBB (point(x,z)) = 255 Then Pixel (x,z)= 2                                                  `blue
      IF RGBR (point(x,z))=0 and RGBG(point(x,z)) = 0 and RGBB(point(x,z)) = 0 Then Pixel(x,z)= 3     `black
      If RGBR (point(x,z))=255 and RGBG(point(x,z)) =255 and RGBB(point(x,z)) =255 Then Pixel(x,z)= 4 `white
      If RGBR (point(x,z))=127 and RGBG(point(x,z)) =127 and RGBB(point(x,z)) =127 Then Pixel(x,z)= 5 `grey
   next z
next x
Unlock Pixels 
Delete Bitmap

For x = 0 to 511
	For z = 0 to 511
		If Pixel (x,z) = 0
		Inc ojb
		Make object box obj, 1
		Position Object obj, x,0,z
    ENDIF
	NEXT Z
NEXT X

Rem Project: Image grabbing tool
Rem Created: Tuesday, August 10, 2010

Rem ***** Main Source File *****
dim sav$(32,32)
load image "media\cherry.bmp",1,1
paste image 1,0,0
for x=0 to 31
    for n=31 to 0 step -1
        if point(n,x)<>0
            inc count
            a#=point(n,x)
            sav$(x,n)=str$(a#)
        endif
    next n
next x
save array "sprite.dat",sav$(0)
wait 100
cls
wait 100
for x=0 to 31
    for n=31 to 0 step -1
        if val(sav$(n,x))<>0
            dot x,n,val(sav$(n,x))
        endif
    next
next 
get image 1,0,0,32,32,1
do
paste image 1,rnd(800),rnd(600),1
sync
LOOP

Dim pixel (256,256,3)

Dim Pixels$ (256,256)
load image "layout.bmp",1
paste image 1,0,0
Lock Pixels 
for x=0 to 255
    for z=255 to 0 step -1
 		rv = RGBR (Point(x,z))
		gv = RGBG (Point(x,z))
		bv = RGBG (Point(x,z))
  		IF rv = 255 Then Pixels$(x,z)= str$(0)                         `red
  		IF gv = 255 Then Pixels$(x,z)= str$(1)                         `green
  		IF bv = 255 Then Pixels$(x,z)= str$(2)                         `blue
  		IF rv =0 and gv = 0 and bv = 0 Then Pixels$(x,z)= str$(3)      `black
  		If rv =255 and gv =255 and bv =255 Then Pixels$(x,z)= str$(4)  `white
  		If rv =127 and gv =127 and bv =127 Then Pixels$(x,z)= str$(5)  `grey		
    NEXT z
NEXT x
save array "lyot.txt", pixels$(0)
Unlock pixels
Delete Image 1 
Wait 100 
CLS  	
Do

Sync
Wait key
LOOP