SyntaxBomb - Indie Coders

SuperStrict
?linux
	Import "-ldl"
?

Const FILENAME$ = "example.png"

Const BORDER_COL:Int = $FFFF0000	'Alpha plus #FF0000 (Red)
'Const BORDER_COL:Int = $FF00FF00	'Alpha plus #00FF00 (Green)
'Const BORDER_COL:Int = $FF0000FF	'Alpha plus #0000FF (Blue)

Graphics 800,600
AutoMidHandle( True )

Global bgr%=$ff, bgg%=$ff, bgb%=$ff
Global fgr%=$00, fgg%=$00, fgb%=$00
Global image:TImage[2]
Global mode%=True

image[True] = LoadImage( FILENAME )
image[False] = Border( LoadImage( FILENAME ) ) 

Repeat
	SetClsColor( bgr, bgg, bgb )
	Cls

	'# Change background
	If KeyHit( KEY_1 ) Then
		bgr=$ff ; bgg=$ff ; bgb=$ff
		fgr=$00 ; fgg=$00 ; fgb=$00
	End If
	If KeyHit( KEY_2 ) Then
		bgr=$00 ; bgg=$00 ; bgb=$00
		fgr=$ff ; fgg=$ff ; fgb=$ff
	End If
	
	'# Flip draw mode
	If KeyHit( KEY_0 ) Then mode=Not mode
	
	'# Draw image
	SetColor( $ff, $ff, $ff )
	DrawImage( image[mode], GraphicsWidth()/2, GraphicsHeight()/2)

	'# Draw overlay text
	SetColor( fgr, fgr, fgb )
	If mode=True Then 
		DrawText( "Image", 0,0 )
	Else 
		DrawText( "Border", 0,0 )	
	End If
	DrawText( "0 - Flip border", 0,15 )
	DrawText( "1 - White background", 0,30 )
	DrawText( "2 - Black background", 0,45 )
	DrawText( "ESC - Exit", 0,60 )
		
	Flip

Until KeyHit( KEY_ESCAPE )
End

Function border:TImage( image:TImage )
Local pixmap:TPixmap = LockImage( image, 0 )
'
Local colour:Int, sum:Int
Local argb:Byte Ptr = Varptr colour

	Const ALPHA:Int = 3
	Const RED:Int = 2
	Const GREEN:Int = 1
	Const BLUE:Int = 0
		
	For Local x:Int = 0 Until pixmap.width
		For Local y:Int = 0 Until pixmap.height
			'# Get colour at pixel X,Y
			colour = ReadPixel( pixmap, x, y )
			
			'# LOOK FOR TRANSPARANT PIXELS
			If argb[ALPHA]=0 Then
			
				'# Get pixels aoundto right and below and sum the ALPHA component
				sum=0
				If x>0 Then 
					colour = ReadPixel( pixmap, x-1, y )
					'# Only add border if it's not the colour we are adding
					If colour<>BORDER_COL Then sum:+ argb[ALPHA]
				End If
				If x<pixmap.width-1 Then 
					colour = ReadPixel( pixmap, x+1, y )
					sum:+ argb[ALPHA]
				End If
				If y>0 Then 
					colour = ReadPixel( pixmap, x, y-1 )
					'# Only add border if it's not the colour we are adding
					If colour<>BORDER_COL Then sum:+ argb[ALPHA]
				End If
				If y<pixmap.height-1 Then 
					colour = ReadPixel( pixmap, x, y+1 )
					sum:+ argb[ALPHA]
				End If
		
				'# ADD GREEN BORDER
				If sum>0 Then WritePixel( pixmap, x, y, BORDER_COL )	
			End If

		Next
	Next

	UnlockImage(image)
	Return image
End Function

#ifdef GL_ES
   #ifdef GL_FRAGMENT_PRECISION_HIGH   
      precision highp float;
   #else
      precision mediump float;
   #endif
#endif
 
uniform sampler2D texture0;
 
varying vec2 uv0Varying;
varying vec2 uv1Varying;
varying vec3 normalVarying;

uniform float tsize;
uniform float mode;
uniform float thick;

void main() {
    // calculate the uv offset for a single texture pixel
	float sizer = 1.0/tsize;
	
	// fetch middle pixel, to see if we need to search for nearby objects
	vec3 col = texture2D(texture0, uv0Varying).rgb;
	
	// initialize some variables we will need
	float i = 0.0;
	float j = 0.0;
	float flg = 0.0;
	
	// check if we are inside objects
	if (col == vec3(1,0,1)) { 
		// if yes, set an inner color (set this to the background color if you just want the outline)
		col = vec3(0.43,0.33,0.23);
	} else {
		// OK, not inside objects, let's check for nearby ones
		for (i=-thick; i<thick+1.0; i++) {
			for (j=-thick; j<thick+1.0; j++) {
				if (texture2D(texture0, uv0Varying+vec2(i*sizer,j*sizer)).rgb == vec3(1,0,1)) {
					// found one, set border color
					col.rgb = vec3(1.0, 1.0, 1.0);
					flg = 1.0;
				} else {
					// none found, if the pixel is still unset, set a background color
					// You could delete this if you just want the original background color from the rendertexture
					if(flg==0.0) { col = vec3(0.2, 0.2, 0.2); }
				}
			}
		}
	}
	
	// if we are rendering to the rendertexture, set it to inside object
	if (mode==1.0) { col= vec3(1.0, 0, 1.0); }
	
	// color output
    gl_FragColor = vec4( col, 1 );
}

#ifdef GL_ES
   #ifdef GL_FRAGMENT_PRECISION_HIGH   
      precision highp float;
   #else
      precision mediump float;
   #endif
#endif
 
uniform sampler2D texture0;
 
varying vec2 uv0Varying;
varying vec2 uv1Varying;
varying vec3 normalVarying;

uniform float tsize;
uniform float mode;
uniform float thick;
uniform float mode2;

void main() {
    // calculate the uv offset for a single texture pixel
	float sizer = 1.0/tsize;
	
	// fetch middle pixel, to see if we need to search for nearby objects
	vec3 col = texture2D(texture0, uv0Varying).rgb;
	
	// initialize some variables we will need
	float i = 0.0;
	float j = 0.0;
	float flg = 0.0;
	
	// check if we are inside objects
	if (col == vec3(1,0,1)) { 
		// if yes, set an inner color (set this to the background color if you just want the outline)
		col = vec3(0.43,0.33,0.23);
	} else {
		// OK, not inside objects, let's check for nearby ones
		for (i=-thick; i<thick+1.0; i++) {
			if (texture2D(texture0, uv0Varying+vec2(i*sizer,0)).rgb == vec3(1,0,1)
			|| texture2D(texture0, uv0Varying+vec2(0,i*sizer)).rgb == vec3(1,0,1)
			|| texture2D(texture0, uv0Varying+vec2(i*sizer,i*sizer)).rgb == vec3(1,0,1)
			|| texture2D(texture0, uv0Varying+vec2(-i*sizer,i*sizer)).rgb == vec3(1,0,1)) {
				// found one, set border color
				col.rgb = vec3(1.0, 1.0, 1.0);
				flg = 1.0;
			} else {
				// none found, if the pixel is still unset, set a background color
				// You could delete this if you just want the original background color from the rendertexture
				if(flg==0.0) { col = vec3(0.2, 0.2, 0.2); }
			}
		}
	}
	
	// if we are rendering to the rendertexture, set it to inside object
	if (mode==1.0) { col= vec3(1.0, 0, 1.0); }
	
	// color output
    gl_FragColor = vec4( col, 1 );
}

'padding variable is there to avoid creating a target image over and over
'if you plan to add a "blur" afterwards (which needs some additional
'pixels on all sides)
Function ConvertToOutLine:TImage(image:TImage, lineThickness:int=1, alphaTreshold:Float = 0.0, outlineColor:int=-1, targetPadding:int=0)
   if outlineColor = -1 then outlineColor = -1 '(Int(255 * $1000000) + Int(255 * $10000) + Int(255 * $100) + Int(255))
   lineThickness = lineThickness / 2

   'convert 0.0-1.0 to 0-255
   alphaTreshold :* 255

   'load source
   Local srcPix:TPixmap = LockImage(image)
   if not srcPix then return Null
   'if it is the wrong format to use, create a temporary copy
   If srcPix.format <> PF_RGBA8888
      srcPix = srcPix.Copy().Convert(PF_RGBA8888)
   EndIf

   'create target
   Local targetPix:TPixmap = CreatePixmap(srcPix.width + targetPadding*2, srcPix.height + targetPadding*2, srcPix.format)
   targetPix.ClearPixels(0)

   'storage for alpha of a pixel's surrounding pixels 
   Local sum:int

   For Local x:Int = 0 Until srcPix.width
      For Local y:Int = 0 Until srcPix.height
         'ignore if above treshold
         'except for borders
'         If ARGB_Alpha(col) > alphaTreshold Then continue
         if (x <> 0 and x <> srcPix.width-1) and (y <> 0 and y <> srcPix.height-1)
            If ((ReadPixel(srcPix, x, y) Shr 24) & $ff) > alphaTreshold
               continue
            endif
         EndIf


         'check pixels left/right/top/bottom of current pixel
         'add all of their alphas to "sum" so we could check
         'whether there is something needing a outline
         sum = 0
'         If x > 0               Then sum :+ ARGB_Alpha( ReadPixel(srcPix, x-1, y) )
'         If x < srcPix.width-1  Then sum :+ ARGB_Alpha( ReadPixel(srcPix, x+1, y) )
'         If y > 0               Then sum :+ ARGB_Alpha( ReadPixel(srcPix, x, y-1) )
'         If y < srcPix.height-1 Then sum :+ ARGB_Alpha( ReadPixel(srcPix, x, y+1) )
         If x > 0               Then sum :+ ((ReadPixel(srcPix, x-1, y) Shr 24) & $ff) > alphaTreshold
         If x < srcPix.width-1  Then sum :+ ((ReadPixel(srcPix, x+1, y) Shr 24) & $ff) > alphaTreshold
         If y > 0               Then sum :+ ((ReadPixel(srcPix, x, y-1) Shr 24) & $ff) > alphaTreshold
         If y < srcPix.height-1 Then sum :+ ((ReadPixel(srcPix, x, y+1) Shr 24) & $ff) > alphaTreshold
            
         If sum > 0
            If lineThickness = 0
               WritePixel(targetPix, x + targetPadding, y + targetPadding, outlineColor )
            Else
               For local i:int = 0 to lineThickness
                  If x + targetPadding - i >= 0               Then WritePixel(targetPix, x + targetPadding - i , y + targetPadding, outlineColor )
                  If x + targetPadding + i < targetPix.width  Then WritePixel(targetPix, x + targetPadding + i , y + targetPadding, outlineColor )
                  If y + targetPadding - i >= 0               Then WritePixel(targetPix, x + targetPadding, y + targetPadding - i, outlineColor )
                  If y + targetPadding + i < targetPix.height Then WritePixel(targetPix, x + targetPadding, y + targetPadding + i, outlineColor )
               Next
            EndIf
         EndIf
      Next
   Next

   return LoadImage(targetPix)
End Function