Sorry your browser is not supported!

// Project: WebM_TransTest_FL 

// Project: WebM_TransTest_FL 
// Created: 2017-06-14

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "WebM_TransTest_FL" )
SetWindowSize( 400, 400, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 400, 400 ) // 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

vidID = LoadVideo("soccer1.webm")

bckID = CreateImageColor(100,255,100,255) // Lime Green

imgID = 1

PlayVideoToImage(imgID)
//PlayVideo()

 SetImageTransparentColor(imgID,129,129,128) // from "Just Color Picker"

bcksprID = CreateSprite (bckID)
SetSpriteScale(bcksprID,200,200) // for test, if transparent
SetSpritePosition(bcksprID,80,80)


sprID = CreateSprite(imgID)
sv2ID = CreateSprite(imgID)

SetSpritePosition(sv2ID,220,220) // to proof, if it is possible, to play multiple same-videos at once

//SetSpriteColorBlue(sprID,100) // only for test

SetSpriteTransparency( sprID, 1 ) // should be default

SetSpriteScale(sprID,0.5,0.5)

do
    Print( Str(ScreenFPS(),2) )
    Print( Str(GetImageWidth(imgID),2))
    Print( Str(GetImageHeight(imgID),2))
    
    Sync()
loop

// Project: FL_TransparentVideo 
// Created: 2018-10-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "FL_TransparentVideo" )
SetWindowSize( 1280, 720, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1280, 720 ) // 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

vid = LoadVideo("Kerkerschrei_512x448_c_FL.mp4") // it's 510 by 450, but to avoid problems with multiple of 16 in the codec

img=LoadImage("Test_BG_2018_tex.jpg") // 1280 x 720, but now only 1024 x 512, to avoid problems on some GPUs

spr1 = 1

CreateSprite(spr1, img)
SetSpriteSize(spr1, 1280, 720)


spr = 2

//PlayVideo()

SetVideoDimensions(0,0,510,450)

PlayVideoToImage(vid)
CreateSprite(spr, vid)
SetSpriteImage(spr,vid)
//SetSpriteSize(spr, 510,450) // this blures the video

SetSpritePosition(spr, 480,160)

//time = GetVideoDuration()

do
    

    Print( ScreenFPS() )
    Sync()
    if GetVideoPlaying()
	
	else
	  PlayVideoToImage(vid)	
	endif	
loop

vidID=LoadVideo("pixelatedFlame.mp4")
PlayVideoToImage(vidImg)
SetImageTransparentColor(vidImg,0,0,0) 
CreateSprite(flameID,vidImg)
SetSpriteSize(flameID,swidth,sheight)
SetSpriteTransparency( flameID, 2 ) 
SetSpriteDepth(flameID,98)
PlayVideoToImage(vidImg)
SetImageTransparentColor(vidImg,0,0,0) 
SpriteDepth(flameID,98)

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "alhpa vid thingy" )
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

testvid = LoadVideo("Kerkerschrei_512x448_c_FL.mp4")

PlayVideoToImage(1)

vidspr = CreateSprite(1)


SetSpriteDepth(vidspr,1)

// some random background stuff
for t = 1 to 50
	CreateSprite(t+1,CreateImageColor(random2(0,255),random2(0,255),random(0,255),255))
	SetSpriteSize(t+1,random2(30,200),random(30,200))
	SetSpritePosition(t+1,random2(0,800),random(0,600))
next t
sync()

`SetSpriteVisible(vidspr,0)
SetSpriteTransparency(vidspr,1)

SetSpriteAnimation(vidspr,256,448,2)

do

	SetImageMask(1,1,4,1,-254,0)

    Print( ScreenFPS() )
    Sync()
loop

#ifdef GL_ES
    #ifdef GL_FRAGMENT_PRECISION_HIGH   
        precision highp float;
    #else
        precision mediump float;
    #endif
#endif

// constant values sent through from AGK code.
uniform sampler2D texture0; 
uniform float _cutoff_level;
varying vec2 uvVarying; // uv
varying vec4 colorVarying;
 
void main()
{
	gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
	if ((gl_FragColor.r < _cutoff_level) && (gl_FragColor.g < _cutoff_level) && (gl_FragColor.b < _cutoff_level)) discard;
}

// Project: vidmasktest 
// Created: 2018-10-27

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "vidmasktest" )
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

testvid = LoadVideo("Kerkerschrei_512x448_c_FL.mp4")

PlayVideoToImage(1)

vidspr = CreateSprite(1)

vidmaskshader = LoadspriteShader("alphavid.ps")
SetShaderConstantByName(vidmaskshader , "_cutoff_level",0.06,0,0,0)

SetSpriteShader(vidspr,vidmaskshader)
SetSpriteDepth(vidspr,1)

// some random background stuff
for t = 1 to 50
	CreateSprite(t+1,CreateImageColor(random2(0,255),random2(0,255),random(0,255),255))
	SetSpriteSize(t+1,random2(30,200),random(30,200))
	SetSpritePosition(t+1,random2(0,800),random(0,600))
next t
sync()

do
    Print( ScreenFPS() )
    Sync()
loop

#ifdef GL_ES
    #ifdef GL_FRAGMENT_PRECISION_HIGH   
        precision highp float;
    #else
        precision mediump float;
    #endif
#endif

// constant values sent through from AGK code.
uniform sampler2D texture0; 
uniform float _cutoff_level;
varying vec2 uvVarying; // uv
varying vec4 colorVarying;

 
void main()
{
	gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
	if ((gl_FragColor.r + gl_FragColor.g + gl_FragColor.b) <= (_cutoff_level * 3.0)) gl_FragColor.a = (((gl_FragColor.r + gl_FragColor.g + gl_FragColor.b) /  3.0) / _cutoff_level);
}

// Project: vidmasktest 
// Created: 2018-10-27

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "vidmasktest" )
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

testvid = LoadVideo("Kerkerschrei_512x448_c_FL.mp4")

PlayVideoToImage(1)

vidspr = CreateSprite(1)

vidmaskshader = LoadspriteShader("alphavid.ps")
SetShaderConstantByName(vidmaskshader , "_cutoff_level",0.25,0,0,0)

SetSpriteShader(vidspr,vidmaskshader)
SetSpriteDepth(vidspr,1)

SetSpriteTransparency(vidspr,1)
// some random background stuff
for t = 1 to 50
	CreateSprite(t+1,CreateImageColor(random2(0,255),random2(0,255),random(0,255),255))
	SetSpriteSize(t+1,random2(30,200),random(30,200))
	SetSpritePosition(t+1,random2(0,800),random(0,600))
next t
sync()

do
    Print( ScreenFPS() )
    Sync()
loop

// Project: vidmasktest 
// Created: 2018-10-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "vidmasktest" )
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( 300, 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
 
testvid = LoadVideo("Kerkerschrei_512x448_c_FL.mp4")
 
PlayVideoToImage(1)
 
//vidspr = CreateSprite(1)
 
vidmaskshader = LoadShader("", "alphavid.ps")
SetShaderConstantByName(vidmaskshader , "_cutoff_level",0.1,0,0,0)
 
//SetSpriteShader(vidspr,vidmaskshader)
//SetSpriteDepth(vidspr,1)
 
obj = CreateObjectCylinder(40,12,8)
SetObjectRotation(obj,0,-75,0)
SetObjectPosition(obj,25,0,0)
SetObjectImage(obj,testvid,0)

SetCameraPosition(1, 0, 20, -100)
SetCameraLookat(1,0,20,0,0)

obj2 = CreateObjectPlane(60,60)
SetObjectRotation(obj2, 0,0,0)
SetObjectPosition(obj2,-10,0,0)
SetObjectImage(obj2, testvid,0)
SetObjectShader(obj2, vidmaskshader)

SetObjectAlphaMask(obj,1)

//SetObjectShader(obj, vidmaskshader)
//SetObjectTransparency(obj2,1) 
 
//SetSpriteTransparency(vidspr,1)
// some random background stuff



for t = 1 to 50	
    CreateSprite(t+1,CreateImageColor(random2(0,255),random2(0,255),random(0,255),255))
    SetSpriteSize(t+1,random2(30,200),random(30,200))
    SetSpritePosition(t+1,random2(0,800),random(0,600))
    SetSpriteDepth(t+1,5000+t)
next t

sync()

 
do
    Print( ScreenFPS() )
    Sync()
    
     if GetVideoPlaying()
	
	else
	  PlayVideoToImage(obj)	
	endif
    
loop

// Project: vidmasktest 
// Created: 2018-10-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "vidmasktest" )
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( 300, 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
 
testvid = LoadVideo("Kerkerschrei_512x448_c_FL.mp4")
 
PlayVideoToImage(1)
 
//vidspr = CreateSprite(1)
 
 

vidmaskshader = LoadShader("standard2D.vs", "alphavid.ps")
SetShaderConstantByName(vidmaskshader , "_cutoff_level",0.1,0,0,0)
 
//SetSpriteShader(vidspr,vidmaskshader)
//SetSpriteDepth(vidspr,1)
 
obj = CreateObjectCylinder(40,12,8)
SetObjectRotation(obj,0,-75,0)
SetObjectPosition(obj,25,0,0)
SetObjectImage(obj,testvid,0)

SetCameraPosition(1, 0, 20, -100)
SetCameraLookat(1,0,20,0,0)

obj2 = CreateObjectPlane(60,60)
SetObjectRotation(obj2, 0,0,0)
SetObjectPosition(obj2,-10,0,0)
SetObjectImage(obj2, testvid,0)
SetObjectShader(obj2, vidmaskshader)

SetObjectAlphaMask(obj,1)

//SetObjectShader(obj, vidmaskshader)
//SetObjectTransparency(obj2,1) 
 
//SetSpriteTransparency(vidspr,1)
// some random background stuff



for t = 1 to 50	
    CreateSprite(t+1,CreateImageColor(random2(0,255),random2(0,255),random(0,255),255))
    SetSpriteSize(t+1,random2(30,200),random(30,200))
    SetSpritePosition(t+1,random2(0,800),random(0,600))
    SetSpriteDepth(t+1,5000+t)
next t

sync()

 
do
    Print( ScreenFPS() )
    Sync()
    
     if GetVideoPlaying()
	
	else
	  PlayVideoToImage(obj)	
	endif
    
loop

attribute highp vec4 position;
attribute mediump vec4 color;
attribute mediump vec2 uv;
varying mediump vec2 uvVarying;
varying mediump vec4 colorVarying;
uniform highp mat4 agk_Ortho;
 
void main() 
{
    gl_Position = agk_Ortho * position;
    uvVarying = uv;
    colorVarying = color;
}

#ifdef GL_ES
    #ifdef GL_FRAGMENT_PRECISION_HIGH   
        precision highp float;
    #else
        precision mediump float;
    #endif
#endif
 
// constant values sent through from AGK code.
uniform sampler2D texture0; 
uniform float _cutoff_level;
varying vec2 uvVarying; // uv
varying vec4 colorVarying;
 
  
void main()
{
    gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
    if ((gl_FragColor.r + gl_FragColor.g + gl_FragColor.b) <= (_cutoff_level * 3.0)) gl_FragColor.a = (((gl_FragColor.r + gl_FragColor.g + gl_FragColor.b) /  3.0) / _cutoff_level);
}

attribute highp vec3 position;
attribute mediump vec3 normal;
attribute mediump vec2 uv;
 
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
 
uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
uniform mediump vec4 uvBounds0;
 
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );
 
void main()
{ 
    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
    highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
}

#ifdef GL_ES
    #ifdef GL_FRAGMENT_PRECISION_HIGH   
        precision highp float;
    #else
        precision mediump float;
    #endif
#endif
 
// constant values sent through from AGK code.
uniform sampler2D texture0; 
uniform float _cutoff_level;
varying vec2 uvVarying; // uv
varying vec4 colorVarying;
 
  
void main()
{
    gl_FragColor = texture2D(texture0, uvVarying) * colorVarying;
    if ((gl_FragColor.r + gl_FragColor.g + gl_FragColor.b) <= (_cutoff_level * 3.0)) gl_FragColor.a = (((gl_FragColor.r + gl_FragColor.g + gl_FragColor.b) /  3.0) / _cutoff_level);
}

// Project: vidmasktest 
// Created: 2018-10-27
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "vidmasktest" )
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( 300, 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
 
testvid = LoadVideo("flame-shapes-heart.mp4")
 
PlayVideoToImage(1)
 
//vidspr = CreateSprite(1)
 
 

vidmaskshader = LoadShader("video.vs", "video.ps")
SetShaderConstantByName(vidmaskshader , "_cutoff_level",0.1,0,0,0)
sprShader = LoadSpriteShader("video.ps") 
 
SetCameraPosition(1, 0, 20, -100)
SetCameraLookat(1,0,20,0,0)
 
obj = CreateObjectCylinder(40,12,8)
SetObjectRotation(obj,0,-75,0)
SetObjectPosition(obj,25,0,0)
SetObjectImage(obj,1,0)



obj2 = CreateObjectPlane(60,60)
SetObjectRotation(obj2, 0,0,0)
SetObjectPosition(obj2,-10,0,0)
SetObjectImage(obj2, 1,0)
SetObjectShader(obj2, vidmaskshader)

SetObjectAlphaMask(obj,1)
vidspr=CreateSprite(1)
SetSpriteShader(vidspr,sprShader)
SetSpriteDepth(vidspr,1)
 
SetSpriteTransparency(vidspr,1)
// some random background stuff
for t = 1 to 50
    CreateSprite(t+1,1)
    SetSpriteSize(t+1,random2(30,200),random(30,200))
    SetSpritePosition(t+1,random2(0,800),random(0,600))
    SetSpriteShader(t+1,sprShader)
    SetSpriteDepth(t+1,1)
next t
 
do
    Print( ScreenFPS() )
    Sync()
    
     if GetVideoPlaying()
	
	else
	  PlayVideoToImage(obj)	
	endif
    
loop

uniform mediump vec3 agk_MeshDiffuse;
color = texture2D(texture0, uvVarying).rgb*light *agk_MeshDiffuse;