Looping-Rings/Parameter.sc at master · Upow1234/Looping-Rings · GitHub

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
//getter variables may not ever be necessary and
//if they are not being used they should be taken out

Parameter {
	var <name, <minimum, <maximum, <scale, <value, <destination, <argument, <iterations;

	*new { arg nameTemp, minimumTemp, maximumTemp, scaleTemp, valueTemp, destinationTemp, argumentTemp, iterationsTemp;
		^super.new.init(nameTemp, minimumTemp, maximumTemp, scaleTemp, valueTemp, destinationTemp, argumentTemp, iterationsTemp)
	}

	init { arg nameTemp, minimumTemp, maximumTemp, scaleTemp, valueTemp, destinationTemp, argumentTemp, iterationsTemp;
		name = nameTemp;
		minimum = minimumTemp;
		maximum = maximumTemp;
		scale = scaleTemp;
		value = valueTemp;
		destination = destinationTemp;
		argument = argumentTemp;
		iterations = iterationsTemp;
	}


	currentValue {
		(name + " = " + value).postln;

		^value;
	}

	change { arg input;

		value = value + (input / scale);

		if((value <= minimum), {
			value = minimum;
		});

		if((value >= maximum), {
			value = maximum;
		});

		(name + " = " + value).postln;

		^(name + " = " + value);
	}


	sendChange {

		if(iterations == -1, {
			destination.value(value);
		});

		if(iterations == 0, {
			destination.set(argument, value);
		});

		if(iterations > 0, {
			for(0, iterations, { arg i;
				destination[i].set(argument, value);
			});
		});

	}


}