[bb] 3D Lens Flare by Spacechimp [ 1+ years ago ]

[BlitzBot]

Title : 3D Lens Flare
Author : Spacechimp
Posted : 1+ years ago

Description : 1 light, 3 lens reflections, and distance adjustment

this will not take into account objects that come between the light and the camera

Code :

Code (blitzbasic) Select Expand

Type Make_Light
Field Light_Sprite
Field Flare_Sprite1
Field Flare_Sprite2
Field Flare_Sprite3
Field LF_pivot1
Field LF_pivot2
Field Screen_Wash_Alpha1#
Field light_bright#
Field Light_Bright_size#
Field Light1_Distance#
Field Flare1_Distance#
Field Flare2_Distance#
Field Flare3_Distance#
Field FLareX_Ang#
Field FLareY_Ang#
End Type
;###################
MAIN LOOP
;###################


;************************************************
Places then updates coordinates for placing
;************************************************
If Light_Create = False And Place_light = 3 Then
Make_Lens_Flare = True
Light_Create = True
EndIf

If Light_Create = False And Place_light = 2 Then
LightX_Pos# = 100
LightY_Pos# = 100
LightZ_Pos# = 100
Place_light =  3
EndIf

If Light_Create = False And Place_light = 1 Then
LightX_Pos# = 200
LightY_Pos# = -100
LightZ_Pos# = 100
Place_light =  2
EndIf

If Light_Create = False And Place_light = 0 Then
LightX_Pos# = 0
LightY_Pos# = 0
LightZ_Pos# = 0
Place_light =  1
EndIf




If Make_Lens_Flare = False Then
New_Light.Make_Light = New Make_Light

New_LightLight_Sprite = LoadSprite("sprites/LightA.png")
PositionEntity

New_LightLight_Sprite,LightX_Pos#,LightY_Pos#,LightZ_Pos#

New_LightFlare_Sprite1 =

LoadSprite("sprites/FlareA.png")
EntityParent

New_LightFlare_Sprite1,New_LightLight_Sprite

New_LightFlare_Sprite2 =

LoadSprite("sprites/FlareA.png")
EntityParent

New_LightFlare_Sprite2,New_LightLight_Sprite

New_LightFlare_Sprite3 =

LoadSprite("sprites/FlareA.png")
EntityParent

New_LightFlare_Sprite3,New_LightLight_Sprite

New_LightLF_pivot1 = CreatePivot()
EntityParent New_LightLF_pivot1,camera
New_LightLF_pivot2 = CreatePivot()
EntityParent

New_LightLF_pivot2,New_LightLight_Sprite


New_Lightlight_bright# =

EntityDistance(New_LightLF_pivot2,New_LightLight_Sprite)

New_LightScreen_Wash_Alpha1# = (-light_bright# + 30) / 60
EndIf


For New_Light.Make_Light = Each Make_Light



PointEntity New_LightLF_pivot1,New_LightLight_Sprite


New_LightLight_Bright_size# = (-light_bright# + 30) / 6
If New_LightLight_Bright_size# < 1 Then
New_LightLight_Bright_size# = 1
EndIf

New_LightLight1_Distance# =

EntityDistance(New_LightLight_Sprite,camera) / 5
New_LightFlare1_Distance# =

EntityDistance(New_LightLight_Sprite,camera) / 6
New_LightFlare2_Distance# =

EntityDistance(New_LightLight_Sprite,camera) / 15
New_LightFlare3_Distance# =

EntityDistance(New_LightLight_Sprite,camera) / 30

New_LightFLareX_Ang# = (EntityPitch(New_LightLF_pivot1) -

EntityPitch(camera)) *

EntityDistance(New_LightLight_Sprite,New_LightLF_pivot1) / 139
New_LightFLareY_Ang# = (EntityYaw(New_LightLF_pivot1) -

EntityYaw(camera)) *

EntityDistance(New_LightLight_Sprite,New_LightLF_pivot1) / 139


ScaleSprite New_LightLight_Sprite,New_LightLight1_Distance#  *

New_LightLight_Bright_size# ,New_LightLight1_Distance# *

New_LightLight_Bright_size#
ScaleSprite New_LightFlare_Sprite1,New_LightFlare1_Distance# /

3,New_LightFlare1_Distance# / 3
ScaleSprite

New_LightFlare_Sprite2,New_LightFlare2_Distance# /

3,New_LightFlare2_Distance# / 3
ScaleSprite

New_LightFlare_Sprite3,New_LightFlare3_Distance# /

2,New_LightFlare3_Distance# / 2


PositionEntity New_LightFlare_Sprite3,New_LightFLareY_Ang# /

2,New_LightFLareX_Ang# / 2,1
PositionEntity New_LightFlare_Sprite2,New_LightFLareY_Ang#

/ 3,New_LightFLareX_Ang# / 3,2
PositionEntity

New_LightFlare_Sprite1,New_LightFLareY_Ang# /

6,New_LightFLareX_Ang# / 6,3

PositionEntity

New_LightLF_pivot2,EntityYaw(New_LightLF_pivot1),EntityPitch(New_L

ightLF_pivot1),0

Next

Comments : none...