Sorry your browser is not supported!

// Project: imagedecals 
// Created: 2018-12-24

// show all errors
SetErrorMode(2)

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

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


// create an image this could be any image that you want to loadimage with
swap()
	DrawBox(0,0,128,128,MakeColor(0,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
Render()
img = getimage(0,0,128,128)
memoryimage = CreateMemblockFromImage(img)
// end


obj = CreateObjectPlane(10,10)
SetObjectRotation(obj,0,0,0)
SetObjectImage(obj,img,0)


do
	if GetRawMouseLeftState()
		
		newimage = drawdecalonimage(memoryimage,128,128)
		SetObjectImage(obj,newimage,0)
		
	endif

    Print( ScreenFPS() )
    Sync()
loop

function drawdecalonimage(memblockid, sizex,sizey)
	
	
    imgwidth = GetMemblockInt(memblockid, 0)
	
	offset = 12 + (((random(0,sizey-1)) * imgwidth) + (random(0,sizex-1))) * 4
	
		if offset>0 

			SetMemblockByte(memblockid,offset,MakeColor(0,0,0))
			SetMemblockByte(memblockid,offset+1,MakeColor(0,0,0))
			SetMemblockByte(memblockid,offset+2,MakeColor(0,0,0))
		endif
	
	img = CreateImageFromMemblock(memblockid)
endfunction img

// constant values sent through from AGK code.
uniform sampler2D texture0; 
uniform sampler2D texture1; 
 
// Anything that the vertex shader passes as output needs to 
// be defined here as input. The vertex shader is passing the 
// texture coordinate, so it is defined again here.
varying vec2 uv0Varying;
varying vec2 uv1Varying;
 
void main()
{
  // copy the textures coords
  vec2 texCoord0 = uv0Varying;
  vec2 texCoord1 = uv1Varying;
   
  vec4 colorResult0  = texture2D(texture0, texCoord0);
  vec4 colorResult1  = texture2D(texture1, texCoord0); // you can change here the second uvlayer by texture2D(texture1, texCoord1) if you use different uvchanel for each texture
   
  gl_FragColor = mix(colorResult0, colorResult1, colorResult1.a); // mix with the alpha of the second texture. You can mix with a third texture if you want to use seamless texture and repeat it.
}

attribute vec3 position;
attribute vec2 uv;
  
varying vec2 uv0Varying;
uniform vec4 uvBounds0;
  
uniform mat4 agk_World;
uniform mat4 agk_ViewProj;
 
void main()
{
    vec4 pos = agk_World * vec4(position,1);
    gl_Position = agk_ViewProj * pos;
    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;
}

attribute vec3 position;
attribute vec2 uv;
  
varying vec2 uv0Varying;
varying vec2 uv1Varying;
uniform vec4 uvBounds0;
  
uniform mat4 agk_World;
uniform mat4 agk_ViewProj;
 
void main()
{
    vec4 pos = agk_World * vec4(position,1);
    gl_Position = agk_ViewProj * pos;
    uv0Varying = uv * uvBounds0.xy + uvBounds0.zw;
}

#version 120
attribute highp vec3 position;
attribute mediump vec3 normal;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );

uniform highp mat4 agk_ViewProj;
attribute highp vec2 uv;
varying highp vec2 uvVarying;
uniform highp vec4 uvBounds0;

attribute highp vec4 boneweights;
attribute mediump vec4 boneindices;
uniform highp vec4 agk_bonequats1[28];
uniform highp vec4 agk_bonequats2[28];

highp vec3 transformDQ( highp vec3 p, highp vec4 q1, highp vec4 q2 )
{
    p += 2.0 * cross( q1.xyz, cross(q1.xyz, p) + q1.w*p );
    p += 2.0 * (q1.w*q2.xyz - q2.w*q1.xyz + cross(q1.xyz,q2.xyz));
    return p;
}

void main()
{ 
    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
    highp vec4 q1 = agk_bonequats1[ int(boneindices.x) ] * boneweights.x;
    q1 += agk_bonequats1[ int(boneindices.y) ] * boneweights.y;
    q1 += agk_bonequats1[ int(boneindices.z) ] * boneweights.z;
    q1 += agk_bonequats1[ int(boneindices.w) ] * boneweights.w;
    highp vec4 q2 = agk_bonequats2[ int(boneindices.x) ] * boneweights.x;
    q2 += agk_bonequats2[ int(boneindices.y) ] * boneweights.y;
    q2 += agk_bonequats2[ int(boneindices.z) ] * boneweights.z;
    q2 += agk_bonequats2[ int(boneindices.w) ] * boneweights.w;
    highp float len = 1.0/length(q1);
    q1 *= len;
    q2 = (q2 - q1*dot(q1,q2)) * len;
    highp vec4 pos = vec4( transformDQ(position,q1,q2), 1.0 );
    gl_Position = agk_ViewProj * pos;

    normalVarying = normal + 2.0*cross( q1.xyz, cross(q1.xyz,normal) + q1.w*normal );
    posVarying = pos.xyz;
    lightVarying = GetVSLighting( normalVarying, posVarying );
    
}

SetErrorMode(2)

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

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

global model,width

SetCameraRange(1, 1, 10000)
model = LoadObject

modelTex = LoadImage
SetObjectImage(model, modelTex,0)


// create a memblock from the image above so it can apply a red mark to the model bruise image
modelBruisesMemblock = CreateMemblockFromImage(modelTex)
width = GetMemblockInt(modelBruisesMemblock,0)


do
	if GetRawMouseLeftState()
		// do it 100 times each round to add a bruise to the image near the face area on the actual UV Mapp 
		// on the actual image itself the coords of where the face is is X 950-1280, Y 0-300
		for a=0 to 100
			addbruise(modelBruisesMemblock, random(0,1280),random(0,300)) 
		next
		applyresult(modelBruisesMemblock)
		
	endif
	print(ScreenFPS())
	Sync()
	
	
	
loop

function addbruise(toimagememblock, x, y)
	
	
// make a quite big red bruise
	for xx=x-random2(-10,0) to x+random(0,10)
		for yy=y-random2(-3,-1) to y+random2(1,3)
			newoffset = 12 + (((yy * width) + (xx)) * 4)

			SetMemblockByte(toimagememblock,newoffset,255) //red
			SetMemblockByte(toimagememblock,newoffset+1,0) //green
			SetMemblockByte(toimagememblock,newoffset+2,0) //blue
			SetMemblockByte(toimagememblock,newoffset+3,255) //alpha
		next
    next 
        
	
	

	
endfunction 

function applyresult(toimagememblock)
	DeleteImage(newimg)
	newimg = CreateImageFromMemblock(toimagememblock)
	SetObjectImage(model,newimg,0)
endfunction