'===================================================================================================
'
' Type_TRGB
' _________
' ------------------------------------------------------------------------------------
'SuperStrict
' ------------------------------------------------------------------------------------
'
' A Three Int Container Type for Colour
'
'===================================================================================================
Type TRGB 'A Colour Tri
' --------------------------------------------------------------------
Field red :Int
Field green :Int
Field blue :Int
' --------------------------------------------------------------------
Method Set:TRGB(PRed:Int=0,PGreen:Int=0,PBlue:Int=0)
Self.red = pred
Self.green = pgreen
Self.blue = pblue
Return Self
End Method
' --------------------------------------------------------------------
Function Create:TRGB(PRed:Int=0,PGreen:Int=0,PBlue:Int=0)
Return New TRGB.Set (PRed,PGreen,PBlue)
End Function
' --------------------------------------------------------------------
Method CreateCopy:TRGB()
Return TRGB.Create (Self.red,Self.green,Self.blue)
End Method
' --------------------------------------------------------------------
Method Brightness (PPercent:Float)
Self.red:* (PPercent/100.0)
Self.green:* (PPercent/100.0)
Self.blue:* (PPercent/100.0)
End Method
' --------------------------------------------------------------------
Method Copy(PRgb:TRGB)
Self.Set(PRgb.red,PRgb.green,PRgb.blue)
End Method
' --------------------------------------------------------------------
Method Add(PRgb:TRGB)
Self.AddInts(PRgb.red,PRgb.green,PRgb.blue)
End Method
' --------------------------------------------------------------------
Method AddInts(pred:Int, pgreen:Int, pblue:Int)
Self.red:+ PRed
Self.red:mod 256
Self.green:+ PGreen
Self.green:mod 256
Self.blue:+ PBlue
Self.blue:mod 256
End Method
' --------------------------------------------------------------------
End Type
'=================================================================================================== As you can see, its just a really simple type, which yes will be included in my main type loader, and as such will be in somthing elses Framework/imports , But ATM its by itself and I just wanted a Framework for it. And its the first time FA has ever said no mods.
|