Sorry your browser is not supported!

// Project: loader 
// Created: 2017-12-02
 
// show all errors
SetErrorMode(2)
 
#constant width=1024
#constant height=768
 
// set window properties
SetWindowTitle( "loader" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 0,0,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
 
 
global title as string = "PROGRAM - ARGONAUGHTS" // Change this for the title of the app
global titledata as string ="DATA - ARGODATA"
 
 
// Setup your title screen
global spectrum_titlespr as integer
global spectrum_title_on as integer = 0
spectrum_titlespr = createsprite(LoadImage("test.png"))
SetSpritePosition(spectrum_titlespr,width,50)
SetSpriteSize(spectrum_titlespr, width-100, height-100)
 
 
// Setup the text display for what its loading
global program as integer 
program = CreateText("") : SetTextSize(program,20) : SetTextColor(program,0,0,0,255)
 
 
global red : red= MakeColor(255,0,0)
global cyan : cyan= MakeColor(0,100,255)
global yellow : yellow = MakeColor(255,255,0)
global blue :blue = MakeColor(0,0,255)
global black : black= MakeColor(0,0,0)
global white :white= makecolor(255,255,255)
 
 
 
spectrumload()
 
 
// Game loop start
do
     
     
    Print( ScreenFPS() )
    Sync()
loop
 
function spectrumload() 
    //spectrum_load_data(yellow, blue, 300,-1,2)
 
//  setspritesize(spectrum_titleimg,width-100,height-100)
//  spectrum_load_data(cyan, cyan, 50,-1,1)
 
    spectrum_load_data(red, cyan, 50,0,1)
    spectrum_load_data(yellow, blue, 10,-1,2)
 
    SetTextString(program, title)
    spectrum_load_data(cyan, cyan, 50,-1,1)
     
    spectrum_load_data(red, cyan, 50,0,1)
    spectrum_load_data(yellow, blue, 50,-1,2)
    spectrum_load_data(cyan, cyan, 50,-1,1)
    spectrum_load_data(red, cyan, 50,0,1)
    spectrum_load_data(yellow, blue, 10,-1,2)
 
    SetTextString(program, titledata)
    spectrum_load_data(cyan, cyan, 20,-1,1)
 
    spectrum_load_data(red, cyan, 50,0,1)
     
    SetTextString(program, "")
    spectrum_title_on=1
     
    spectrum_load_data(yellow, blue, 200,-1,2)
 
    spectrum_title_on=2
    spectrum_load_data(cyan, cyan, 50,-1,1)
 
    spectrum_load_data(red, cyan, 50,0,1)
    spectrum_load_data(yellow, blue, 50,-1,2)
    spectrum_load_data(cyan, cyan, 50,-1,1)
 
 
    spectrum_load_data(red, cyan, 50,0,1)
    spectrum_load_data(yellow, blue, 300,-1,2)
 
    DeleteSprite(spectrum_titlespr)
 
endfunction
 
// LoadType = 1 = Steady read
//            2 = Frantic read
 
function spectrum_load_data(barcol1, barcol2, delay, framesync, loadtype)
     
    if loadtype = 1
        rand1=random(10,20)
        rand2=random(10,20)
    endif
    line=50
    for delays=0 to delay
        if loadtype = 2
            rand1=random(10,20)
            rand2=random(10,20)
        endif
     
        for a=-500 to height step rand1+rand2
            drawbox(0,a+framesync,width,a+rand1+framesync, barcol1,barcol1,barcol1,barcol1,1)
            drawbox(0,a+rand1+framesync,width,a+rand1+rand2+framesync, barcol2, barcol2, barcol2, barcol2,1)
        next
 
        if framesync=>0 then inc framesync
         
        if spectrum_title_on = 1
            Render2DFront()
            SetSpritePosition(spectrum_titlespr, 50, 50)
            Render2DBack()
            DrawBox(50,line,width-50,height-50,black,black,black,black,1)
            line = line+5
            if line>height-50 then line = height-50
         
        else
            if spectrum_title_on = 2
                Render2DFront()
                SetSpritePosition(spectrum_titlespr,50,50)
                Render2DBack()
            else
                Render2DBack()
                DrawBox(50,50,width-50,height-50,white,white,white,white,1)
 
                SetTextPosition(program,60,60)
                Render2DFront()
            endif
        endif
         
        print(ScreenFPS())
        //Render2DFront()
            //Render2DFront()
    //  Render2DBack()
        sync()
 
 
//      DeleteSprite(spectrum_titlespr)
         
    next
 
endfunction

// Project: scanline 
// Created: 2018-02-04

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "scanline" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetVirtualResolution(640,480)
SetSyncRate(60, 0 ) 

gun = createSprite(loadImage("gun.png"))
gunw = createSprite(loadImage("gun_white.png"))
setSpriteColorAlpha(gunW, 200)

setSpritePosition(gun, 100, 100)
setSpritePosition(gunw, 100, 100)

scan = createSprite(loadImage("glow.png"))
setSpriteSize(scan, 640, 16)

// make highlighted sprite show above the scanline
setSpriteDepth(gunw, 9)

scanY = 0

do

	// move scanline vertically
	inc scanY
	setSpritePosition(scan, 0, scanY)
	
	
	// Only show highlighted gun graphic that's under the scanline
	setSpriteScissor(gunw, 0, scanY, 640, scanY+16)
	
	
	if scanY > 480 then scanY = -16

    Print( ScreenFPS() )
    Sync()
loop

 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "test" )
SetWindowSize( 640, 480, 0 )
 
// set display properties
SetVirtualResolution(640,480)
SetSyncRate(60, 0 ) 
gunImg = loadImage("gun.png")

gun = createSprite(gunImg)

setSpritePosition(gun, 100, 0)


// With memoryblock
mem = CreateMemblockFromImage(gunImg ) 
size = GetMemblockSize(mem)
for c = 12 to size - 1 step 4
	if(GetMemblockByte(mem, c + 3)>0)
		SetMemblockByte(mem, c, 255)
		SetMemblockByte(mem, c + 1, 255)
		SetMemblockByte(mem, c + 2, 255)
	endif
next c
gunW1 = CreateSprite(CreateImageFromMemblock(mem))
setSpritePosition(gunW1, 100, 150)

//With shader
shader = LoadSpriteShader("white.ps")
gunW2 =CloneSprite(gun)
setSpritePosition(gunW2, 100, 300)
SetSpriteShader(gunW2,shader)
do
	if(GetPointerReleased())
		SetSpriteColor(gunW2, random(0,255),random(0,255),random(0,255),255)
	endif
    Sync()
loop

uniform sampler2D texture0;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;

void main()
{
    vec4 pix = texture2D(texture0,uvVarying);
	if(pix.a > 0.0)
		pix = vec4(1.0,1.0,1.0,pix.a);
    gl_FragColor = pix*colorVarying;
}

// Project: Scan Line Shader
// Created: 2018-02-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Scan Line Shader" )
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( 0, 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

ImageID=LoadImage("gun.png")
SpriteID=CreateSprite(ImageID)

RenderImageID=CreateRenderImage(1920,1080,0,0)
ShaderID=LoadFullScreenShader("Scanline.ps")

QuadID=CreateObjectQuad()
SetObjectImage(QuadID,RenderImageID,0)
SetObjectShader(QuadID,ShaderID)

SetObjectShaderConstantByName(QuadID,"speed",0.1,0,0,0)
SetObjectShaderConstantByName(QuadID,"width",0.05,0,0,0)
SetObjectShaderConstantByName(QuadID,"baseColor",0.1,0.4,0.8,0)
SetObjectShaderConstantByName(QuadID,"highlightColor",2.0,2.0,2.0,0)

do
    Print( ScreenFPS() )

	Update(0)
	SetRenderToImage(RenderImageID,0)
	ClearScreen()
	Render()
	SetRenderToScreen()
	DrawObject(QuadID)
	Swap()
loop

uniform sampler2D texture0;
varying mediump vec2 uvVarying;

uniform float agk_time;
uniform float speed;
uniform float width;
uniform vec3 baseColor;
uniform vec3 highlightColor;

void main()
{
	vec3 finalColor = texture2D(texture0, uvVarying).rgb;
	float pos = fract(agk_time*speed);
	vec3 tempColor = finalColor;
	float scanLine = smoothstep(pos-width,pos,uvVarying.y) - step(pos,uvVarying.y);
	finalColor += scanLine * baseColor;
	tempColor *= scanLine * highlightColor;
	finalColor += tempColor;
    gl_FragColor = vec4(finalColor,1.0);
}