forked from fsinapsi/ffmatch
-
Notifications
You must be signed in to change notification settings - Fork 0
/
move-scd.tin
70 lines (60 loc) · 3.57 KB
/
move-scd.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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defnet move-scd-left1-cb (self)
(move-scd-low 1 true) )
(defnet move-scd-right1-cb (self)
(move-scd-low 1 false) )
(defnet move-scd-left2-cb (self)
(move-scd-low 2 true) )
(defnet move-scd-right2-cb (self)
(move-scd-low 2 false) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defnet move-scd-low (which left)
(opt (move-scd-low-low which left)) )
(defnet move-scd-low-low (which left)
(deflocal av scd thres o n)
(gui-not-locked)
(set av <_kv (+ "av" which)>)
(if (or (= which 1) (= <_kv "prm"> undef))
then (set scd (cfg-get (key-scd av (fullpath->name <_kv (+ "path" which)>))))
(listp scd)
(set scd <scd 4>)
else (set scd (cdr (cfg-get (key-prm <_kv "av1"> <_kv "av2"> (fullpath->name <_kv "path1">) (fullpath->name <_kv "path2">)))))
(<> scd undef) )
(set thres (iup-text-spin-ratio-val <_kv (+ "scd-spin" which)>))
(set o (gui-spin-value which))
(if left
then (for n in 1 .. (- o 1) rev do
(if (>= <scd n> thres)
then (gui-spin-set-value which n)
(gui-update-image)
(fail) ))
else (for n in (+ o 1) .. (- (av-approximated-number-of-frames av) 2) do
(if (>= <scd n> thres)
then (gui-spin-set-value which n)
(gui-update-image)
(fail) ))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;