Sorry your browser is not supported!

Function pickColor(X,Y)
    local color,img 
    //color as integer
    rem prepare image grab area
    clearScreen()
    render()
    
    img = getImage(X,Y,X+1,Y+1)
    
    rem create memblock
       
    mem = createMemblockfromImage(img)
    
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
    
       
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    clearScreen()
    color = makeColor(r,g,b)
    //color=0
endfunction color

    image = LoadImage('map.png')
    width = GetImageWidth(image)
    height = GetImageHeight(image)

    OpenToWrite(1, "map.txt", 0)
    local color_pick as RVBColorType
    for i = 0 to width
        for j = 0 to height
            color_pick = pickColor(i, j)
            // WriteString(1, Str(color_pick.red) + "," + Str(color_pick.green) + "," + Str(color_pick.blue))
        next j
    next i
    CloseFile(1)
endfunction

function pickColor(x, y)
    local color_pick as RVBColorType
    local make_color
    local img
    // color as integer
    // prepare image grab area

    ClearScreen()
    Render()

    img = GetImage(x, y, x + 1, y + 1)

    // create memblock
    mem = createMemblockfromImage(img)

    // get memblock data
    r = getMemblockbyte(mem, 12)
    g = getMemblockbyte(mem, 13)
    b = getMemblockbyte(mem, 14)

    DeleteMemblock(mem)
    DeleteImage(img)
    ClearScreen()
    make_color = makeColor(r, g, b)

    color_pick.red = r
    color_pick.green = g
    color_pick.blue = b
    // color = 0
endfunction color_pick

    global image,mem

    createmap()
    dispose()

        do

        sync()
        loop

function createmap()
    image = LoadImage('map.png')
    mem = createMemblockfromImage(image)

    width = GetImageWidth(image)
    height = GetImageHeight(image)
 
    OpenToWrite(1, "map.txt", 0)
    local color_pick as RVBColorType
    for i = 0 to width
        for j = 0 to height
            color_pick = pickColor(i, j)
            // WriteString(1, Str(color_pick.red) + "," + Str(color_pick.green) + "," + Str(color_pick.blue))
        next j
    next i
    CloseFile(1)

endfunction


function pickColor(x, y)
    local color_pick as RVBColorType
    local make_color
    
    width = GetImageWidth(image)
    offset = 12 + ((y * width ) + x) * 4 
    // get memblock data
    r = getMemblockbyte(mem, offset)
    g = getMemblockbyte(mem, offset+1)
    b = getMemblockbyte(mem, offset+2)
 
    make_color = makeColor(r, g, b)
 
    color_pick.red = r
    color_pick.green = g
    color_pick.blue = b
    // color = 0
endfunction color_pick
        
function dispose()

    DeleteMemblock(mem)
    DeleteImage(img)
    ClearScreen()
endfunction

type myText
	id as integer		:rem id of sprite
	x as integer  		:rem x axis
	y as integer		:rem y-axis
	img as integer		:rem holds the image number for the sprite
endtype
#constant font =1
#constant Bg=1000 
#constant startText =100
// set window properties
SetWindowTitle( "Test set pivot" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
LoadFont(font,"KenneyThick.ttf")
intro()
end 

function intro()
logo as integer
logoImg as integer
AGKlogo as integer
AGKlogoImg as integer
strlen as integer

//logo=LoadObject("KrazyGrandPrix3DLogo.obj")
//logoImg=LoadImage("KrazyGrandPrix3DLogoD.png")
//SetObjectImage(logo,logoImg,0)
//SetObjectScale(logo,.2,.2,.2)
//SetObjectPosition(logo,0,8.25,0)

AGKlogo=LoadObject("AGKlogo.obj")
AGKlogoImg=LoadImage("AGKlogoD.png")
SetObjectImage(AGKlogo,AGKlogoImg,0)
SetObjectScale(AGKlogo,.25,.25,.25)
SetObjectPosition(AGKlogo,0,-2.0,0)

textSpr as myText[90]
setupCredits(textSpr)
repeat
	fubarpkTextScroll(textSpr)
    RotateOBjectLocalY(AGKlogo,1)
    //RotateOBjectLocalX(logo,.5)
    Sync()
until GetPointerPressed()
DeleteAllObjects()
DeleteAllSprites()
DeleteAllText()
DeleteAllImages()
endfunction

function fubarpkTextScroll(textSpr ref as myText[])
num as integer 
strlen as integer
strlen=textSpr.length
for num = 1 to strlen
	textSpr[num].x=textSpr[num].x-1
	if GetSpriteExists(textSpr[num].id) then SetSpritePosition(textSpr[num].id,textSpr[num].x,textSpr[num].y)
	if textSpr[num].x <-20 then textSpr[num].x=GetWindowWidth() +280
next num
endfunction 

function setupCredits(textSpr ref as myText[])
text$ as string	
num  as integer
strlen as integer
rem Credits text
text$=("Credits fubarpk, Blink0k, Bengismo, Chafari, Rick Nasher, Kenney, and TGC forums"):strLen=len(text$)
//global dim textSpr[strLen] as myText
for num=1 to strLen 
	textSpr[num].id=num+startText+(num-1)
	textSpr[num].img=num+startText+(num-1)
	textSpr[num].x=(num-1)*15
	textSpr[num].y=GetWindowHeight()-33
	textSpr[num].img=fubarpkCreateTextImage(Mid(text$,num,1))
	createSprite(textSpr[num].id,textSpr[num].img)
	SetSpriteSize(textSpr[num].id,32,32)
	SetSpriteColor(textSpr[num].id,255,255,255,255) 
	SetSpriteTransparency(textSpr[num].id,1)
	SetSpriteDepth(textSpr[num].id,10)
	SetSpriteGroup(textSpr[num].id,1)
next num 
endfunction 

function fubarpkCreateTextImage (myString as string)
	img as integer
	CreateSprite(bg,0)
	SetSpriteSize(bg,150,150)
	SetSpriteColor(bg,0,0,0,255)
	clearscreen()
	CreateText(startText,myString)
	SetTextFont(startText,font)
	SetTextSize(startText,28)
	SetTextPosition(startText,0,0)
	Render()
	img=GetImage(0,0,50,50):ClearScreen()
	SetImageTransparentColor( img,0,0,0 )
	DrawSprite(bg)
	ClearScreen()
	DeleteText(startText):deleteSprite(bg)
endfunction img

12 + ((y * width ) + x) * 4

type _imagemap
	image as integer
	mem as integer
endtype	
local imagemap as _imagemap
 
    createmap(imagemap)
    dispose()
 
        do
 
        sync()
        loop
 
function createmap(imagemap ref as _imagemap)
    imagemap.image = LoadImage('map.png')
    imagemap.mem = createMemblockfromImage(imagemap.image)
 
    width = GetImageWidth(imagemap.image)
    height = GetImageHeight(imagemap.image)
  
    OpenToWrite(1, "map.txt", 0)
    local color_pick as RVBColorType
    for i = 0 to width
        for j = 0 to height
            color_pick = pickColor(i, j)
            // WriteString(1, Str(color_pick.red) + "," + Str(color_pick.green) + "," + Str(color_pick.blue))
        next j
    next i
    CloseFile(1)
 
endfunction
 
 
function pickColor(x, y,imagemap as _imagemap)
    local color_pick as RVBColorType
    local make_color
     
    width = GetImageWidth(imagemap.image)
    offset = 12 + ((y * width ) + x) * 4 
    // get memblock data
    r = getMemblockbyte(mem, offset)
    g = getMemblockbyte(mem, offset+1)
    b = getMemblockbyte(mem, offset+2)
  
    make_color = makeColor(r, g, b)
  
    color_pick.red = r
    color_pick.green = g
    color_pick.blue = b
    // color = 0
endfunction color_pick
         
function dispose(imagemap as _imagemap)
 
    DeleteMemblock(imagemap.mem)
    DeleteImage(imagemap.img)
    ClearScreen()
endfunction

type _imagemap
    image as integer
    mem as integer
endtype
local imagemap as _imagemap
  
    createmap(imagemap)
    dispose(imagemap)  // tweaked
  
        do
  
        sync()
        loop
  
function createmap(imagemap ref as _imagemap)
    imagemap.image = LoadImage('map.png')
    imagemap.mem = createMemblockfromImage(imagemap.image)
  
    width = GetImageWidth(imagemap.image)
    height = GetImageHeight(imagemap.image)
   
    OpenToWrite(1, "map.txt", 0)
    local color_pick as RVBColorType
    for i = 0 to width
        for j = 0 to height
            color_pick = pickColor(i, j, imagemap)  // tweaked
            WriteString(1, Str(color_pick.red) + "," + Str(color_pick.green) + "," + Str(color_pick.blue)) //uncommented this as now can let loose with it now lol
        next j
    next i
    CloseFile(1)
  
endfunction
  
  
function pickColor(x, y,imagemap as _imagemap)
    local color_pick as RVBColorType
    local make_color
      
    width = GetImageWidth( imagemap.image)
    offset = 12 + ((y * width ) + x) * 4 
    // get memblock data
    r = getMemblockbyte(imagemap.mem, offset)      // tweaked
    g = getMemblockbyte(imagemap.mem, offset+1) // tweaked
    b = getMemblockbyte(imagemap.mem, offset+2) // tweaked
   
    make_color = makeColor(r, g, b)
   
    color_pick.red = r
    color_pick.green = g
    color_pick.blue = b
    // color = 0
endfunction color_pick
          
function dispose(imagemap as _imagemap)
  
    DeleteMemblock(imagemap.mem)
    DeleteImage(imagemap.img)
    ClearScreen()
endfunction

    image = LoadImage('map.png')
    mem = createMemblockfromImage(image)

    width = GetImageWidth(image)
    height = GetImageHeight(image)

    OpenToWrite(1, "map.txt", 0)
    local color_pick as RVBColorType
    for i = 0 to width
        for j = 0 to height
            color_pick = pickColor(i, j, mem, image)  // tweaked
            // WriteString(1, Str(color_pick.red) + "," + Str(color_pick.green) + "," + Str(color_pick.blue)) // uncommented this as now can let loose with it now lol
        next j
    next i
    DeleteMemblock(mem)
    DeleteImage(image)
    ClearScreen()
    CloseFile(1)
endfunction

function pickColor(x, y, mem, image)
    local color_pick as RVBColorType
    local make_color

    width = GetImageWidth(image)
    offset = 12 + ((y * width ) + x) * 4
    // get memblock data
    r = getMemblockbyte(mem, offset)      // tweaked
    g = getMemblockbyte(mem, offset + 1) // tweaked
    b = getMemblockbyte(mem, offset + 2) // tweaked

    make_color = makeColor(r, g, b)

    color_pick.red = r
    color_pick.green = g
    color_pick.blue = b
    // color = 0
endfunction color_pick

// Project: testimage 
// Created: 2019-01-31

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "testimage" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 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


type RVBColorType
	red
	green
	blue
endtype

type _imagemap
    image as integer
    mem as integer
endtype
local imagemap as _imagemap
   
    createmap(imagemap)
    dispose(imagemap)  // tweaked
   
        do
   
        sync()
        loop
   
function createmap(imagemap ref as _imagemap)
    imagemap.image = LoadImage('map.png')
    imagemap.mem = createMemblockfromImage(imagemap.image)
   
    width = GetImageWidth(imagemap.image)
    height = GetImageHeight(imagemap.image)
    
    OpenToWrite(1, "map.txt", 0)
    local color_pick as RVBColorType
    for i = 0 to width-1
        for j = 0 to height-1
            color_pick = pickColor(i, j, imagemap)  // tweaked
            WriteString(1, Str(color_pick.red) + "," + Str(color_pick.green) + "," + Str(color_pick.blue)) //uncommented this as now can let loose with it now lol
        next j
    next i
    CloseFile(1)
   
endfunction
function pickColor(x, y,imagemap as _imagemap)
    local color_pick as RVBColorType
    local make_color
       
    width = GetImageWidth( imagemap.image)
    offset = 12 + ((y * width ) + x) * 4 
    // get memblock data
    r = getMemblockbyte(imagemap.mem, offset)      // tweaked
    g = getMemblockbyte(imagemap.mem, offset+1) // tweaked
    b = getMemblockbyte(imagemap.mem, offset+2) // tweaked
    
    make_color = makeColor(r, g, b)
    
    color_pick.red = r
    color_pick.green = g
    color_pick.blue = b
    // color = 0
endfunction color_pick
           
function dispose(imagemap as _imagemap)
   
    DeleteMemblock(imagemap.mem)
    DeleteImage(imagemap.image)
    ClearScreen()
endfunction

    if (GetFileExists("map.txt") = 1)
        OpenToRead(1, "map.txt")
            element$ = ReadString(1)
        CloseFile(1)
        nb_element = CountStringTokens(element$, ";")

        x = 0
        y = 0
        for i = 0 to nb_element - 1

            // LOAD HERE

            info$ = getstringtoken(element$, ";", i + 1)
            x = Val(getstringtoken(info$,":",1))
            y = Val(getstringtoken(info$,":",2))
            r = Val(getstringtoken(info$,":",3))
            g = Val(getstringtoken(info$,":",4))
            b = Val(getstringtoken(info$,":",5))
            draw_pixel_rgb(x, y, r, g, b)
        next i
    endif

    if (GetFileExists("map.txt") = 0)
        local color_pick as RGBColorType
        mem = createMemblockfromImage(image)

        // sprite_game_type[0].length = 10
        for i = 0 to screen_game_type.resolution_x/screen_game_type.size
            for j = 0 to screen_game_type.resolution_y/screen_game_type.size
                draw_pixel(i, j)
            next j
        next i

        element$ = ""
        for i = 0 to screen_game_type.resolution_x/screen_game_type.size
            for j = 0 to screen_game_type.resolution_y/screen_game_type.size
                color_pick = pickColor(i, j, mem, image)  // tweaked

                // SAVE HERE

                element$ = element$ + Str(i) + ":" + Str(j) + ":" + Str(color_pick.red) + ":" + Str(color_pick.green) + ":" + Str(color_pick.blue) + ";" // uncommented this as now can let loose with it now lol
            next j
        next i

        DeleteMemblock(mem)
        DeleteImage(image)
        ClearScreen()

        OpenToWrite(1, "map.txt", 0)
                WriteString(1, element$)
        CloseFile(1)
    endif

globalarray = test( globalarray )
function test( arry as integer[] ) 
 arry[0] = 12
endfunction arry

    if (GetFileExists("map.txt") = 1)
        OpenToRead(1, "map.txt")
            element$ = ReadString(1)
        CloseFile(1)
        nb_element = CountStringTokens(element$, ";")

        x = 0
        y = 0
        for i = 0 to nb_element - 1
            info$ = getstringtoken(element$, ";", i + 1)
            nb_follow   = Val(getstringtoken(info$,":",1))
            r           = Val(getstringtoken(info$,":",2))
            g           = Val(getstringtoken(info$,":",3))
            b           = Val(getstringtoken(info$,":",4))
            for k = 0 to nb_follow
                draw_pixel_rgb(x, y, r, g, b)
                y = y + 1
                if (y > screen_game_type.resolution_y/screen_game_type.size)
                    x = x + 1
                    y = 0
                endif
            next k
        next i
    endif

    if (GetFileExists("map.txt") = 0)
        local color_pick as RGBColorType
        mem = createMemblockfromImage(image)

        // sprite_game_type[0].length = 10
        for i = 0 to screen_game_type.resolution_x/screen_game_type.size
            for j = 0 to screen_game_type.resolution_y/screen_game_type.size
                draw_pixel(i, j)
            next j
        next i

        nb_element = 0
        element$ = ""
        color_pick_old as RGBColorType
        for i = 0 to screen_game_type.resolution_x/screen_game_type.size
            for j = 0 to screen_game_type.resolution_y/screen_game_type.size
                color_pick = pickColor(i, j, mem, image)  // tweaked
                if i = 0 and j = 0
                    color_pick_old = color_pick
                endif

                if color_pick_old.red <> color_pick.red or color_pick_old.green <> color_pick.green or color_pick_old.blue <> color_pick.blue
                    element$ = element$ + Str(nb_element) + ":" + Str(color_pick_old.red) + ":" + Str(color_pick_old.green) + ":" + Str(color_pick_old.blue) + ";"
                    nb_element = 0
                endif
                if i = screen_game_type.resolution_x/screen_game_type.size and j = screen_game_type.resolution_y/screen_game_type.size
                    element$ = element$ + Str(nb_element) + ":" + Str(color_pick.red) + ":" + Str(color_pick.green) + ":" + Str(color_pick_old.blue) + ";"
                endif
                if color_pick_old.red = color_pick.red and color_pick_old.green = color_pick.green and color_pick_old.blue = color_pick.blue
                    nb_element = nb_element + 1
                endif
                color_pick_old = color_pick
            next j
        next i

        DeleteMemblock(mem)
        DeleteImage(image)
        ClearScreen()

        OpenToWrite(1, "map.txt", 0)
                WriteString(1, element$)
        CloseFile(1)
    endif