-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathmove-slide.tin
41 lines (35 loc) · 2.17 KB
/
move-slide.tin
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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defnet move-slide-changed1-cb (self)
(move-slide-changed self 1) )
(defnet move-slide-changed2-cb (self)
(move-slide-changed self 2) )
(defnet move-slide-changed (self which)
(deflocal v vmax kf)
(opt (gui-not-locked)
(set v (iup-get-double self "VALUE"))
(if (<= v 0.025)
then (set v 1)
else (set vmax (iup-get-int <_kv (+ "spin" which)> "SPINMAX"))
(set v (rint (linear v 0 1 1 vmax)))
(set kf (av-nearest-keyframe <_kv (+ "av" which)> v (div vmax 500)))
(if (integerp kf)
then (set v (max 1 kf)) ))
(gui-spin-set-value which v)
(gui-update-image) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;