カメラの共通プロパティ、演算子、メソッド

c = freecamera()
--> $Free_Camera:Camera01 @ [0.000000,0.000000,0.000000]
cameraFOV
--> #Struct:cameraFOV(
--> FOVtoMM:<fn>,
--> CurFOVtoFOV:<fn>,
--> FOVtoCurFOV:<fn>,
--> MMtoFOV:<fn>)
cameraFOV.FOVtoMM 45 --convert horizontal FOV of 45 degrees into mm
--> 43.4558
cameraFOV.MMtoFOV 43.4558--convert 43.4558 mm back to degrees
--> 45
c.fovType = 3--set the FOV type to diagonal
--> 3
cameraFOV.CurFOVtoFOV c 54.7473--convert diagonal to horizontal FOV
--> 45
cameraFOV.FOVtoCurFOV c 45--convert 45 deg. horizontal to diagonal FOV
--> 54.7473
c.curFOV--current FOV type, in this case 3=diagonal
--> 54.7473
c.fov--this is ALWAYS the horizontal FOV!
--> 45
c.fovType = 1--set current FOV to 1=horizontal
--> 1
c.curFOV--the current FOV is now horizontal
--> 45
c.fov--this must return the same as current, as both are horizontal
--> 45
 

 
fn ZE_Cam cam objs =
(
local max2, fov, asp, v-- declare local variables
-- define a function that returns the maximum value
-- of a set of values in an array
fn maxof vals = (local v=vals[1];for v1 in vals do (if v1 > v do v=v1);v)
fov=0-- initialize the fov value
asp=(renderWidth as float)/renderHeight-- calculate the renderer's image aspect ratio
in coordsys cam-- work in coordinate system ofthe camera
(
for obj in objs where obj != cam do-- loop across all objects except the camera
(
if obj.min.z >=0 do continue-- if object is behind camera, skip it
-- get max value of the object's bounding box, correcting for the image aspect ratio
-- in the y values
v = maxof #((abs obj.max.x),(abs obj.min.x),(abs (obj.max.y*asp)),(abs (obj.min.y*asp)))
fov = maxof #(fov,(2*atan(-v/obj.min.z)))-- increase fov if needed
)
)
cam.fov=fov-- set the camera's fov to the new fov value
)
-- test bed --
cam=$camera001-- specify the camera to "zoom extent all" on
ZE_Cam cam $*-- call the function, passing the camera and an object set containing all objects