Function CalcLight()
	For Local Light:TLight = EachIn TLight.tlAllLights
		For Local ix:Int = 0 Until iMapwidth
			For Local iy:Int = 0 Until iMapwidth
				If (Pythagoras(Light.ixPos, Light.iyPos, ix * iTILESIZE, iy * iTILESIZE) <= Light.irange) Then
					Local pTileMask:TPixmap = LockImage(titileset, iGameMap[iX, iY])
					Local argb:Int, dest_argb:Int, a:Int, r:Int, g:Int, b:Int
					For Local maskx:Int = 0 Until pTileMask.width
						For Local masky:Int = 0 Until pTileMask.height
							If Pythagoras(Light.ixPos, Light.iyPos, maskx + ix * iTILESIZE, masky + iy * iTILESIZE) <= Light.irange Then
								argb = ReadPixel(pTileMask, maskx, masky)
								r = (argb Shr 16) & $FF
								g = (argb Shr 8) & $FF
								b = (argb) & $FF
								a = (argb Shr 24) & $FF
								r = r + (250 - r)
								g = g + (250 - g)
								b = b + (250 - b)
								WritePixel(pTileMask, maskx, masky, $00000000 | (a Shl 24) | (r Shl 16) | (g Shl 8) | b)
							EndIf
						Next
					Next
				End If
			Next
		Next
	Next
End Function

maskx + ix * iTILESIZE, masky + iy * iTILESIZE

Type TColorSpaceHSV
	
	Global Hue:Float, Saturation:Float, Value:Float	'Values to calculate with
	Global Huei:Int, Saturationi:Int, Valuei:Int		'Values as int(H) or percentage(S and V)
	
	Function ConvertRGBtoHSV(r:Int, g:Int, b:Int)
		
		Local RGB_r:Float = Float(r) / 255.0
		Local RGB_g:Float = Float(g) / 255.0
		Local RGB_b:Float = Float(b) / 255.0
		
		Local RGB_max:Float = RGB_r
		Local RGB_min:Float = RGB_r
		
		'Calculate Max(r, g, b)
		
		If RGB_g > RGB_max RGB_max = RGB_g
		
		If RGB_b > RGB_max RGB_max = RGB_b
		
		'Calculate Min(r, g, b)
		
		If RGB_g < RGB_min RGB_min = RGB_g
		
		If RGB_b < RGB_min RGB_min = RGB_b
		
		'Calculate Hue
		
		If RGB_max = RGB_min
			Hue = 0
		ElseIf RGB_max = RGB_r
			Hue = 60 * (0 + ( (RGB_g - RGB_b) / (RGB_max - RGB_min) ) )
		ElseIf RGB_max = RGB_g
			Hue = 60 * (2 + ( (RGB_b - RGB_r) / (RGB_max - RGB_min) ) )
		ElseIf RGB_max = RGB_b
			Hue = 60 * (4 + ( (RGB_r - RGB_g) / (RGB_max - RGB_min) ) )
		EndIf
		
		If Hue < 0 Hue:+ 360
		
		'Calculate Saturation
		
		If RGB_max = 0
			Saturation = 0
		Else
			Saturation = (RGB_max - RGB_min) / RGB_max
		EndIf
		
		'Calculate Value
		
		Value = RGB_max

		'Convert Calculationvalues to Int

		Huei = Int(Hue)
		Saturationi = Int(Saturation * 100)
		Valuei = Int(Value * 100)
		
	EndFunction 
	
	Function ConvertHSVtoRGB(r:Int Var, g:Int Var, b:Int Var)
		
		'Check exception S = 0
		
		If Saturation = 0
			r = Int(Value * 255.0); g = Int(Value * 255.0); b = Int(Value * 255.0)
			Return
		EndIf
		
		'Calculate hi and f
		
		Local hi:Int = Hue / 60
		Local f:Float = (Hue / 60) - hi
		Local p:Float, q:Float, t:Float
		
		'Calculate p, q and t
		
		p = Value * (1 - Saturation)
		q = Value * (1 - (Saturation * f) )
		t = Value * ( 1 - (Saturation * (1 - f) ) )
		
		'Select hi and calculate r, g, b according to hi
		
		Select hi
			
			Case 0, 6
			
				r = Int(Value * 255.0); g = Int(t * 255.0); b = Int(p * 255.0)
				
			Case 1
			
				r = Int(q * 255.0); g = Int(Value * 255.0); b = Int(p * 255.0)				
			
			Case 2
			
				r = Int(p * 255.0); g = Int(Value * 255.0); b = Int(t * 255.0)
			
			Case 3

				r = Int(p * 255.0); g = Int(q * 255.0); b = Int(Value * 255.0)			
			
			Case 4

				r = Int(t * 255.0); g = Int(p * 255.0); b = Int(Value * 255.0)			
			
			Case 5
			
				r = Int(Value * 255.0); g = Int(p * 255.0); b = Int(q * 255.0)
				
		EndSelect		
		
	EndFunction
	
	Function SetHSV(h:Float, s:Float, v:Float)
		
		Hue = h
		Huei = Int(h)
		Saturation = s
		Saturationi = Int(s * 100)
		Value = v
		Valuei = Int(v * 100)
		
	EndFunction	
	
End Type

SuperStrict

TColorSpaceHSV.ConvertRGBToHSV( 127, 90, 12 )

Print TColorSpaceHSV.Huei
Print TColorSpaceHSV.Saturationi
Print TColorSpaceHSV.Valuei

Global r:Int, g:Int, b:Int

TColorSpaceHSV.ConvertHSVToRGB( r, g, b )

Print r
Print g
Print b