aboutsummaryrefslogtreecommitdiff
path: root/demo/sgi/gl_panel/twoview/camera.s
blob: f61a58e318258e4b86809ac7ab1aa8539c2aa850 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
;;; This file was automatically generated by the panel editor.
;;; If you read it into gnu emacs, it will automagically format itself.

(panel (prop help creator:user-panel-help)
(prop user-panel #t)
(label "Camera Control")
(x 1010)
(y 589)
(al (pnl_wide_button (name "quitbutton")
(prop help creator:user-act-help)
(label "quit")
(x 3.5)
(y 1)
(w 0.94)
(downfunc move-then-resize)
)
(pnl_filled_hslider (name "farclip")
(prop help creator:user-act-help)
(label "far clipping plane")
(x 1.25)
(y 3.5)
(w 3.3)
(h 0.4)
(val 0.752)
(downfunc move-then-resize)
)
(pnl_filled_hslider (name "nearclip")
(prop help creator:user-act-help)
(label "near clipping plane")
(x 1.25)
(y 4.5)
(w 3.3)
(h 0.4)
(val 0.17)
(downfunc move-then-resize)
)
(pnl_filled_vslider (name "zoom")
(prop help creator:user-act-help)
(label "zoom")
(x 0.2)
(y 1.25)
(w 0.4)
(h 3.9)
(val 0.344)
(downfunc move-then-resize)
)
)
)
;;; Local Variables:
;;; mode: scheme
;;; eval: (save-excursion (goto-char (point-min)) (kill-line 3))
;;; eval: (save-excursion (goto-char (point-min)) (replace-regexp "[ \n]*)" ")"))
;;; eval: (indent-region (point-min) (point-max) nil)
;;; eval: (progn (kill-line -3) (delete-backward-char 1) (save-buffer))
;;; End: