Contact for flame effect

Rolout ferollout "flame effect" width: 180 Height: 245
(
Button btn1 "Flame" POS: [140] width: Height: 30
Bitmap BMP 1 "" POS: [140] width: 120 height:
Button btn2 "rendering preview" POS: [51,205] width: 64 Height: 21
 
On btn1 pressed do
(
Resetmaxfile # noprompt
Global sgizmo = spheregizmo radius: 80
VF = fire_effect ()
Addatmospheric (VF)
Appendgizmo VF sgizmo
Cam = freecamera pos: [0,180, 0] Target :( targetobject ())
Max VPT camera

)
On btn2 pressed do
(
View = render outputwidth: 140 outputheight: 120 vfb: Off
BMP 1.bitmap = View
)
)
Rolout R1 "parameter adjustment" width: 180 Height: 245
(
Spinner SP1 "intensity:" POS: [133] width: Height: 16 range: [, 15] type: # Float
 
Slider sl1 "flame size:" POS: [136] width: 0,100 Height: 44 range: [, 80]
 
On SP1 changed spvalue do
(
VF. density = spvalue
If spvalue <= 15 then
(
VF. inner_color = color 252 252 0
VF. outer_color = color 225 30 30
) Else if spvalue> 30 then
(
VF. inner_color = color 253 255 94
VF. outer_color = color 144 126 255
) Else
(
VF. inner_color = color 253 255 94
VF. outer_color = color 225 129 129
)
)
On sl1 changed slvalue do
(
Sgizmo. radius = slvalue
)
On SP1 buttonup spvaue do
(
View = render outputwidth: 140 outputheight: 120 vfb: Off
Ferollout.bmp 1. Bitmap = View
)
On sl1 buttonup do
(
View = render outputwidth: 140 outputheight: 120 vfb: Off
Ferollout.bmp 1. Bitmap = View
)
)

Fefloater = newroloutfloater "flame effects floating display" 300 400
Addrolout ferollout fefloater
Addrolout R1 fefloater