source: trunk/media/3ds_max/rendering_setup.ms @ 411

Revision 216, 1.9 KB checked in by barra_parpg, 10 years ago (diff)
Line 
1utility IsoRender "Isometric Render" --aide a la creation de camera isometric
2(
3        Local Sel_RenderObjet
4        Local SquarePath
5    Local imageratio = 1.41 as float
6        local Target01
7       
8        group "Camera"
9        (
10                PickButton pckBut_RenderObj "Render Objet" align:#left width:140
11                Button  BUT_CreatePath04 " 4 Sect square" align:#left width:140 enabled:false
12                Spinner SP_RectSize "Path Size" range:[0,10000,50] enabled:false
13                Spinner SP_TargetZPos "Look Height" range:[0,10000,0] enabled:false
14                Button BUT_CameraCreate " Create Camera" align:#left width:140 enabled:false
15        )
16       
17        Group "Animation"
18        (
19                Button But_SetAnimRange "Set Animation Range" Align:#left width:140 Enabled:false
20        )
21
22        Group "Render"
23        (
24               
25        )
26       
27        Group "About"
28        (
29                label creation "Créer par David Bordleau"
30                Button But_About "about"
31        )
32       
33        --Fin UI Creation//////////////////////////////////////
34       
35       
36        --UI Group CAMERA
37        on pckBut_RenderObj picked Sel_RenderObjet do
38        (
39                pckBut_RenderObj.text = Sel_RenderObjet.name
40            BUT_CreatePath04.enabled = true
41                SP_RectSize.enabled = true
42                SP_TargetZPos.enabled = true
43        )
44               
45        on BUT_CreatePath04 pressed  do
46        (
47                SquarePath = rectangle pos:[0,0,SP_RectSize.value] width:150  length:150 name:"Camera_Path"
48                But_CameraCreate.enabled = true
49        )
50
51
52        on But_CameraCreate pressed do
53        (
54                RenderCamera = targetCamera()
55                Target01 = TargetObject pos:[0,0,0]
56                RenderCamera.target = Target01
57                RenderCamera.pos.controller = Path_Constraint()
58                RenderCamera.pos.controller.path = SquarePath
59        )
60        on SP_RectSize changed val do
61        (
62                SquarePath.length = val
63                SquarePath.Width = val 
64                SquarePath.pos.z = val* imageratio
65        )
66       
67        on SP_TargetZPos changed val do
68        (
69                $Target01.pos.z = val
70        )
71       
72        --UI GROUP ANIMATION
73        --UI GROUP RENDER
74        --UI GROUP ABOUT
75        On But_About pressed do
76        (
77        messagebox " Ce script est à but instructif seulement \n pour ton besoin conctacter moi Dbordelau@gmail.com" title: "Info "
78                )
79)
Note: See TracBrowser for help on using the repository browser.