--Name: Easy Camera Tracker  ver 1.5 Final
--Written by Snow. discreet China ASE. Apr,2000
--Welcome to Snow3D, Paradise of 3D fans http://zsnow.yeah.net

--History:July,26th 1.5:Camera Stablize function added. in fact camera stabllize is just a reverse function to Camera Tracker function. You can use Camera Stable function to check the track result.program structure changed a bit.
--     June,26th 1.3:key frame interval length aviable,Key frame interval could reduce camera shake caused by track points efficiently.Also some codes enhanced
--	  June,9th  1.2 Final: as Reverser, clear move just in your selection.debug code masked. if you meet problem you may enable debug by clear "--".also some bugs removed.
--               1.1 Beta :Camera HV Movement could be calculated.
--               1.0 Beta :Dolly and Roll could be tracked.
--Description: Easy Camera Tracker. If you think the camera tracker utility in max has too much
--limitation. maybe this handy tools will help you out. you just need create 2 objects(best use camera tracker points 
--helper object). then use camera track utility to create the 2 points track. and finaly create the camera
--move track by this tool.


--Tips:  make sure the Pin1 and Pin2 in the plane parallel with the camera view, the camera should
--be free camera. 
--IMPORTANT!!:Create Pin1 and Pin2 and camera in the front viewport because i use  y axis to generate camera deepth
--Notes: Use World Coordsys.
--Any comments are welcome. Send to zsnow@371.net

--init var
Init_StartTime=0
Init_EndTime=100
Pin_Obj1=undefined
Pin_Obj2=undefined
DistancePP=0
DistancePC=0
DistanceTemp=0
AngleTemp=0
AngleT=0
AnglePPT=0
RotTemp=0
MoveSense=[0,0,0]
TrackType=1

HVOption=false
PosOption=true
RotOption=false

TrackCamera=undefined

--SenseRange is an important value to control HV movement 0.001 is default
--means very very accurate.large value will be more sensitive.don't use just 0.
SenseRange=0.001

ScaleRatioHV=1.0
ScaleRatioP=1.0
ScaleRatioR=1.0
CameraY=0
CameraAngle=0
KeyInterval=1

TempCameraPos=[0,0,0]
TempPin_Pos=[0,0,0]
TempPin1_Pos=[0,0,0]
TempPin2_Pos=[0,0,0]
preTime=0

--Debug Part
--Debug=NewScript()

--Icon Describle
fn load_bitmap_Snow3D = (
local bitmap_Snow3D=bitmap 100 40
fn unpack val = for p in val collect (r=p/256^2; g=p/256-r*256; b=mod p 256; color r g b)
setpixels bitmap_Snow3D [0,0] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,1] (unpack #(5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,2] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,3] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,4] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,5] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,6] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 7158290, 7158290, 10970154, 10970154, 9260822, 9260822, 5121042, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,7] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9590305, 9590305, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 14778421, 14778421, 9590305, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,8] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 7158290, 14778421, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 14778421, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,9] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 7158290, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 12938801, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 10520925, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,10] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 12938801, 14778421, 14778421, 15767363, 15767363, 14778421, 14778421, 14778421, 14778421, 15767363, 15767363, 15767363, 15767363, 15767363, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,11] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 12938801, 14778421, 14778421, 14778421, 14778421, 14778421, 11359782, 7158290, 14778421, 15767363, 15767363, 14778421, 14778421, 15767363, 5121042, 1184016, 7158290, 7158290, 7158290, 5121042, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,12] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5263440, 5121042, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 10970154, 7158290, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 7158290, 8269842, 14778421, 15767363, 15767363, 15767363, 15767363, 15767363, 10970154, 15767363, 15767363, 15767363, 9855010, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 5121042, 10970154, 16233822, 16233822, 16233822, 10970154, 10970154, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,13] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 7158290, 14778421, 15767363, 15767363, 14778421, 14778421, 14778421, 7158290, 8269842, 14778421, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 16233822, 15767363, 10970154, 1184016, 1184016, 1184016, 14778421, 14778421, 15767363, 15767363, 15767363, 15767363, 9590305, 1184016, 1184016, 5121042, 5121042, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 7158290, 9260822, 9260822, 16233822, 16233822, 16233822, 16233822, 16233822, 16233822, 15767363, 1184016, 1184016, 15767363, 14778421, 14778421, 9590305, 9590305, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,14] (unpack #(5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 12938801, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 12938801, 12938801, 14778421, 14778421, 14778421, 7158290, 9260822, 14778421, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 15767363, 16233822, 15767363, 9260822, 7158290, 14778421, 16233822, 16233822, 16233822, 15767363, 16233822, 16233822, 16233822, 14778421, 5121042, 5121042, 16233822, 16233822, 16233822, 10970154, 5121042, 15767363, 10520925, 10520925, 9855010, 5121042, 10970154, 10970154, 9855010, 9855010, 16233822, 16233822, 16233822, 16233822, 16233822, 16233822, 16233822, 12938801, 5121042, 15767363, 15767363, 15767363, 15767363, 14778421, 14778421, 9590305, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,15] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 5263440, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 12938801, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 12938801, 8269842, 8269842, 8269842, 7158290, 7158290, 9260822, 14778421, 14778421, 14778421, 14778421, 14778421, 10970154, 10970154, 15767363, 15767363, 15767363, 15767363, 15767363, 9260822, 7158290, 14778421, 16233822, 16233822, 16233822, 15767363, 15767363, 16233822, 16233822, 16233822, 12938801, 5121042, 16233822, 16233822, 16233822, 10970154, 5121042, 15767363, 16233822, 16233822, 9855010, 5121042, 15767363, 15767363, 15767363, 15767363, 16233822, 16233822, 16233822, 14778421, 10970154, 16233822, 16233822, 12938801, 5121042, 15767363, 15767363, 15767363, 15767363, 14778421, 12938801, 14778421, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,16] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 7158290, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 9260822, 9260822, 10307102, 10307102, 9260822, 12938801, 12938801, 12938801, 14778421, 14778421, 9590305, 5121042, 14778421, 14778421, 15767363, 15767363, 15767363, 7158290, 9590305, 15767363, 16233822, 16233822, 16233822, 12938801, 9590305, 16233822, 16233822, 16233822, 15767363, 5121042, 14778421, 15767363, 15767363, 14778421, 7158290, 16233822, 16233822, 16233822, 15767363, 7158290, 15767363, 15767363, 15767363, 10970154, 16233822, 16233822, 16233822, 12938801, 9590305, 16233822, 16233822, 15767363, 5121042, 12938801, 15767363, 15767363, 12938801, 12938801, 14778421, 14778421, 10970154, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,17] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 10970154, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 9260822, 1184016, 1184016, 9260822, 12938801, 12938801, 12938801, 12938801, 12938801, 9590305, 5121042, 12938801, 12938801, 14778421, 14778421, 15767363, 7158290, 9590305, 15767363, 15767363, 16233822, 16233822, 12938801, 9590305, 16233822, 16233822, 16233822, 15767363, 5121042, 14778421, 15767363, 15767363, 14778421, 7158290, 16233822, 16233822, 16233822, 15767363, 7158290, 15767363, 15767363, 15767363, 10970154, 15767363, 15767363, 16233822, 12938801, 9590305, 16233822, 16233822, 16233822, 5121042, 12938801, 15767363, 15767363, 12938801, 9260822, 14778421, 14778421, 10970154, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,18] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 11359782, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 5121042, 1184016, 7158290, 12938801, 12938801, 12938801, 10970154, 10970154, 7158290, 5121042, 10970154, 10970154, 12938801, 12938801, 12938801, 7158290, 9590305, 14778421, 15767363, 15767363, 15767363, 10970154, 9260822, 15767363, 16233822, 16233822, 15767363, 9260822, 9590305, 15767363, 14778421, 14778421, 11359782, 14778421, 15767363, 15767363, 14778421, 9590305, 15767363, 15767363, 14778421, 7158290, 5121042, 5121042, 7158290, 15767363, 14778421, 15767363, 15767363, 15767363, 1184016, 9590305, 15767363, 15767363, 14778421, 7158290, 14778421, 14778421, 14778421, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,19] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9260822, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 12938801, 1184016, 7158290, 12938801, 10970154, 10970154, 10970154, 10970154, 7158290, 5121042, 10970154, 10970154, 12938801, 12938801, 12938801, 7158290, 9590305, 14778421, 14778421, 15767363, 15767363, 10970154, 9260822, 15767363, 15767363, 15767363, 15767363, 9260822, 9590305, 15767363, 14778421, 14778421, 11359782, 14778421, 14778421, 14778421, 15767363, 9590305, 14778421, 14778421, 14778421, 7158290, 1184016, 1184016, 7158290, 15767363, 15767363, 16233822, 15767363, 9855010, 1184016, 9590305, 15767363, 15767363, 14778421, 7158290, 14778421, 14778421, 14778421, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,20] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9260822, 9260822, 9590305, 9590305, 9855010, 9855010, 14778421, 14778421, 14778421, 14778421, 14778421, 14778421, 12938801, 12938801, 12938801, 5121042, 7158290, 10970154, 10970154, 10970154, 10970154, 10970154, 7158290, 5121042, 11359782, 11359782, 11359782, 11359782, 10970154, 7158290, 9260822, 12938801, 14778421, 14778421, 14778421, 11359782, 8269842, 14778421, 15767363, 15767363, 14778421, 9260822, 7158290, 14778421, 15767363, 15767363, 12938801, 14778421, 14778421, 14778421, 12938801, 10970154, 12938801, 12938801, 12938801, 5121042, 5121042, 1184016, 7158290, 14778421, 15767363, 15767363, 15767363, 14778421, 1184016, 7158290, 15767363, 15767363, 15767363, 7158290, 14778421, 14778421, 12938801, 5121042, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5263440, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,21] (unpack #(1184016, 1184016, 1184016, 1184016, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9590305, 9590305, 14778421, 14778421, 14778421, 14778421, 14778421, 11359782, 14778421, 14778421, 14778421, 14778421, 10970154, 10970154, 12938801, 5121042, 7158290, 10970154, 10970154, 10970154, 10970154, 10970154, 7158290, 5121042, 11359782, 11359782, 11359782, 11359782, 10970154, 7158290, 9260822, 12938801, 12938801, 12938801, 14778421, 11359782, 8269842, 14778421, 14778421, 14778421, 14778421, 9260822, 7158290, 14778421, 15767363, 14778421, 12938801, 14778421, 14778421, 14778421, 12938801, 12938801, 12938801, 12938801, 12938801, 5121042, 1184016, 5121042, 7158290, 14778421, 14778421, 15767363, 15767363, 15767363, 7158290, 7158290, 15767363, 15767363, 15767363, 7158290, 12938801, 12938801, 12938801, 5121042, 1184016, 1184016, 1184016, 1184016, 5263440, 5263440, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,22] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9590305, 9590305, 14778421, 14778421, 14778421, 14778421, 12938801, 5121042, 9590305, 14778421, 12938801, 10970154, 10970154, 10970154, 10970154, 5121042, 7158290, 10970154, 10970154, 10970154, 11359782, 11359782, 7158290, 5121042, 9590305, 9590305, 11359782, 11359782, 11359782, 5121042, 8269842, 11359782, 12938801, 12938801, 12938801, 10307102, 8269842, 12938801, 12938801, 12938801, 12938801, 9260822, 5121042, 12938801, 14778421, 14778421, 14778421, 14778421, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 10970154, 5121042, 11359782, 12938801, 12938801, 12938801, 5121042, 12938801, 15767363, 15767363, 10970154, 5121042, 15767363, 15767363, 15767363, 7158290, 12938801, 12938801, 12938801, 5121042, 1184016, 1184016, 1184016, 1184016, 5263440, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,23] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9590305, 9590305, 9590305, 14778421, 14778421, 14778421, 12938801, 5121042, 9590305, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 5121042, 7158290, 10970154, 10970154, 10970154, 11359782, 11359782, 7158290, 5121042, 9590305, 9590305, 9590305, 11359782, 11359782, 5121042, 8269842, 11359782, 10970154, 10970154, 12938801, 10307102, 8269842, 12938801, 12938801, 12938801, 12938801, 9260822, 5121042, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 12938801, 10970154, 5121042, 11359782, 12938801, 12938801, 12938801, 5121042, 12938801, 12938801, 12938801, 10970154, 5121042, 15767363, 15767363, 15767363, 7158290, 10970154, 12938801, 12938801, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,24] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9260822, 9590305, 9590305, 9590305, 10970154, 10970154, 10970154, 5121042, 7158290, 9590305, 9590305, 9590305, 9590305, 9590305, 9855010, 5121042, 7158290, 10970154, 10970154, 10970154, 11359782, 11359782, 5121042, 5121042, 9590305, 9590305, 11359782, 11359782, 11359782, 5121042, 8269842, 11359782, 11359782, 11359782, 11359782, 10307102, 8269842, 10970154, 12938801, 12938801, 12938801, 10307102, 5121042, 11359782, 12938801, 12938801, 12938801, 12938801, 12938801, 10307102, 12938801, 12938801, 12938801, 12938801, 11359782, 5121042, 11359782, 12938801, 12938801, 12938801, 5121042, 11359782, 12938801, 12938801, 9590305, 1184016, 15767363, 15767363, 14778421, 9260822, 9590305, 12938801, 12938801, 7158290, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,25] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 10970154, 10970154, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9855010, 5121042, 7158290, 10970154, 9590305, 9590305, 9590305, 9590305, 5121042, 5121042, 9590305, 9590305, 11359782, 11359782, 11359782, 5121042, 8269842, 11359782, 11359782, 11359782, 11359782, 10307102, 8269842, 10970154, 12938801, 12938801, 12938801, 10307102, 5121042, 11359782, 10970154, 10970154, 11359782, 11359782, 12938801, 10307102, 12938801, 12938801, 10970154, 10970154, 11359782, 5121042, 11359782, 12938801, 12938801, 12938801, 5121042, 11359782, 10970154, 10970154, 9590305, 1184016, 10970154, 10970154, 14778421, 9260822, 9590305, 12938801, 12938801, 7158290, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,26] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 1184016, 7158290, 9590305, 9590305, 9590305, 9260822, 9260822, 5121042, 5121042, 9590305, 9590305, 11359782, 11359782, 10307102, 8269842, 8269842, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 8269842, 5121042, 8269842, 11359782, 11359782, 11359782, 11359782, 10307102, 8269842, 11359782, 11359782, 11359782, 11359782, 11359782, 8269842, 10307102, 12938801, 12938801, 12938801, 11359782, 11359782, 10970154, 10970154, 7158290, 1184016, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 7158290, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,27] (unpack #(5263440, 5263440, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 10970154, 9590305, 1184016, 7158290, 9590305, 9590305, 9590305, 9260822, 9260822, 5121042, 5121042, 10307102, 10307102, 10307102, 10307102, 10307102, 8269842, 8269842, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 8269842, 5121042, 8269842, 11359782, 11359782, 11359782, 11359782, 10307102, 8269842, 11359782, 11359782, 11359782, 11359782, 11359782, 8269842, 10307102, 12938801, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 7158290, 1184016, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 7158290, 1184016, 1184016, 1184016, 1184016, 10520925, 10520925, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,28] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 9855010, 10520925, 10520925, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9855010, 9855010, 9590305, 10970154, 10970154, 9260822, 5121042, 5121042, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 5121042, 5121042, 10307102, 10307102, 10307102, 10307102, 9260822, 9260822, 8269842, 10307102, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 8269842, 8269842, 8269842, 11359782, 11359782, 11359782, 11359782, 10307102, 5121042, 10307102, 11359782, 11359782, 11359782, 11359782, 10307102, 10307102, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 5121042, 1184016, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 9590305, 5121042, 1184016, 1184016, 1184016, 1184016, 9590305, 16233822, 10520925, 5121042, 1184016, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,29] (unpack #(1184016, 1184016, 1184016, 1184016, 1184016, 7158290, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290, 9855010, 10520925, 10520925, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 10970154, 9260822, 9260822, 9260822, 9260822, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 9260822, 9260822, 10970154, 10970154, 11359782, 11359782, 11359782, 11359782, 10307102, 10307102, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 11359782, 11359782, 10307102, 10307102, 10970154, 10970154, 10970154, 10970154, 10307102, 10307102, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 11359782, 9260822, 7158290, 7158290, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 9590305, 5121042, 5121042, 5121042, 5121042, 5121042, 9590305, 9590305, 10520925, 5121042, 5121042, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,30] (unpack #(1184016, 1184016, 1184016, 1184016, 5121042, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9590305, 9590305, 9855010, 9855010, 9855010, 9855010, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 5121042, 1184016, 1184016))
setpixels bitmap_Snow3D [0,31] (unpack #(1184016, 5121042, 10520925, 1184016, 5121042, 9260822, 9260822, 7158290, 7158290, 9260822, 7158290, 7158290, 9260822, 9260822, 9260822, 9260822, 9260822, 7158290, 7158290, 7158290, 7158290, 7158290, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 5121042, 5121042, 7158290, 7158290, 9260822, 9260822, 9260822, 9260822, 7158290, 7158290, 5121042, 5121042, 7158290, 7158290, 7158290, 7158290, 9260822, 9260822, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 5121042, 5121042, 7158290, 7158290, 9260822, 9260822, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290, 7158290, 7158290, 9260822, 1184016, 5121042, 5121042, 7158290, 7158290, 5121042, 5121042, 5121042, 5121042, 1184016, 1184016, 5121042, 5121042, 5121042, 5121042))
setpixels bitmap_Snow3D [0,32] (unpack #(1184016, 1184016, 7158290, 9260822, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290, 7158290, 5121042, 5121042, 5121042, 5121042, 7158290, 5121042, 5121042, 7158290, 7158290, 5121042, 5121042, 7158290, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 5121042, 5121042, 5121042, 9260822, 9260822, 7158290, 5121042, 5121042, 5121042, 7158290, 5121042, 1184016, 7158290, 9260822, 9260822, 5121042, 1184016, 5121042, 5121042, 5121042, 1184016, 5121042, 7158290, 7158290, 1184016, 1184016, 5121042, 1184016, 5121042, 1184016, 5121042, 5121042, 5121042, 5121042, 5121042, 1184016, 5121042, 5121042, 1184016, 7158290, 1184016, 1184016, 1184016, 5121042, 1184016, 5121042, 1184016, 1184016, 7158290, 1184016, 1184016, 5121042, 1184016, 1184016, 5121042, 1184016, 5121042, 1184016, 5121042, 1184016, 5121042, 1184016, 1184016, 1184016))
setpixels bitmap_Snow3D [0,33] (unpack #(7158290, 7158290, 9260822, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 5121042, 5121042, 5121042, 9260822, 9260822, 9260822, 9260822, 5121042, 7158290, 5121042, 5121042, 1184016, 7158290, 9260822, 9260822, 5121042, 1184016, 5121042, 5121042, 5121042, 5121042, 5121042, 9260822, 9260822, 1184016, 5121042, 5121042, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 1184016, 5121042, 1184016, 5121042, 1184016, 1184016, 7158290, 7158290, 1184016, 5121042, 1184016, 5121042, 1184016, 5121042, 1184016, 5121042, 7158290, 5121042, 5121042, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290))
setpixels bitmap_Snow3D [0,34] (unpack #(9260822, 9260822, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 1184016, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 1184016, 5121042, 5121042, 7158290, 5121042, 5121042, 5121042, 5121042, 5121042, 7158290, 7158290, 7158290, 7158290, 5121042, 9260822, 1184016, 1184016, 5121042, 9260822, 9260822, 9260822, 9260822, 5121042, 9260822, 5121042, 1184016, 5121042, 7158290, 9260822, 9260822, 5121042, 5121042, 5121042, 9260822, 5121042, 7158290, 7158290, 9260822, 9260822, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822))
setpixels bitmap_Snow3D [0,35] (unpack #(9260822, 9260822, 7158290, 5121042, 5121042, 7158290, 5121042, 1184016, 5121042, 9260822, 7158290, 5121042, 1184016, 1184016, 5121042, 5121042, 5121042, 7158290, 5121042, 7158290, 7158290, 1184016, 5121042, 5121042, 7158290, 5121042, 7158290, 7158290, 7158290, 7158290, 7158290, 7158290, 9260822, 9260822, 9260822, 9260822, 7158290, 7158290, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822))
setpixels bitmap_Snow3D [0,36] (unpack #(9260822, 9260822, 9260822, 7158290, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9855010, 9855010, 9260822, 9260822, 9590305, 9260822, 9590305, 9855010, 9260822, 9260822, 9260822, 9260822, 9260822, 9855010, 9855010, 9855010, 9855010, 9855010, 9590305, 9260822, 9260822, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9260822, 9590305, 9260822, 9260822, 9260822, 9260822, 9590305, 9590305, 9260822, 9260822))
setpixels bitmap_Snow3D [0,37] (unpack #(9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 9590305, 9590305, 9855010, 9855010, 9260822, 9260822, 9590305, 9590305, 9855010, 9855010, 9855010, 9590305, 9590305, 9855010, 9590305, 9260822, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9260822, 9260822, 9260822, 9260822, 9590305, 9590305, 9260822, 9260822))
setpixels bitmap_Snow3D [0,38] (unpack #(9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9590305, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9855010, 9855010, 9855010, 9855010, 9855010, 9855010, 9855010, 9590305, 9590305, 9590305, 9590305, 9590305, 10970154, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 9855010, 9590305, 9590305, 9855010, 9260822, 9590305, 9855010, 9590305, 9590305, 9590305, 9855010, 9855010, 9590305, 9590305, 9855010, 9590305, 9260822, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9590305, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822))
setpixels bitmap_Snow3D [0,39] (unpack #(9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9590305, 9260822, 9855010, 9855010, 9590305, 9260822, 9590305, 9590305, 9590305, 9590305, 9590305, 9855010, 9590305, 9855010, 9855010, 9855010, 9855010, 9590305, 9590305, 9590305, 9590305, 9590305, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 10970154, 9855010, 10970154, 9855010, 9855010, 9590305, 9855010, 9590305, 9260822, 9590305, 9855010, 9590305, 9590305, 9855010, 9855010, 9590305, 9260822, 9855010, 9855010, 9260822, 9260822, 9590305, 9590305, 9590305, 9260822, 9590305, 9590305, 9590305, 9590305, 9260822, 9590305, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822, 9260822))
return bitmap_Snow3D
)

--Globle Icon Var
icon_Snow3D=load_bitmap_Snow3D()

--Program Used Function
fn delKeys Init_StartTime Init_EndTime =
( 
     at time Init_StartTime
     undo on
     (      
 	      sliderTime=Init_StartTime
	      selectKeys TrackCamera.controller (interval Init_StartTime Init_EndTime)
	      if HVOption then ( deletekeys TrackCamera.pos.controller.keys #selection
		                    deletekeys TrackCamera.pos.controller.keys #selection )

          if PosOption then deletekeys TrackCamera.position.controller.keys #selection
          if RotOption then deletekeys TrackCamera.rotation.controller #selection
      )
) 


--Create Interface
Utility EasyCamera "Easy Camera Tracker"
( 
 
    rollout aboutEasy "About Easy Camera Tracker"
    (
         label lab1 "Easy Camera Tracker 1.5 Final" 
         label lab8 "Written By Snow"
         bitmap the_bmp bitmap:icon_Snow3D
         label lab2 "Home http://zsnow.yeah.net"
         label lab3 "Email: yang.zhang@autodesk.com"
         label lab4 "discreet China ASE. Apr,2000"
     )
    rollout MainParament "Paraments"
    (
         --group design
         group "Time Sets"
         (
              spinner StartT "Start Time" range:[-100000,100000,0] type:#integer
              spinner EndT "End Time" range:[-100000,100000,100] type:#integer
          )
         group "Pin Object Sets"
         (
              label lab5 "Pin 1:" align:#left
              pickbutton choosePin1 "Pick" message:"Please Select The Pin1 Object" 
              label lab6 "Pin 2:" align:#left
              pickbutton choosePin2 "Pick" message:"Please Select The Pin2 Object" 
          )
         group "Camera Object Sets"
         (
              label lab7 "Track Camera:" align:#left
              pickbutton chooseCamera "Pick" message:"Please Select The Track Camera(Just use Free Type Now!)" 
          )
         group "Trans Relation Sets"
         (
              radiobuttons TrkType labels:#("Track", "Stablize")

          )
         
		group "Move Options Sets"
         (
              checkbox HVO "HV Position" checked:false
              checkbox PosO "Deepth Position" checked:true
              checkbox RotO "Rotation" checked:false
          )
         group "HV Sensitive Range"
         (
              spinner SenseRHV "Sensitive Range" range:[0,2,0.001] scale:0.01 message:"Larger value cause more sensitive."
          )
         group "Scale Sets"
         (
              spinner ScaleRHV "HV Pos Ratio" range:[0,10,1]
              spinner ScaleRPos "Deepth Pos Ratio" range:[0,10,1]
              spinner ScaleRRot "Rotation Ratio" range:[0,10,1]
          )
		group "Key Frame Interval"
         (
              spinner KeyIn "Interval Number" range:[1,100000,1]             
          )
         --event part
         on StartT changed i do
         (
              if i>EndT.value do EndT.value=i
              Init_StartTime=StartT.value
          )
         on EndT changed i do
         (
              if i<StartT.value do StartT.value=i
              Init_EndTime=EndT.value
          )
         on choosePin1 picked i do
         (
              lab5.text="Pin 1:"+ i.name
              Pin_Obj1=i
          )
         on choosePin2 picked i do 
         (
              lab6.text="Pin 2:" + i.name
              Pin_Obj2=i
          )
         on chooseCamera picked i do
         (
              lab7.text="Track Camera:"+ i.name
              TrackCamera=i
          )

         on TrkType changed i do if i==1 then TrackType=1 else TrackType=-1

		on HVO changed i do HVOption=i
         on PosO changed i do PosOption=i
         on RotO changed i do RotOption=i
         
		on SenseRHV changed i do SenseRange=i

         on ScaleRHV changed i do ScaleRatioHV=i
         on ScaleRPos changed i do ScaleRatioP=i
         on ScaleRRot changed i do ScaleRatioR=i
		on KeyIn changed i do KeyInterval=i
     )
    rollout getTrack "Get Tracking"
    (
         group "Commands Sets"
         ( 
              button Tracker "Track" toolTip:"Track The Camera" 
       	     button ClearM "ClearMove" toolTip:"Clear The Camera's Movement"

          )
         on Tracker pressed do
         (
              --main part of the program
              --Start Ani
              --Init State
	
            if Pin_Obj1!=undefined and Pin_Obj2!=undefined and TrackCamera!=undefined then
          
            (  in coordsys world
              (
                     at time Init_StartTime
                     (    
                          DistancePP= sqrt((Pin_Obj1.pos.x-Pin_Obj2.pos.x)^2 +(Pin_Obj1.pos.z-Pin_Obj2.pos.z)^2)
                          DistancePC= abs(TrackCamera.pos.y-(Pin_Obj1.pos.y+Pin_Obj2.pos.y)/2)
                          CameraY=TrackCamera.pos.y
                          AngleT=DistancePP/2/DistancePC
                          AnglePPT=atan((Pin_Obj1.pos.z-Pin_Obj2.pos.z)/(Pin_Obj1.pos.x-Pin_Obj2.pos.x))
                          CameraAngle=TrackCamera.rotation.y
                      )
					  
                     delKeys Init_StartTime Init_EndTime
					 
                     animate on
                     for t in Init_StartTime+KeyInterval to Init_EndTime by KeyInterval do
                     (
					   preTime=t-KeyInterval
                          at time preTime
                          (    
                                 TempPin1_Pos=Pin_Obj1.pos
                                 TempPin2_Pos=Pin_Obj2.pos
                                 TempPin_Pos=(Pin_Obj1.pos+Pin_Obj2.pos)/2
						     TempCameraPos=TrackCamera.pos
                           )


                          at time t
                          (
                                  DistanceTemp= sqrt((Pin_Obj1.pos.x-Pin_Obj2.pos.x)^2 +(Pin_Obj1.pos.z-Pin_Obj2.pos.z)^2)
                                  AngleTemp=atan((Pin_Obj1.pos.z-Pin_Obj2.pos.z)/(Pin_Obj1.pos.x-Pin_Obj2.pos.x))
                                  RotTemp=(AngleTemp-AnglePPT)*ScaleRatioR*TrackType
                                  AnglePPT=AngleTemp
						      --print RotTemp to:Debug
                                  if HVOption do
                                  (
                                             MoveSense=(Pin_Obj1.pos-TempPin1_Pos)-(Pin_Obj2.pos-TempPin2_Pos)
                                                                                        
                                             --whether camera HV position  changed
                                             if (abs(MoveSense.x)<=SenseRange) or (abs(MoveSense.z)<=SenseRange) then
											 (        
                                                             TrackCamera.pos=TempCameraPos-((Pin_Obj1.pos+Pin_Obj2.pos)/2-TempPin_Pos)*ScaleRatioHV*TrackType

							                     )
									   else 
									          TrackCamera.pos=TempCameraPos
									     
                                   )
							 
                       
                                  if PosOption do  TrackCamera.pos.y=CameraY+(DistanceTemp/2/AngleT-DistancePC)*ScaleRatioP*TrackType
						      if RotOption do  rotate TrackCamera (angleaxis RotTemp y_axis)

                            )
                     )
               )
             )  --end of main part
	        else messageBox "Some elements not set. Check them again!"

         )
         on ClearM pressed do
         ( 
 			    delKeys Init_StartTime Init_EndTime
          )  
    )
    --Open Rollout 
    on EasyCamera open do
    (  
         addRollout aboutEasy
         addRollout MainParament
         addRollout getTrack
     ) 

    --close Rollout
    on EasyCamera close do
    (  
         removeRollout aboutEasy
         removeRollout MainParament
         removeRollout getTrack
     )   
)
--end of script