Monkey-X - Smoothed noisy rainbow from pallete - code example.monkey

Import mojo

Class theimage
    Field image:Image
    Field pixels:Int[]
    Field width:Int
    Field height:Int
    Method New()
        Self.width = DeviceWidth()
        Self.height = DeviceHeight()
        pixels = New Int[width*height]
        image = CreateImage(width,height)
        makeimage
        image.WritePixels(pixels, 0, 0, width, height, 0)
    End Method
    Method makeimage()
        ' here we make the 
        ' noisy rainbow
        Local x:Int
        Local ty:Int
        Local cnt:Int
        Local sc:Int 'dheight with num of cols
        For Local i:Int = 0 Until width*height
            Local col:Int=sc
            If sc<15
            If Rnd((16-ty)+4) < 2
                col+=1
            End If
            End If
            pixels[i] = argb(    spread.r[col],
                                spread.g[col],
                                spread.b[col])
            x+=1
            If x>width
                x=0
                cnt+=1
                ty+=1
                If ty>height/16
                    ty=0
                End If
                If cnt>height/16
                    cnt=0
                    sc+=1
                End If
            End If
        Next
        
        For Local ii=0 Until 20
        For Local i:Int = 0 Until width*(height-1)
			Local r1:Int=getred(pixels[i])
			Local g1:Int=getgreen(pixels[i])
			Local b1:Int=getblue(pixels[i])
			Local r2:Int=getred(pixels[i+1])
			Local g2:Int=getgreen(pixels[i+1])
			Local b2:Int=getblue(pixels[i+1])
			Local r3:Int=getred(pixels[i+width])
			Local g3:Int=getgreen(pixels[i+width])
			Local b3:Int=getblue(pixels[i+width])
			Local ra:Int=(r1+r2+r3)/3
			Local ga:Int=(g1+g2+g3)/3
			Local ba:Int=(b1+b2+b3)/3
			pixels[i] = argb(ra,ga,ba)
       Next
       next
            
    End Method
End Class

Class colorspread16
    Field r:Float[16]
    Field g:Float[16]
    Field b:Float[16]
    Method New(    r1:Int,g1:Int,b1:Int,
                r2:Int,g2:Int,b2:Int)
        Local sr:Float
        Local sg:Float
        Local sb:Float
        If r1>r2
            sr = (r1-r2)/16
            For Local i:Float=0 Until 16 Step 1
                r[i] = r1-(i*sr)
            Next
            Else
            sr = (r2-r1)/16
            For Local i:Float=0 Until 16 Step 1
                r[i] = r1+i*sr
            Next
        End If
        If g1>g2
            sg = (g1-g2)/16
            For Local i:Float=0 Until 16 Step 1
                g[i] = g1-(i*sg)
            Next
            Else
            sg = (g2-g1)/16
            For Local i:Float=0 Until 16 Step 1
                g[i] = g1+i*sg
            Next
        End If
        If b1>b2
            sb = (b1-b2)/16
            For Local i:Float=0 Until 16 Step 1
                b[i] = b1-(i*sb)
            Next
            Else
            sb = (b2-b1)/16
            For Local i:Float=0 Until 16 Step 1
                b[i] = b1+i*sb
            Next
        End If

    End Method
End Class

Global spread:colorspread16
Global myimage:theimage

Class MyGame Extends App
    Field cnt:Int
    Field r:Int[2]
    Field g:Int[2]
    Field b:Int[2]
    Method OnCreate()
        SetUpdateRate(60)
        Seed = GetDate[5]
        For Local i=0 To 1
            r[i] = Rnd(0,255)
            g[i] = Rnd(0,255)
            b[i] = Rnd(0,255)
        Next
        spread = New colorspread16(    r[0],g[0],b[0],
                                    r[1],g[1],b[1])            
        myimage = New theimage()
    End Method
    Method OnUpdate()        
        cnt+=1
        If cnt>200
            cnt=0
            For Local i=0 To 1
                r[i] = Rnd(0,255)
                g[i] = Rnd(0,255)
                b[i] = Rnd(0,255)
            Next
            spread = New colorspread16(    r[0],g[0],b[0],
                                        r[1],g[1],b[1])            
            myimage = New theimage()
        End If
    End Method
    Method OnRender()
        Cls 0,0,0 
        SetColor 255,255,255
        DrawImage myimage.image,0,0
        ' Draw the text
           SetColor 255,255,255
           DrawText     "Monkey-X - Making Noisy Smoothed "+
                       " Rainbows - Example",0,0                   
    End Method
End Class



Function argb:Int(r:Int, g:Int, b:Int ,alpha:Int=255)
   Return (alpha Shl 24) | (r Shl 16) | (g Shl 8) | b          
End Function


Function getred:Int(rgba:Int)    
    Return((rgba Shr 16) & $FF)    
End Function
              
Function getgreen:Int(rgba:Int)    
    Return((rgba Shr 8) & $FF)    
End Function
    
Function getblue:Int(rgba:Int)    
    Return(rgba & $FF)    
End Function
    
Function getalpha:Int(rgba:Int)    
    Return ((rgba Shr 24) & $FF)    
End Function

Function Main()
    New MyGame()
End Function