Sorry your browser is not supported!

    // Generate image from memblock
    size = width * height* 4 + 12
    mem = CreateMemblock(size)
    SetMemblockInt(mem,0,width)
    SetMemblockInt(mem,4,height)
    SetMemblockInt(mem,8,32)
    
    offset as integer = 12
    
    for y = 0 to height- 1
        for x = 0 to width- 1

            noise = random(0,255)

            SetMemblockByte(mem, offset, noise)     // red
            SetMemblockByte(mem, offset+1, noise) // green
            SetMemblockByte(mem, offset+2, noise) // blue 
            SetMemblockByte(mem, offset+3, 255)  //alpha
   
            offset = offset + 4
        next
    next
   
    mapspriteimage = CreateImageFromMemblock(mem)
  

width as integer = 100
height as integer = 100

// Generate image from memblock
size = width * height* 4 + 12
mem = CreateMemblock(size)
SetMemblockInt(mem,0,width)
SetMemblockInt(mem,4,height)
SetMemblockInt(mem,8,32)
 
offset as integer = 12
 
for y = 0 to height- 1
    for x = 0 to width- 1
 
        noise = random(0,255)
 
        SetMemblockByte(mem, offset, noise)     // red
        SetMemblockByte(mem, offset+1, noise) // green
        SetMemblockByte(mem, offset+2, noise) // blue 
        SetMemblockByte(mem, offset+3, 255)  //alpha
 
        offset = offset + 4
    next
next
 
mapspriteimage = CreateImageFromMemblock(mem)

// Project: l 
// Created: 2018-11-08

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "l" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

width as integer = 100
height as integer = 100
 
// Generate image from memblock
size = width * height* 4 + 12
mem = CreateMemblock(size)
SetMemblockInt(mem,0,width)
SetMemblockInt(mem,4,height)
SetMemblockInt(mem,8,32)
  
offset as integer = 12
  
for y = 0 to height- 1
    for x = 0 to width- 1
  
        noise = random(0,255)
  
        SetMemblockByte(mem, offset, noise)     // red
        SetMemblockByte(mem, offset+1, noise) // green
        SetMemblockByte(mem, offset+2, noise) // blue 
        SetMemblockByte(mem, offset+3, 255)  //alpha
  
        offset = offset + 4
    next
next
  
mapspriteimage = CreateImageFromMemblock(mem)
sprite = CreateSprite(mapspriteimage)

do
	
	
	sync()
	
loop

// set window properties
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 

// set display properties
SetVirtualResolution( 1024, 768 )
length#=1
do
if length#<250 then length#=length#+.25	//grows at the rate of.25 increase the number to grow faster
cantor2(512,768,length#,270) //draws a growing tree
Sync()
loop

function cantor2(x as float,y as float,length as float,ang as integer)
local x2 as float
local y2 as float
if length>1	
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  DrawLine(x,y,x2,y2,MakeColor(255,255,255),MakeColor(255,255,255))
  cantor2(x2,y2,length/1.5,ang+15)
  cantor2(x2,y2,length/1.5,ang-15)
  
  //if you change the above to this it will add some randomness but if you 
  //try to draw gradually with the draw command it will appear as if there is wind
  //cantor2(x2,y2,length/1.5,ang+random(10,15))
  //cantor2(x2,y2,length/1.5,ang-random(10,15))
endif
endfunction

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
      
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
      
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
  
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img