/* Camera Plugin - DMS2 - MARCH 2002 - by arkeon */

typeof class=S;;

/*-------------*/
fun MoreP()=
 let M3getCamera session cam -> [a b [zclip zmiddle zmax]] in
  let a -> [ax ay] in 
  M3setCamera session cam [[ax +30 ay +30] b [zclip zmiddle zmax]]
;;

/*-------------*/
fun LessP()=
 let M3getCamera session cam -> [a b [zclip zmiddle zmax]] in
  let a -> [ax ay] in 
  M3setCamera session cam [[ax -30 ay -30] b [zclip zmiddle zmax]]
;;

fun SetP(param)=
 let M3getCamera session cam -> [a b [zclip zmiddle zmax]] in
let lineextr param -> [ax [ay _]] in
let atoi ax -> Pax in
let atoi ay -> Pay in
  M3setCamera session cam [[Pax Pay] b [zclip zmiddle zmax]]
;;


/*-------------*/
fun activate(o,from,action,param,reply)=
if !strcmp action (strcatn (ObName o)::".more"::nil) then 
  MoreP 
else 
   if !strcmp action (strcatn (ObName o)::".less"::nil) then
     LessP  
   else 
      if !strcmp action (strcatn (ObName o)::".Setpers"::nil) then
  ( if param != nil then
    SetP param       
   else nil;
   )
else nil;;

fun newOb(o)=
    ObRegisterAction o (strcatn (ObName o)::".more"::nil) @activate;
    ObRegisterAction o (strcatn (ObName o)::".less"::nil) @activate;
    ObRegisterAction o (strcatn (ObName o)::".Setpers"::nil) @activate;    
0 
;; 

/*-------------*/
fun IniPlug(file)=
 set class=getInfo strextr _getpack _checkpack file "name";
 PlugRegister class @newOb nil;  
 0;;