SF.net SVN: supercollider:[9092] trunk/build/Help

View: New views

2 Messages — Rating Filter: Alert me

SF.net SVN: supercollider:[9092] trunk/build/Help

by jmfuo :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

Revision: 9092
http://supercollider.svn.sourceforge.net/supercollider/?rev=9092&view=rev
Author: jmfuo
Date: 2009-04-21 18:27:14 +0000 (Tue, 21 Apr 2009)

Log Message:
-----------
Replaced some remaining GUI. syntax

Modified Paths:
--------------
trunk/build/Help/3vs2/Spawning.html
trunk/build/Help/Control/ControlSpec.html
trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html
trunk/build/Help/UGens/MachineListening/MFCC.html

Modified: trunk/build/Help/3vs2/Spawning.html
===================================================================
--- trunk/build/Help/3vs2/Spawning.html 2009-04-21 16:04:09 UTC (rev 9091)
+++ trunk/build/Help/3vs2/Spawning.html 2009-04-21 18:27:14 UTC (rev 9092)
@@ -5,29 +5,28 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="949.43">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
-p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #84301e}
+p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0827ac}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
-p.p11 {margin: 0.0px 0.0px 0.0px 10.0px; font: 9.0px Monaco; color: #000000}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
-p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #84301e; min-height: 12.0px}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
+p.p10 {margin: 0.0px 0.0px 0.0px 10.0px; font: 9.0px Monaco}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000; min-height: 12.0px}
span.s1 {font: 12.0px Helvetica; color: #000000}
span.s2 {color: #000000}
-span.s3 {color: #0827ac}
+span.s3 {color: #0000bf}
span.s4 {color: #606060}
-span.s5 {color: #84301e}
+span.s5 {color: #bf0000}
span.s6 {color: #0000bf}
span.s7 {font: 12.0px Helvetica}
-span.s8 {color: #4d6a25}
+span.s8 {color: #007300}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -42,7 +41,7 @@
 (
 x = SynthDef("Help-SynthDef", 
 { arg out=0;
- Out.ar(out, PinkNoise.ar(0.1))
+ Out.ar(out, PinkNoise.ar(0.1))
 }).play; // SynthDef-play returns a Synth object.
 ) 
 
@@ -72,22 +71,22 @@
In SC3 time-based sequences of events can be implemented using Routines. A Routine which yields a number can be scheduled using a clock:
 
 (
- var w, r;
- w = GUI.window.new("trem", Rect(512, 256, 360, 130));
- w.front;
- r = Routine({ arg time;
- 60.do({ arg i;
- 0.05.yield; // wait for 0.05 seconds
- {
- w.bounds = w.bounds.moveBy(10.rand2, 10.rand2);
- w.alpha = cos(i*0.1pi)*0.5+0.5;
- }.defer;
- });
- 1.yield; // wait for 1 second before closing w
- w.close;
- });
- SystemClock.play(r);
- )
+ var w, r;
+ w = Window.new("trem", Rect(512, 256, 360, 130));
+ w.front;
+ r = Routine({ arg time;
+ 60.do({ arg i;
+ 0.05.yield; // wait for 0.05 seconds
+ {
+ w.bounds = w.bounds.moveBy(10.rand2, 10.rand2);
+ w.alpha = cos(i*0.1pi)*0.5+0.5;
+ }.defer;
+ });
+ 1.yield; // wait for 1 second before closing w
+ w.close;
+ });
+ SystemClock.play(r);
+ )
 
Note that this implementation avoids one of the stranger aspects of the SC2 approach: The need to start a Synth to schedule time-based behavior, even if no audio is involved.
 
@@ -161,19 +160,19 @@
 
 r.stop; // stop this but not that or the other
 q.reset; // reset that while playing
- 
+ 
 c = TempoClock.new; // make a TempoClock
 r.reset; // have to reset this because it's stopped
 c.play(r); // play this in the new clock; starts from the beginning
 c.tempo = 16; // increase the tempo of this
- 
+ 
 SystemClock.clear; // clear EVERYTHING scheduled in the SystemClock; so that and the other 
 // but not this
- 
+ 
 c.clear; // clear everything scheduled in c, i.e. this
 c.play(r); // since it wasn't stopped, we don't have to reset this
 // and it picks up where it left off
- 
+ 
 c.stop // stop c, destroy its scheduler, and release its OS thread
 
For convenience pauseable scheduling can be implemented with a Task. Task.new takes two arguments, a function and a clock, and creates it's own Routine. If you don't specify a clock, it will create a TempoClock for you. Since you don't have to explicitly create a Clock or Routine, use of Task can result in code that is a little more compact.

Modified: trunk/build/Help/Control/ControlSpec.html
===================================================================
--- trunk/build/Help/Control/ControlSpec.html 2009-04-21 16:04:09 UTC (rev 9091)
+++ trunk/build/Help/Control/ControlSpec.html 2009-04-21 18:27:14 UTC (rev 9092)
@@ -21,27 +21,18 @@
p.p12 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 14.0px Helvetica}
p.p13 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 14.0px Helvetica; min-height: 17.0px}
p.p14 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 11.0px Monaco}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #bf0000}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #007300}
-p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #a41c14}
+p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #356f14}
+p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a41c14}
p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
-p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0018b8}
span.s1 {font: 18.0px Helvetica}
-span.s2 {color: #0000bf}
-span.s3 {color: #0000bf}
-span.s4 {color: #0000bf}
-span.s5 {font: 12.0px Helvetica}
-span.s6 {color: #007300}
-span.s7 {color: #0000bf}
-span.s8 {color: #000000}
-span.s9 {color: #007300}
-span.s10 {color: #0000bf}
-span.s11 {color: #606060}
-span.s12 {text-decoration: underline ; color: #0000bf}
-span.s13 {color: #0000bf}
-span.s14 {color: #0000bf}
-span.s15 {color: #007300}
+span.s2 {color: #0018b8}
+span.s3 {font: 12.0px Helvetica}
+span.s4 {color: #356f14}
+span.s5 {color: #000000}
+span.s6 {color: #606060}
+span.s7 {text-decoration: underline ; color: #0018b8}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -50,7 +41,7 @@
 
Inherits from: Object : <a href="Spec.html">Spec</a>
 
-The original, and most common spec (see <a href="Spec.html">Spec</a> ). A ControlSpec is used by GUI sliders and knobs to specify the range and curve of the controls. ControlSpec may be used in many ways to map from linear 0..1 range to your desired range and back.
+The original, and most common spec (see <a href="Spec.html">Spec</a> ). A ControlSpec is used by GUI sliders and knobs to specify the range and curve of the controls. ControlSpec may be used in many ways to map from linear 0..1 range to your desired range and back.
 
The most common way to create one is by 
 
@@ -67,7 +58,7 @@
 default - The default value
 units - The units, e.g. "hz". Used by some gui's as a unit label.
 
- g = ControlSpec(0,2000,\exp,0.1, 220,"Hz");
+ g = ControlSpec(0,2000,\exp,0.1, 220,"Hz");
 
 or
 
@@ -102,19 +93,19 @@
 
 storeArgs
 
- Returns: [minval,maxval,warp.asSpecifier,step,default,units] 
+ Returns: [minval,maxval,warp.asSpecifier,step,default,units] 
 
 constrain (value)
 
- Returns value.asFloat.clip(clipLo, clipHi).round(step).
+ Returns value.asFloat.clip(clipLo, clipHi).round(step).
 
 range
 
- Returns maxval - minval.
+ Returns maxval - minval.
 
 ratio
 
- Returns maxval / minval.
+ Returns maxval / minval.
 
 map (value)
 
@@ -133,104 +124,104 @@
Examples
 
// array is used as arguments to ControlSpec.new( minval, maxval, warp, step, default)
-[300,3000,\exponential,100].asSpec.dump
-Instance of ControlSpec { (0313FC08, gc=00, fmt=00, flg=00, set=03)
+[300,3000,\exponential,100].asSpec.dump
+Instance of ControlSpec { (0313FC08, gc=00, fmt=00, flg=00, set=03)
 instance variables [6]
- minval : Integer 300
- maxval : Integer 3000
- warp : Symbol 'exponential'
- step : Integer 100
- default : Integer 300
+ minval : Integer 300
+ maxval : Integer 3000
+ warp : Symbol 'exponential'
+ step : Integer 100
+ default : Integer 300
}
 
// partially specified ...
[-48,48].asSpec.dump
-Instance of ControlSpec { (0313FF18, gc=00, fmt=00, flg=00, set=03)
+Instance of ControlSpec { (0313FF18, gc=00, fmt=00, flg=00, set=03)
 instance variables [6]
- minval : Integer -48
- maxval : Integer 48
- warp : Symbol 'linear'
- step : Float 0
- default : Integer -48
+ minval : Integer -48
+ maxval : Integer 48
+ warp : Symbol 'linear'
+ step : Float 0
+ default : Integer -48
}
 
// a Symbol
-\freq.asSpec.dump
-Instance of ControlSpec { (180F4910, gc=3C, fmt=00, flg=00, set=03)
+\freq.asSpec.dump
+Instance of ControlSpec { (180F4910, gc=3C, fmt=00, flg=00, set=03)
 instance variables [8]
- minval : Integer 20
- maxval : Integer 20000
- warp : instance of ExponentialWarp (17FEDB30, size=1, set=1)
- step : Integer 0
- default : Integer 440
- units : " Hz"
- clipLo : Integer 20
- clipHi : Integer 20000
+ minval : Integer 20
+ maxval : Integer 20000
+ warp : instance of ExponentialWarp (17FEDB30, size=1, set=1)
+ step : Integer 0
+ default : Integer 440
+ units : " Hz"
+ clipLo : Integer 20
+ clipHi : Integer 20000
}
-In this case \freq was looked up in the Specs dictionary. See <a href="Spec.html">Spec</a>
+In this case \freq was looked up in the Specs dictionary. See <a href="Spec.html">Spec</a>
Some common mappings are initialized in ControlSpec.initClass
and also (for the moment) in Crucial-initClass
 
// nil becomes a default ControlSpec
-nil.asSpec.dump
-Instance of ControlSpec { (0313FF18, gc=00, fmt=00, flg=00, set=03)
+nil.asSpec.dump
+Instance of ControlSpec { (0313FF18, gc=00, fmt=00, flg=00, set=03)
 instance variables [6]
- minval : Float 0
- maxval : Float 1
- warp : Symbol 'linear'
- step : Float 0
- default : Float 0
+ minval : Float 0
+ maxval : Float 1
+ warp : Symbol 'linear'
+ step : Float 0
+ default : Float 0
}
 
// example
 
// make a frquency spec with an exponential range from 20 to 20000, 
// give it a rounding of 30 (Hz)
-a = \freq.asSpec;
+a = \freq.asSpec;
a.step = 100;
 
// equivalent:
-a = [20, 20000, 'exp', 100, 440].asSpec;
+a = [20, 20000, 'exp', 100, 440].asSpec;
a.dump;
 
-a.constrain(800); // make sure it is in range and round it.
-a.constrain(803); // make sure it is in range and round it. 
+a.constrain(800); // make sure it is in range and round it.
+a.constrain(803); // make sure it is in range and round it. 
 
a.map(0.5);
-a.map(0.0); // returns min
-a.map(1.5); // exceeds the area: clip, returns max
+a.map(0.0); // returns min
+a.map(1.5); // exceeds the area: clip, returns max
 
a.unmap(4000);
a.unmap(22.0); 
 
// using spec for sliders:
(
-var w, c, d;
-w = GUI.window.new("control", Rect(128, 64, 340, 160));
+var w, c, d;
+w = Window.new("control", Rect(128, 64, 340, 160));
w.front;
-c = GUI.slider.new(w, Rect(10, 10, 300, 30));
-d = GUI.staticText.new(w, Rect(10, 40, 300, 30));
+c = Slider.new(w, Rect(10, 10, 300, 30));
+d = StaticText.new(w, Rect(10, 40, 300, 30));
c.action = { 
- d.string = "unmapped value"
+ d.string = "unmapped value"
 + c.value.round(0.01) 
- + "......" 
- + "mapped value" 
+ + "......" 
+ + "mapped value" 
 + a.map(c.value)
};
)
 
ControlSpec-map can also be used to map ugens 
(
-var spec;
-spec = [ 100,18000,\exp].asSpec;
+var spec;
+spec = [ 100,18000,\exp].asSpec;
{
- var freq,osc;
- osc = SinOsc.kr(0.1).range(0,1);
+ var freq,osc;
+ osc = SinOsc.kr(0.1).range(0,1);
 freq = spec.map( osc );
 
- freq.dump;// BinaryOpUGen
+ freq.dump;// BinaryOpUGen
 
- SinOsc.ar(
+ SinOsc.ar(
 freq
 )
}.play

Modified: trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html
===================================================================
--- trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html 2009-04-21 16:04:09 UTC (rev 9091)
+++ trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html 2009-04-21 18:27:14 UTC (rev 9092)
@@ -10,7 +10,7 @@
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
-p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0018e8}
+p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #001ee6}
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica}
p.p6 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 9.0px Monaco; min-height: 12.0px}
p.p7 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 12.0px Helvetica}
@@ -20,26 +20,25 @@
p.p11 {margin: 0.0px 0.0px 0.0px 85.0px; text-indent: -85.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica; min-height: 17.0px}
p.p13 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 14.0px Helvetica; min-height: 17.0px}
-p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
-p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
-p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
+p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a41c14}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
+p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
span.s1 {font: 18.0px Helvetica}
-span.s2 {color: #5662aa}
+span.s2 {color: #5964a6}
span.s3 {color: #000000}
span.s4 {text-decoration: underline}
-span.s5 {text-decoration: underline ; color: #3148bf}
+span.s5 {text-decoration: underline ; color: #374cb9}
span.s6 {color: #6f7178}
-span.s7 {color: #5f68a0}
+span.s7 {color: #61699d}
span.s8 {font: 14.0px Helvetica}
-span.s9 {color: #2d49d4}
-span.s10 {text-decoration: underline ; color: #0018e8}
+span.s9 {color: #344ece}
+span.s10 {text-decoration: underline ; color: #001ee6}
span.s11 {text-decoration: underline ; color: #000000}
-span.s12 {color: #0013bb}
-span.s13 {color: #0000bf}
-span.s14 {color: #007300}
-span.s15 {color: #606060}
+span.s12 {color: #061fb5}
+span.s13 {text-decoration: underline ; color: #0727e0}
+span.s14 {color: #0018b8}
+span.s15 {color: #356f14}
+span.s16 {color: #606060}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -128,345 +127,345 @@
 
Examples
 
-<a href="../GUI-Overview.html">GUI-Overview</a> contains an elobarate example on how to make a gui widget with SCUserView using interface level coding. For a Tutorial on how to write a subclass of SCUserView to make your own custom GUI Widgets, see <a href="SCUserViewSubclassing/SCUserView-Subclassing.html">SCUserView-Subclassing</a>
+<a href="../GUI-Overview.html">GUI-Overview</a> contains an elobarate example on how to make a gui widget with SCUserView using interface level coding. For a Tutorial on how to write a subclass of SCUserView to make your own custom GUI Widgets, see <a href="SCUserViewSubclassing/SCUserView-Subclassing.html">SCUserView-Subclassing</a>
 
// Basic Usage. Resize the window to refresh the drawing. Or use mouse click.
- 
-(
-w=SCWindow.new;
-v=SCUserView(w, w.view.bounds.insetBy(50,50));
-v.background_(Color.rand);
-v.relativeOrigin=true;
-v.drawFunc={|uview|
- 
- Pen.moveTo(0@...);
- Pen.lineTo(uview.bounds.width@...);
- Pen.stroke;
- };
-v.mouseDownAction={v.refresh};
-w.front;
- 
-)
- 
- 
- 
+ 
+(
+w=Window.new;
+v=UserView(w, w.view.bounds.insetBy(50,50));
+v.background_(Color.rand);
+v.relativeOrigin=true;
+v.drawFunc={|uview|
+ 
+ Pen.moveTo(0@...);
+ Pen.lineTo(uview.bounds.width@...);
+ Pen.stroke;
+ };
+v.mouseDownAction={v.refresh};
+w.front;
+ 
+)
+ 
+ 
+ 
// A More complicated drawing function.
// Resize the window to refresh the drawing
-(
-var func;
- 
-func = {|me|
- Pen.use{
+(
+var func;
+ 
+func = {|me|
+ Pen.use{
 // clipping into the boundingbox
- Pen.moveTo((me.bounds.left)@(me.bounds.top));
- Pen.lineTo(((me.bounds.left)@(me.bounds.top))
- + (me.bounds.width@0));
- Pen.lineTo(((me.bounds.left)@(me.bounds.top))
- + (me.bounds.width@...));
- Pen.lineTo(((me.bounds.left)@(me.bounds.top))
- + (0@...));
- Pen.lineTo((me.bounds.left)@(me.bounds.top));
- Pen.clip;
- 
+ Pen.moveTo((me.bounds.left)@(me.bounds.top));
+ Pen.lineTo(((me.bounds.left)@(me.bounds.top))
+ + (me.bounds.width@0));
+ Pen.lineTo(((me.bounds.left)@(me.bounds.top))
+ + (me.bounds.width@...));
+ Pen.lineTo(((me.bounds.left)@(me.bounds.top))
+ + (0@...));
+ Pen.lineTo((me.bounds.left)@(me.bounds.top));
+ Pen.clip;
+ 
 // draw background
- Color.gray(0.5).set;
- Pen.moveTo((me.bounds.left)@(me.bounds.top));
- Pen.lineTo(((me.bounds.left)@(me.bounds.top))
- + (me.bounds.width@0));
- Pen.lineTo(((me.bounds.left)@(me.bounds.top))
- + (me.bounds.width@...));
- Pen.lineTo(((me.bounds.left)@(me.bounds.top))
- + (0@...));
- Pen.lineTo((me.bounds.left)@(me.bounds.top));
- Pen.fill; 
- 
- Pen.translate(100, 100);
- 10.do{
- Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
- Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
- Pen.perform([\stroke, \fill].choose);
- }
- }
-};
- 
-w = SCWindow.new("DrawFunc Examples").front;
-w.view.background_(Color.white);
-3.do{|i|
- v = SCUserView(w, Rect(20+(i*120), 100, 100, 100));
- v.drawFunc = func;
- v.relativeOrigin=false;
- 
-};
-w.refresh;
-)
- 
- 
+ Color.gray(0.5).set;
+ Pen.moveTo((me.bounds.left)@(me.bounds.top));
+ Pen.lineTo(((me.bounds.left)@(me.bounds.top))
+ + (me.bounds.width@0));
+ Pen.lineTo(((me.bounds.left)@(me.bounds.top))
+ + (me.bounds.width@...));
+ Pen.lineTo(((me.bounds.left)@(me.bounds.top))
+ + (0@...));
+ Pen.lineTo((me.bounds.left)@(me.bounds.top));
+ Pen.fill; 
+ 
+ Pen.translate(100, 100);
+ 10.do{
+ Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
+ Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
+ Pen.perform([\stroke, \fill].choose);
+ }
+ }
+};
+ 
+w = SCWindow.new("DrawFunc Examples").front;
+w.view.background_(Color.white);
+3.do{|i|
+ v = SCUserView(w, Rect(20+(i*120), 100, 100, 100));
+ v.drawFunc = func;
+ v.relativeOrigin=false;
+ 
+};
+w.refresh;
+)
+ 
+ 
// Use Relative Coordinates
// Set the Origin of Pen in the view's drawFunc relative to the SCUserView.
// This is particularly useful if resize is set in such a way the the position of the user view changes.
// Try resizing the Window.
- 
-(
-var func;
- 
-func = {|me|
- Pen.use{
- 10.do{
- Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
- Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
- Pen.perform([\stroke, \fill].choose);
- }
- }
-};
- 
-w = SCWindow.new("DrawFunc Examples").front;
-w.view.background_(Color.white);
- 
-3.do{|i|
- v = SCUserView(w, Rect(20+(i*120), 100, 100, 100))
- .drawFunc_(func).relativeOrigin_(true);
+ 
+(
+var func;
+ 
+func = {|me|
+ Pen.use{
+ 10.do{
+ Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
+ Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
+ Pen.perform([\stroke, \fill].choose);
+ }
+ }
+};
+ 
+w = SCWindow.new("DrawFunc Examples").front;
+w.view.background_(Color.white);
+ 
+3.do{|i|
+ v = SCUserView(w, Rect(20+(i*120), 100, 100, 100))
+ .drawFunc_(func).relativeOrigin_(true);
 v.resize=3; // the func coordinates ar valid even though the view move on resize
- v.background_(Color.rand);
-};
- 
-w.refresh;
-)
- 
- 
+ v.background_(Color.rand);
+};
+ 
+w.refresh;
+)
+ 
+ 
// Mouse Tracking
// Set the function which should be evaluated if the mouse is at the end of tracking (mouse-up).
// This function will be passed four arguments: theView, x coordinate, y coordinate, and keyboard modifiers.
- 
-(
-var drawFunc, mouseDownFunc, mouseUpFunc, mouseMoveFunc, sat = 0, absX;
- 
-drawFunc = {|me|
- Pen.use{
- 10.do{
- Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
- Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
- Pen.perform([\stroke, \fill].choose);
- }
- }
-};
- 
-mouseDownFunc = {|me, x, y, mod|
- absX = x;
- postf("begin path: x=% realtive mousePosition:%\n",absX, me.mousePosition);
-};
- 
-mouseUpFunc = {|me, x, y, mod|
- postf("end path: (absX-x)==% realtive mousePosition:%\n",(absX-x), me.mousePosition);
- 
-};
- 
-mouseMoveFunc = {|me, x, y, mod|
- sat = ((absX-x)/100);
- ((me.mousePosition)/(me.bounds.width@...)).postln;
- me.refresh;
-};
- 
-w = SCWindow.new.front;
-w.view.background_(Color.white);
-3.do{|i|
- v = SCUserView(w, Rect(20+(i*120), 100, 100, 100));
- v.background_(Color.rand);
- v.drawFunc = drawFunc;
- v.mouseDownAction = mouseDownFunc;
- v.mouseUpAction = mouseUpFunc;
- v.mouseMoveAction = mouseMoveFunc;
- v.relativeOrigin = true;
-};
-w.refresh;
-)
- 
- 
- 
+ 
+(
+var drawFunc, mouseDownFunc, mouseUpFunc, mouseMoveFunc, sat = 0, absX;
+ 
+drawFunc = {|me|
+ Pen.use{
+ 10.do{
+ Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
+ Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
+ Pen.perform([\stroke, \fill].choose);
+ }
+ }
+};
+ 
+mouseDownFunc = {|me, x, y, mod|
+ absX = x;
+ postf("begin path: x=% realtive mousePosition:%\n",absX, me.mousePosition);
+};
+ 
+mouseUpFunc = {|me, x, y, mod|
+ postf("end path: (absX-x)==% realtive mousePosition:%\n",(absX-x), me.mousePosition);
+ 
+};
+ 
+mouseMoveFunc = {|me, x, y, mod|
+ sat = ((absX-x)/100);
+ ((me.mousePosition)/(me.bounds.width@...)).postln;
+ me.refresh;
+};
+ 
+w = SCWindow.new.front;
+w.view.background_(Color.white);
+3.do{|i|
+ v = SCUserView(w, Rect(20+(i*120), 100, 100, 100));
+ v.background_(Color.rand);
+ v.drawFunc = drawFunc;
+ v.mouseDownAction = mouseDownFunc;
+ v.mouseUpAction = mouseUpFunc;
+ v.mouseMoveAction = mouseMoveFunc;
+ v.relativeOrigin = true;
+};
+w.refresh;
+)
+ 
+ 
+ 
// Use the mouse to draw on the view
- 
-(
-var w, txt, tmppoints, all;
-tmppoints = [];
- 
-w = SCWindow("draw on me", Rect(128, 64, 340, 360));
- 
-v = SCUserView(w,w.view.bounds)
- .mouseMoveAction_({|v,x,y|
- [x,y].postln;
- tmppoints = tmppoints.add(v.mousePosition);
- v.refresh;
-})
- .mouseUpAction_({|v,x,y|
- all = all.add(tmppoints.copy);
- tmppoints = [];
- v.refresh;
-})
- .drawFunc_{|me|
- Pen.use { 
- Color.white.set;
- Pen.fillRect(me.bounds.moveTo(0,0)); 
- Pen.width = 1;
- Color.black.set;
- 
- Pen.beginPath;
- 
- tmppoints.do{ |p, i|
- if(i == 0){
- Pen.moveTo(p);
- }{
- Pen.lineTo(p);
- }
- };
- all.do{|points|
- points.do{|p, i|
- if(i == 0){
- Pen.moveTo(p);
- }{
- Pen.lineTo(p);
- }
- };
- };
- Pen.stroke;
- };
- }; 
-v.relativeOrigin = true;
- 
-w.front;
-)
- 
- 
+ 
+(
+var w, txt, tmppoints, all;
+tmppoints = [];
+ 
+w = SCWindow("draw on me", Rect(128, 64, 340, 360));
+ 
+v = SCUserView(w,w.view.bounds)
+ .mouseMoveAction_({|v,x,y|
+ [x,y].postln;
+ tmppoints = tmppoints.add(v.mousePosition);
+ v.refresh;
+})
+ .mouseUpAction_({|v,x,y|
+ all = all.add(tmppoints.copy);
+ tmppoints = [];
+ v.refresh;
+})
+ .drawFunc_{|me|
+ Pen.use { 
+ Color.white.set;
+ Pen.fillRect(me.bounds.moveTo(0,0)); 
+ Pen.width = 1;
+ Color.black.set;
+ 
+ Pen.beginPath;
+ 
+ tmppoints.do{ |p, i|
+ if(i == 0){
+ Pen.moveTo(p);
+ }{
+ Pen.lineTo(p);
+ }
+ };
+ all.do{|points|
+ points.do{|p, i|
+ if(i == 0){
+ Pen.moveTo(p);
+ }{
+ Pen.lineTo(p);
+ }
+ };
+ };
+ Pen.stroke;
+ };
+ }; 
+v.relativeOrigin = true;
+ 
+w.front;
+)
+ 
+ 
// Clearing on Refresh
//
// Set the behaviour for refreshing the view.
// If this flag is true (the default) the view will be cleared before each refresh call,
// otherwise It will draw in top of it.
// On OSX this functionality is only available for the version >= 10.4 and with the flag relativeOrigin set to true.
- 
-(
- var width = 640, height = 480, w, theta = 0, drawFunc, gui;
- gui = GUI.get( \cocoa );
- w = gui.window.new( "clearOnRefresh = true", Rect( 128, 64, width, height ), false );
- drawFunc = { arg view;
- var x = 20 * sin( theta ), y = 42 * cos( theta );
- gui.pen.addRect( view.bounds.moveTo( 0, 0 ));
- gui.pen.clip;
- theta = theta + 0.01;
- gui.pen.fillColor_( Color.red( 0.2, 0.1 ));
- gui.pen.fillRect( Rect( 0, 0, width, height ));
- gui.pen.strokeColor_( Color.white );
- gui.pen.translate( width * 0.5, height * 0.5 );
- 6.do { arg i;
- gui.pen.rotate( theta * (1 - (i / 6)) );
- gui.pen.scale( 0.7 + (i * 0.4), 0.4 + (i * 0.5) );
- gui.pen.strokeOval( Rect.aboutPoint( Point( x, y ), 60, 40 ));
- };
- };
- x = gui.userView.new( w, Rect( 10, 10, width - 20, height - 20 ))
- .canFocus_( false )
- .drawFunc_( drawFunc )
- .clearOnRefresh_( false )
- .relativeOrigin_( true );
- 
- w.front;
- Routine({ while({ x.isClosed.not }, { x.refresh; (1/25).wait })}).play( AppClock );
-)
- 
-(
- var width= 640, height= 480, w, theta= 0, drawFunc;
- w= GUI.window.new("trail test3", Rect(128, 64, width, height), false);
- drawFunc= {|v|
- var x= 20*sin(theta), y= 42*cos(theta);
- theta= theta+0.01;
- GUI.pen.fillColor_(Color.red(0.2, 0.1));
- GUI.pen.fillRect(Rect(0, 0, width, height));
- GUI.pen.strokeColor_(Color.white);
- GUI.pen.push;
- GUI.pen.translate(width*0.5, height*0.5);
- 6.do{|i|
- GUI.pen.rotate(theta*(1-(i/6)));
- GUI.pen.scale(0.7+(i*0.4), 0.4+(i*0.5));
- GUI.pen.strokeOval(Rect.aboutPoint(Point(x, y), 60, 40))
- };
- GUI.pen.pop;
- };
- GUI.userView.new(w, Rect(10, 10, width-20, height-20)).drawFunc_(drawFunc).relativeOrigin_(true);
- w.front;
- Routine({inf.do{|i| w.refresh; (1/25).wait}}).play(AppClock);
-)
- 
- 
+ 
+(
+ var width = 640, height = 480, w, theta = 0, drawFunc, gui;
+ gui = GUI.get( \cocoa );
+ w = gui.window.new( "clearOnRefresh = true", Rect( 128, 64, width, height ), false );
+ drawFunc = { arg view;
+ var x = 20 * sin( theta ), y = 42 * cos( theta );
+ gui.pen.addRect( view.bounds.moveTo( 0, 0 ));
+ gui.pen.clip;
+ theta = theta + 0.01;
+ gui.pen.fillColor_( Color.red( 0.2, 0.1 ));
+ gui.pen.fillRect( Rect( 0, 0, width, height ));
+ gui.pen.strokeColor_( Color.white );
+ gui.pen.translate( width * 0.5, height * 0.5 );
+ 6.do { arg i;
+ gui.pen.rotate( theta * (1 - (i / 6)) );
+ gui.pen.scale( 0.7 + (i * 0.4), 0.4 + (i * 0.5) );
+ gui.pen.strokeOval( Rect.aboutPoint( Point( x, y ), 60, 40 ));
+ };
+ };
+ x = gui.userView.new( w, Rect( 10, 10, width - 20, height - 20 ))
+ .canFocus_( false )
+ .drawFunc_( drawFunc )
+ .clearOnRefresh_( false )
+ .relativeOrigin_( true );
+ 
+ w.front;
+ Routine({ while({ x.isClosed.not }, { x.refresh; (1/25).wait })}).play( AppClock );
+)
+ 
+(
+ var width= 640, height= 480, w, theta= 0, drawFunc;
+ w= GUI.window.new("trail test3", Rect(128, 64, width, height), false);
+ drawFunc= {|v|
+ var x= 20*sin(theta), y= 42*cos(theta);
+ theta= theta+0.01;
+ GUI.pen.fillColor_(Color.red(0.2, 0.1));
+ GUI.pen.fillRect(Rect(0, 0, width, height));
+ GUI.pen.strokeColor_(Color.white);
+ GUI.pen.push;
+ GUI.pen.translate(width*0.5, height*0.5);
+ 6.do{|i|
+ GUI.pen.rotate(theta*(1-(i/6)));
+ GUI.pen.scale(0.7+(i*0.4), 0.4+(i*0.5));
+ GUI.pen.strokeOval(Rect.aboutPoint(Point(x, y), 60, 40))
+ };
+ GUI.pen.pop;
+ };
+ GUI.userView.new(w, Rect(10, 10, width-20, height-20)).drawFunc_(drawFunc).relativeOrigin_(true);
+ w.front;
+ Routine({inf.do{|i| w.refresh; (1/25).wait}}).play(AppClock);
+)
+ 
+ 
// Prevent redrawing:
- 
-(
-var func, views;
- 
-func = {|me|
- Pen.use{
- 10.do{
- Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
- Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
- Pen.perform([\stroke, \fill].choose);
- }
- }
-};
- 
-w = SCWindow.new("DrawFunc Examples").front;
-w.view.background_(Color.white);
-views = {|i|
- v = SCUserView(w, Rect(20+(i*120), 100, 100, 100)).relativeOrigin_(true);
- v.drawFunc = func;
-} ! 3;
-w.refresh;
-{views.do{|v| v.clearOnRefresh_(false);v.drawFunc = nil}}.defer(0.4);
-)
- 
- 
+ 
+(
+var func, views;
+ 
+func = {|me|
+ Pen.use{
+ 10.do{
+ Color.red(rrand(0.0, 1), rrand(0.0, 0.5)).set;
+ Pen.addArc((400.exprand(2))@(100.rand), rrand(10, 100), 2pi.rand, pi);
+ Pen.perform([\stroke, \fill].choose);
+ }
+ }
+};
+ 
+w = SCWindow.new("DrawFunc Examples").front;
+w.view.background_(Color.white);
+views = {|i|
+ v = SCUserView(w, Rect(20+(i*120), 100, 100, 100)).relativeOrigin_(true);
+ v.drawFunc = func;
+} ! 3;
+w.refresh;
+{views.do{|v| v.clearOnRefresh_(false);v.drawFunc = nil}}.defer(0.4);
+)
+ 
+ 
// Use refreshInRect(aRect).
// Constrains the receiver's refresh area to the rectangle passed in aRect.
// you may use Quartz Debug's flash screen updates to see the refresh area of the view
- 
-(
-var userView, win, blob = Rect(0, 0, 50, 50), trackblob=false, pmouse;
- 
-a = SCImage.new("/Library/Desktop Pictures/Ripples Blue.jpg");
- 
-win = SCWindow.new("refreshInRect Test", Rect(400, 400, 600, 200), scroll:true).front;
-win.onClose_({ a.free; });
- 
-userView = SCUserView(win, Rect(10,10,2000,800))
- .backgroundImage_(a, 5)
- .relativeOrigin_(false)
- .drawFunc_({|me|
- Color.blue.setFill;
- Pen.fillRect(blob);
- })
- .mouseDownAction_({|v, x, y, mod|
- pmouse = x@y;
- trackblob = blob.containsPoint(pmouse);
- })
- .mouseUpAction_({|v, x, y, mod|
- trackblob = false;
- })
- .mouseMoveAction_({|v, x, y, mod|
- var refresh, mouse, delta;
- mouse = x@y;
- 
- if(trackblob, {

@@ Diff output truncated at 100000 characters. @@

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

_______________________________________________
sc-dev mailing list

info (subscription, etc.): http://www.beast.bham.ac.uk/research/sc_mailing_lists.shtml
archive: http://www.listarc.bham.ac.uk/marchives/sc-dev/
search: http://www.listarc.bham.ac.uk/lists/sc-dev/search/

Re: SF.net SVN: supercollider:[9092] trunk/build/Help

by Sciss-3 :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

BTW Server:meter is highly mixed stuff, e.g. uses SCCompositeView,
and the userview's draw funcs use String:drawCenteredIn ...

i finished the swing PeakMeter (some stuff still needs to be done,
e.g. recovery after Cmd+Period) and i will propose a branch for
Server:meter so that we can have meters with Swing, too.

ciao, -sciss-

Am 21.04.2009 um 20:27 schrieb jmfuo@...:

> Revision: 9092
> http://supercollider.svn.sourceforge.net/supercollider/?
> rev=9092&view=rev
> Author: jmfuo
> Date: 2009-04-21 18:27:14 +0000 (Tue, 21 Apr 2009)
>
> Log Message:
> -----------
> Replaced some remaining GUI. syntax
>
> Modified Paths:
> --------------
> trunk/build/Help/3vs2/Spawning.html
> trunk/build/Help/Control/ControlSpec.html
> trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html
> trunk/build/Help/UGens/MachineListening/MFCC.html
>
> Modified: trunk/build/Help/3vs2/Spawning.html
> ===================================================================
> --- trunk/build/Help/3vs2/Spawning.html 2009-04-21 16:04:09 UTC
> (rev 9091)
> +++ trunk/build/Help/3vs2/Spawning.html 2009-04-21 18:27:14 UTC
> (rev 9092)
> @@ -5,29 +5,28 @@
> <meta http-equiv="Content-Style-Type" content="text/css">
> <title></title>
> <meta name="Generator" content="Cocoa HTML Writer">
> -<meta name="CocoaVersion" content="824.44">
> +<meta name="CocoaVersion" content="949.43">
> <style type="text/css">
> p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
> p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-
> height: 14.0px}
> p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
> -p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #84301e}
> +p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000}
> p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
> p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #606060}
> p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-
> height: 12.0px}
> -p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0827ac}
> -p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #000000}
> -p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000}
> -p.p11 {margin: 0.0px 0.0px 0.0px 10.0px; font: 9.0px Monaco;
> color: #000000}
> -p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0000bf}
> -p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #84301e; min-height: 12.0px}
> +p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0000bf}
> +p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000}
> +p.p10 {margin: 0.0px 0.0px 0.0px 10.0px; font: 9.0px Monaco}
> +p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0000bf}
> +p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000; min-height: 12.0px}
> span.s1 {font: 12.0px Helvetica; color: #000000}
> span.s2 {color: #000000}
> -span.s3 {color: #0827ac}
> +span.s3 {color: #0000bf}
> span.s4 {color: #606060}
> -span.s5 {color: #84301e}
> +span.s5 {color: #bf0000}
> span.s6 {color: #0000bf}
> span.s7 {font: 12.0px Helvetica}
> -span.s8 {color: #4d6a25}
> +span.s8 {color: #007300}
> span.Apple-tab-span {white-space:pre}
> </style>
> </head>
> @@ -42,7 +41,7 @@
> (
> </
> span>x = SynthDef</
> span>("Help-SynthDef" class="s2">, 
> class="Apple-tab-span"> { arg
> out=0;
> - class="Apple-tab-span"> </
> span> Out.ar(out, class="s3">PinkNoise.ar(0.1))
> + class="Apple-tab-span"> </
> span>Out.ar(out, class="s3">PinkNoise.ar(0.1))
> </
> span> }).play; //
> SynthDef-play returns a Synth object.
> ) class="Apple-converted-space"> 
> 
> @@ -72,22 +71,22 @@
> In SC3 time-based sequences of events can be
> implemented using Routines. A Routine which yields a number
> can be scheduled using a clock:
> 
> (
> - class="s6">var w, r;
> - w = class="s6">GUI.window.new("trem",
> Rect(512, 256, 360, 130));
> - w.front;
> - r = class="s6">Routine({ arg time;
> - class="Apple-tab-span"> </
> span>60.do({ arg i;
> - </
> span> span"> 0.05.yield; </
> span>// wait for 0.05 seconds
> - class="Apple-tab-span"> </
> span> {
> - class="Apple-tab-span"> </
> span> span"> w.bounds = w.bounds.moveBy(10.rand2, 10.rand2);
> - class="Apple-tab-span"> </
> span> span"> w.alpha = cos(i*0.1pi)*0.5+0.5;
> - class="Apple-tab-span"> </
> span> }.defer;
> - class="Apple-tab-span"> </
> span>});
> - </
> span> span"> 1.yield; // wait for 1 second before closing
> w
> - class="Apple-tab-span"> </
> span>w.close;
> - });
> - </
> span>SystemClock.play(r);
> - </
> span>)
> + class="s6">var w, r;
> + w = class="s6">Window.new("trem", class="s6">Rect(512, 256, 360, 130));
> + w.front;
> + r = class="s6">Routine({ arg time;
> + class="Apple-tab-span"> </
> span>60.do({ arg i;
> + </
> span> span"> 0.05.yield; </
> span>// wait for 0.05 seconds
> + class="Apple-tab-span"> </
> span> {
> + class="Apple-tab-span"> </
> span> span"> w.bounds = w.bounds.moveBy(10.rand2, 10.rand2);
> + class="Apple-tab-span"> </
> span> span"> w.alpha = cos(i*0.1pi)*0.5+0.5;
> + class="Apple-tab-span"> </
> span> }.defer;
> + class="Apple-tab-span"> </
> span>});
> + </
> span> span"> 1.yield; // wait for 1 second before closing
> w
> + class="Apple-tab-span"> </
> span>w.close;
> + });
> + </
> span>SystemClock.play(r);
> + )
> class="Apple-tab-span"> 
> Note that this implementation avoids one of the
> stranger aspects of the SC2 approach: The need to start a Synth to
> schedule time-based behavior, even if no audio is involved.
> 
> @@ -161,19 +160,19 @@
> 
> </
> span>r.stop; class="Apple-tab-span"> </
> span> // stop this but
> not that or the other
> </
> span>q.reset; class="Apple-tab-span"> </
> span> // reset that
> while playing
> - 
> + 
> </
> span>c = TempoClock class="s2">.new; // make
> a TempoClock
> </
> span>r.reset; class="Apple-tab-span"> </
> span> // have to reset
> this because it's stopped
> </
> span>c.play(r); class="Apple-tab-span"> </
> span>// play this in the new clock; starts from the
> beginning
> </
> span>c.tempo = 16; class="Apple-tab-span"> </
> span>// increase the tempo of this
> - 
> + 
> </
> span>SystemClock class="s2">.clear; //
> clear EVERYTHING scheduled in the SystemClock; so that and the
> other 
> class="Apple-tab-span"> </
> span> span"> // but not this
> - class="Apple-tab-span"> </
> span> span"> 
> + class="Apple-tab-span"> </
> span> span"> 
> </
> span>c.clear; class="Apple-tab-span"> </
> span> // clear
> everything scheduled in c, i.e. this
> </
> span>c.play(r); class="Apple-tab-span"> </
> span>// since it wasn't stopped, we don't have to reset
> this
> class="Apple-tab-span"> </
> span> span"> // and it picks
> up where it left off
> - class="Apple-tab-span"> </
> span> span"> 
> + class="Apple-tab-span"> </
> span> span"> 
> </
> span>c.stop tab-span"> class="Apple-tab-span"> // stop c, destroy its
> scheduler, and release its OS thread
> 
> For convenience pauseable scheduling can be
> implemented with a Task. Task.new takes two arguments, a
> function and a clock, and creates it's own Routine. If you
> don't specify a clock, it will create a TempoClock for you.
> Since you don't have to explicitly create a Clock or Routine, use
> of Task can result in code that is a little more compact.
>
> Modified: trunk/build/Help/Control/ControlSpec.html
> ===================================================================
> --- trunk/build/Help/Control/ControlSpec.html 2009-04-21 16:04:09
> UTC (rev 9091)
> +++ trunk/build/Help/Control/ControlSpec.html 2009-04-21 18:27:14
> UTC (rev 9092)
> @@ -21,27 +21,18 @@
> p.p12 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px;
> font: 14.0px Helvetica}
> p.p13 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px;
> font: 14.0px Helvetica; min-height: 17.0px}
> p.p14 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px;
> font: 11.0px Monaco}
> -p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica;
> color: #bf0000}
> -p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #007300}
> -p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000}
> +p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica;
> color: #a41c14}
> +p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #356f14}
> +p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #a41c14}
> p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #606060}
> -p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000}
> -p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0000bf}
> +p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0018b8}
> span.s1 {font: 18.0px Helvetica}
> -span.s2 {color: #0000bf}
> -span.s3 {color: #0000bf}
> -span.s4 {color: #0000bf}
> -span.s5 {font: 12.0px Helvetica}
> -span.s6 {color: #007300}
> -span.s7 {color: #0000bf}
> -span.s8 {color: #000000}
> -span.s9 {color: #007300}
> -span.s10 {color: #0000bf}
> -span.s11 {color: #606060}
> -span.s12 {text-decoration: underline ; color: #0000bf}
> -span.s13 {color: #0000bf}
> -span.s14 {color: #0000bf}
> -span.s15 {color: #007300}
> +span.s2 {color: #0018b8}
> +span.s3 {font: 12.0px Helvetica}
> +span.s4 {color: #356f14}
> +span.s5 {color: #000000}
> +span.s6 {color: #606060}
> +span.s7 {text-decoration: underline ; color: #0018b8}
> span.Apple-tab-span {white-space:pre}
> </style>
> </head>
> @@ -50,7 +41,7 @@
> 
> Inherits from: Object : <a
> href="Spec.html">Spec</a>
> 
> -The original, and most common spec (see <a
> href="Spec.html">Spec</a> ). A ControlSpec
> is used by GUI sliders and knobs to specify the range and curve of
> the controls. </
> span>ControlSpec may be used in many ways to map from linear 0..1
> range to your desired range and back.
> +The original, and most common spec (see <a
> href="Spec.html">Spec</a> ). A ControlSpec
> is used by GUI sliders and knobs to specify the range and curve of
> the controls. </
> span>ControlSpec may be used in many ways to map from linear 0..1
> range to your desired range and back.
> 
> The most common way to create one is by class="Apple-converted-space"> 
> 
> @@ -67,7 +58,7 @@
> class="Apple-tab-span"> default - The default value
> class="Apple-tab-span"> units - The units, e.g. "hz".
> Used by some gui's as a unit label.
> class="Apple-tab-span"> 
> - class="Apple-tab-span"> g = ControlSpec</
> span>(0,2000,\exp,0.1, 220,"Hz");
> + class="Apple-tab-span"> g = ControlSpec</
> span>(0,2000,\exp,0.1, 220,"Hz");
> class="Apple-tab-span"> 
> class="Apple-tab-span"> or
> class="Apple-tab-span"> 
> @@ -102,19 +93,19 @@
> class="Apple-tab-span"> </
> span> span"> class="Apple-tab-span"> </
> span>
> storeArgs</
> b>
> 
> - </
> span> Returns: 
> [minval,maxval,warp.asSpecifier,step,default,units] class="s5"> tab-span"> 
> + </
> span> Returns: 
> [minval,maxval,warp.asSpecifier,step,default,units] class="s3"> tab-span"> 
> 
> constrain
> (value)
> 
> - </
> span> Returns class="Apple-converted-space"> value.asFloat.clip
> (clipLo, clipHi).round(step).
> + </
> span> Returns class="Apple-converted-space"> value.asFloat.clip
> (clipLo, clipHi).round(step).
> 
> range
> 
> - </
> span> Returns maxval
> - minval.
> + </
> span> Returns maxval
> - minval.
> 
> ratio
> 
> - </
> span> Returns </
> span>maxval / minval.
> + </
> span> Returns </
> span>maxval / minval.
> 
> map (value)</
> b>
> 
> @@ -133,104 +124,104 @@
> Examples
> 
> // array is used as arguments to ControlSpec.new
> ( minval, maxval, warp, step, default)
> -[300,3000,\exponential,
> 100].asSpec.dump
> -Instance of class="s7">ControlSpec { space"> (0313FC08, gc=00, fmt=00,
> flg=00, set=03)
> +[300,3000,\exponential,
> 100].asSpec.dump
> +Instance of class="s2">ControlSpec { space"> (0313FC08, gc=00, fmt=00,
> flg=00, set=03)
> </
> span>instance variables [6]
> - </
> span>minval : Integer 300
> - </
> span>maxval : Integer 3000
> - space"> warp : Symbol class="s8"> 'exponential'
> - </
> span>step : Integer 100
> - </
> span>default : Integer 300
> + </
> span>minval : Integer 300
> + </
> span>maxval : Integer 3000
> + space"> warp : Symbol class="s5"> 'exponential'
> + </
> span>step : Integer 100
> + </
> span>default : Integer 300
> }
> 
> // partially specified ...
> [-48,48].asSpec.dump
> -Instance of class="s7">ControlSpec { space"> (0313FF18, gc=00, fmt=00,
> flg=00, set=03)
> +Instance of class="s2">ControlSpec { space"> (0313FF18, gc=00, fmt=00,
> flg=00, set=03)
> </
> span>instance variables [6]
> - </
> span>minval : Integer -48
> - </
> span>maxval : Integer 48
> - </
> span>warp : Symbol class="s6">'linear'
> - </
> span>step : Float 0
> - </
> span>default : Integer -48
> + </
> span>minval : Integer -48
> + </
> span>maxval : Integer 48
> + </
> span>warp : Symbol class="s4">'linear'
> + </
> span>step : Float 0
> + </
> span>default : Integer -48
> }
> 
> // a Symbol
> -\freq.asSpec.dump
> -Instance of class="s10">ControlSpec { space"> (180F4910, gc=3 class="s10">C, fmt=00, flg=00, set=03)
> +\freq.asSpec.dump
> +Instance of class="s2">ControlSpec { space"> (180F4910, gc=3 class="s2">C, fmt=00, flg=00, set=03)
> </
> span>instance variables [8]
> - </
> span>minval : Integer 20
> - </
> span>maxval : Integer 20000
> - </
> span>warp : instance of ExponentialWarp
> (17FEDB30, size=1, set=1)
> - </
> span>step : Integer 0
> - </
> span>default : Integer 440
> - </
> span>units : " Hz"
> - </
> span>clipLo : Integer 20
> - </
> span>clipHi : Integer 20000
> + </
> span>minval : Integer 20
> + </
> span>maxval : Integer 20000
> + </
> span>warp : instance of ExponentialWarp
> (17FEDB30, size=1, set=1)
> + </
> span>step : Integer 0
> + </
> span>default : Integer 440
> + </
> span>units : " Hz"
> + </
> span>clipLo : Integer 20
> + </
> span>clipHi : Integer 20000
> }
> -In this case \freq was looked up in the Specs
> dictionary. See <a
> href="Spec.html">Spec</a>
> +In this case \freq was looked up in the Specs
> dictionary. See <a
> href="Spec.html">Spec</a>
> Some common mappings are initialized in
> ControlSpec.initClass
> and also (for the moment) in Crucial-initClass
> 
> // nil becomes a default ControlSpec
> -nil.asSpec.dump
> -Instance of class="s7">ControlSpec { space"> (0313FF18, gc=00, fmt=00,
> flg=00, set=03)
> +nil.asSpec.dump
> +Instance of class="s2">ControlSpec { space"> (0313FF18, gc=00, fmt=00,
> flg=00, set=03)
> </
> span>instance variables [6]
> - </
> span>minval : Float 0
> - </
> span>maxval : Float 1
> - </
> span>warp : Symbol class="s6">'linear'
> - </
> span>step : Float 0
> - </
> span>default : Float 0
> + </
> span>minval : Float 0
> + </
> span>maxval : Float 1
> + </
> span>warp : Symbol class="s4">'linear'
> + </
> span>step : Float 0
> + </
> span>default : Float 0
> }
> 
> // example
> 
> // make a frquency spec with an exponential range
> from 20 to 20000, 
> // give it a rounding of 30 (Hz)
> -a = \freq.asSpec;
> +a = \freq.asSpec;
> a.step = 100;
> 
> // equivalent:
> -a = [20, 20000, 'exp', 100,
> 440].asSpec;
> +a = [20, 20000, 'exp', 100,
> 440].asSpec;
> a.dump;
> 
> -a.constrain(800); // make
> sure it is in range and round it.
> -a.constrain(803); // make
> sure it is in range and round it. </
> span>
> +a.constrain(800); // make
> sure it is in range and round it.
> +a.constrain(803); // make
> sure it is in range and round it. </
> span>
> 
> a.map(0.5);
> -a.map(0.0); // returns min
> -a.map(1.5); // exceeds the
> area: clip, returns max
> +a.map(0.0); // returns min
> +a.map(1.5); // exceeds the
> area: clip, returns max
> 
> a.unmap(4000);
> a.unmap(22.0); 
> class="Apple-tab-span"> 
> // using spec for sliders:
> (
> -var w, c, d;
> -w = GUI.window.new( class="s11">"control", Rect(128,
> 64, 340, 160));
> +var w, c, d;
> +w = Window.new( class="s6">"control", Rect(128, 64,
> 340, 160));
> w.front;
> -c = GUI.slider.new(w, class="s13">Rect(10, 10, 300, 30));
> -d = GUI.staticText.new(w,
> Rect(10, 40, 300, 30));
> +c = Slider.new(w, class="s2">Rect(10, 10, 300, 30));
> +d = StaticText.new(w, class="s2">Rect(10, 40, 300, 30));
> c.action = { 
> - </
> span>d.string = "unmapped value"
> + </
> span>d.string = "unmapped value"
> + c.value.round
> (0.01) 
> - </
> span>+ "......" space"> 
> - </
> span>+ "mapped value" converted-space"> 
> + </
> span>+ "......" space"> 
> + </
> span>+ "mapped value" converted-space"> 
> + a.map(c.value)
> 
> };
> )
> 
> ControlSpec-map can also be used to map ugens class="Apple-converted-space"> 
> (
> -var spec;
> -spec = [ 100,18000,\exp</
> span>].asSpec;
> +var spec;
> +spec = [ 100,18000,\exp</
> span>].asSpec;
> {
> - class="s14">var freq,osc;
> - osc = class="s14">SinOsc.kr(0.1).range(0,1);
> + class="s2">var freq,osc;
> + osc = class="s2">SinOsc.kr(0.1).range(0,1);
> freq = spec.map
> ( osc );
> 
> - </
> span>freq.dump;// BinaryOpUGen
> + </
> span>freq.dump;// BinaryOpUGen
> 
> - </
> span>SinOsc.ar(
> + </
> span>SinOsc.ar(
> class="Apple-converted-space"> freq
> )
> }.play
>
> Modified: trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html
> ===================================================================
> --- trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html 2009-04-21
> 16:04:09 UTC (rev 9091)
> +++ trunk/build/Help/GUI/Cocoa-GUI/SCUserView.html 2009-04-21
> 18:27:14 UTC (rev 9092)
> @@ -10,7 +10,7 @@
> p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
> p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-
> height: 14.0px}
> p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-
> height: 12.0px}
> -p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica;
> color: #0018e8}
> +p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica;
> color: #001ee6}
> p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica}
> p.p6 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px;
> font: 9.0px Monaco; min-height: 12.0px}
> p.p7 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px;
> font: 12.0px Helvetica}
> @@ -20,26 +20,25 @@
> p.p11 {margin: 0.0px 0.0px 0.0px 85.0px; text-indent: -85.0px;
> font: 12.0px Helvetica; min-height: 14.0px}
> p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica;
> min-height: 17.0px}
> p.p13 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px;
> font: 14.0px Helvetica; min-height: 17.0px}
> -p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #bf0000}
> -p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #000000; min-height: 12.0px}
> -p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #000000}
> -p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #0000bf}
> -p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #606060}
> +p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #a41c14}
> +p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
> +p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color:
> #606060}
> span.s1 {font: 18.0px Helvetica}
> -span.s2 {color: #5662aa}
> +span.s2 {color: #5964a6}
> span.s3 {color: #000000}
> span.s4 {text-decoration: underline}
> -span.s5 {text-decoration: underline ; color: #3148bf}
> +span.s5 {text-decoration: underline ; color: #374cb9}
> span.s6 {color: #6f7178}
> -span.s7 {color: #5f68a0}
> +span.s7 {color: #61699d}
> span.s8 {font: 14.0px Helvetica}
> -span.s9 {color: #2d49d4}
> -span.s10 {text-decoration: underline ; color: #0018e8}
> +span.s9 {color: #344ece}
> +span.s10 {text-decoration: underline ; color: #001ee6}
> span.s11 {text-decoration: underline ; color: #000000}
> -span.s12 {color: #0013bb}
> -span.s13 {color: #0000bf}
> -span.s14 {color: #007300}
> -span.s15 {color: #606060}
> +span.s12 {color: #061fb5}
> +span.s13 {text-decoration: underline ; color: #0727e0}
> +span.s14 {color: #0018b8}
> +span.s15 {color: #356f14}
> +span.s16 {color: #606060}
> span.Apple-tab-span {white-space:pre}
> </style>
> </head>
> @@ -128,345 +127,345 @@
> class="Apple-tab-span"> 
> Examples
> 
> -<a href="../GUI-
> Overview.html">GUI- class="s4">Overview</a> contains an elobarate example
> on how to make a gui widget with SCUserView</
> span> using interface level coding. For a
> Tutorial on how to write a subclass of
> SCUserView to make your own custom class="s12">GUI Widgets, see <a
> href="SCUserViewSubclassing/SCUserView-Subclassing.html"> class="s12">SCUserView- class="s12">Subclassing</a>
> +<a href="../GUI-
> Overview.html">GUI- class="s4">Overview</a> contains an elobarate example
> on how to make a gui widget with SCUserView</
> span> using interface level coding. For a
> Tutorial on how to write a subclass of
> SCUserView to make your own custom class="s12">GUI Widgets, see <a
> href="SCUserViewSubclassing/SCUserView-Subclassing.html"> class="s12">SCUserView- class="s12">Subclassing</a>
> 
> // Basic Usage. Resize the window to refresh the
> drawing. Or use mouse click.
> - 
> -(
> -w=SCWindow class="s3">.new;
> -v=SCUserView(w,
> w.view.bounds.insetBy(50,50));
> -v.background_(Color</
> span>.rand);
> -v.relativeOrigin=true;
> -v.drawFunc={|uview|
> - class="Apple-tab-span"> 
> - class="Apple-tab-span"> Pen.moveTo
> (0@...);
> - class="Apple-tab-span"> Pen.lineTo
> (uview.bounds.width@...);
> - class="Apple-tab-span"> Pen</
> span>.stroke;
> - };
> -v.mouseDownAction={v.refresh};
> -w.front;
> - 
> -)
> - 
> - 
> - 
> + 
> +(
> +w=Window.new;
> +v=UserView(w,
> w.view.bounds.insetBy(50,50));
> +v.background_(Color</
> span>.rand);
> +v.relativeOrigin=true;
> +v.drawFunc={|uview|
> + class="Apple-tab-span"> 
> + class="Apple-tab-span"> Pen.moveTo
> (0@...);
> + class="Apple-tab-span"> Pen.lineTo
> (uview.bounds.width@...);
> + class="Apple-tab-span"> Pen</
> span>.stroke;
> + };
> +v.mouseDownAction={v.refresh};
> +w.front;
> + 
> +)
> + 
> + 
> + 
> // A More complicated drawing function.
> // Resize the window to refresh the drawing
> -(
> -var func;
> - 
> -func = {|me|
> - class="s13">Pen.use{
> +(
> +var func;
> + 
> +func = {|me|
> + class="s14">Pen.use{
> </
> span> // clipping into
> the boundingbox
> - class="Apple-tab-span"> Pen.moveTo
> ((me.bounds.left)@(me.bounds.top));
> - class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> - class="Apple-tab-span"> </
> span> + (me.bounds.width@0));
> - class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> - class="Apple-tab-span"> </
> span> +
> (me.bounds.width@...));
> - class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> - class="Apple-tab-span"> </
> span> + (0@...));
> - class="Apple-tab-span"> Pen.lineTo
> ((me.bounds.left)@(me.bounds.top));
> - class="Apple-tab-span"> Pen.clip;
> - class="Apple-tab-span"> 
> + class="Apple-tab-span"> Pen.moveTo
> ((me.bounds.left)@(me.bounds.top));
> + class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> + class="Apple-tab-span"> </
> span> + (me.bounds.width@0));
> + class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> + class="Apple-tab-span"> </
> span> +
> (me.bounds.width@...));
> + class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> + class="Apple-tab-span"> </
> span> + (0@...));
> + class="Apple-tab-span"> Pen.lineTo
> ((me.bounds.left)@(me.bounds.top));
> + class="Apple-tab-span"> Pen.clip;
> + class="Apple-tab-span"> 
> </
> span> // draw
> background
> - class="Apple-tab-span"> Color.gray
> (0.5).set;
> - class="Apple-tab-span"> Pen.moveTo
> ((me.bounds.left)@(me.bounds.top));
> - class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> - class="Apple-tab-span"> </
> span> + (me.bounds.width@0));
> - class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> - class="Apple-tab-span"> </
> span> +
> (me.bounds.width@...));
> - class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> - class="Apple-tab-span"> </
> span> + (0@...));
> - class="Apple-tab-span"> Pen.lineTo
> ((me.bounds.left)@(me.bounds.top));
> - class="Apple-tab-span"> Pen</
> span>.fill; tab-span"> 
> - 
> - class="Apple-tab-span"> Pen</
> span>.translate(100, 100);
> - class="Apple-tab-span"> 10.do{
> - class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> - class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> - class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> - class="Apple-tab-span"> }
> - }
> -};
> - 
> -w = class="s13">SCWindow.new("DrawFunc
> Examples").front;
> -w.view.background_(Color</
> span>.white);
> -3.do{|i|
> - v = class="s13">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100));
> - v.drawFunc =
> func;
> - </
> span>v.relativeOrigin=false;
> - 
> -};
> -w.refresh;
> -)
> - 
> - 
> + class="Apple-tab-span"> Color.gray
> (0.5).set;
> + class="Apple-tab-span"> Pen.moveTo
> ((me.bounds.left)@(me.bounds.top));
> + class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> + class="Apple-tab-span"> </
> span> + (me.bounds.width@0));
> + class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> + class="Apple-tab-span"> </
> span> +
> (me.bounds.width@...));
> + class="Apple-tab-span"> Pen.lineTo
> (((me.bounds.left)@(me.bounds.top))
> + class="Apple-tab-span"> </
> span> + (0@...));
> + class="Apple-tab-span"> Pen.lineTo
> ((me.bounds.left)@(me.bounds.top));
> + class="Apple-tab-span"> Pen</
> span>.fill; tab-span"> 
> + 
> + class="Apple-tab-span"> Pen</
> span>.translate(100, 100);
> + class="Apple-tab-span"> 10.do{
> + class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> + class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> + class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> + class="Apple-tab-span"> }
> + }
> +};
> + 
> +w = class="s14">SCWindow.new("DrawFunc
> Examples").front;
> +w.view.background_(Color</
> span>.white);
> +3.do{|i|
> + v = class="s14">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100));
> + v.drawFunc =
> func;
> + </
> span>v.relativeOrigin=false;
> + 
> +};
> +w.refresh;
> +)
> + 
> + 
> // Use Relative Coordinates
> // Set the Origin of Pen in the view's drawFunc
> relative to the SCUserView.
> // This is particularly useful if resize is set in
> such a way the the position of the user view changes.
> // Try resizing the Window.
> - 
> -(
> -var func;
> - 
> -func = {|me|
> - class="s13">Pen.use{
> - class="Apple-tab-span"> 10.do{
> - class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> - class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> - class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> - class="Apple-tab-span"> }
> - }
> -};
> - 
> -w = class="s13">SCWindow.new("DrawFunc
> Examples").front;
> -w.view.background_(Color</
> span>.white);
> - 
> -3.do{|i|
> - v = class="s13">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100))
> - class="Apple-tab-span"> .drawFunc_(func).relativeOrigin_
> (true);
> + 
> +(
> +var func;
> + 
> +func = {|me|
> + class="s14">Pen.use{
> + class="Apple-tab-span"> 10.do{
> + class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> + class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> + class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> + class="Apple-tab-span"> }
> + }
> +};
> + 
> +w = class="s14">SCWindow.new("DrawFunc
> Examples").front;
> +w.view.background_(Color</
> span>.white);
> + 
> +3.do{|i|
> + v = class="s14">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100))
> + class="Apple-tab-span"> .drawFunc_(func).relativeOrigin_
> (true);
> </
> span>v.resize=3; // the func coordinates ar valid even
> though the view move on resize
> - v.background_
> (Color.rand);
> -};
> - 
> -w.refresh;
> -)
> - 
> - 
> + v.background_
> (Color.rand);
> +};
> + 
> +w.refresh;
> +)
> + 
> + 
> // Mouse Tracking
> // Set the function which should be evaluated if
> the mouse is at the end of tracking (mouse-up).
> // This function will be passed four arguments:
> theView, x coordinate, y coordinate, and keyboard modifiers.
> - 
> -(
> -var drawFunc,
> mouseDownFunc, mouseUpFunc, mouseMoveFunc, sat = 0, absX;
> - 
> -drawFunc = {|me|
> - class="s13">Pen.use{
> - class="Apple-tab-span"> 10.do{
> - class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> - class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> - class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> - class="Apple-tab-span"> }
> - }
> -};
> - 
> -mouseDownFunc = {|me, x, y, mod|</
> span>
> - absX = x;
> - </
> span>postf("begin path: x=% realtive mousePosition:%\n" class="s3">,absX, me.mousePosition);
> -};
> - 
> -mouseUpFunc = {|me, x, y, mod|</
> span>
> - </
> span>postf("end path: (absX-x)==% realtive mousePosition:%
> \n",(absX-x), me.mousePosition);
> - 
> -};
> - 
> -mouseMoveFunc = {|me, x, y, mod|</
> span>
> - sat = ((absX-
> x)/100);
> - 
> ((me.mousePosition)/(me.bounds.width@...)).postln;
> - me.refresh;
> -};
> - 
> -w = SCWindow.new.front;
> -w.view.background_(Color</
> span>.white);
> -3.do{|i|
> - v = class="s13">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100));
> - v.background_
> (Color.rand);
> - v.drawFunc =
> drawFunc;
> - </
> span>v.mouseDownAction = mouseDownFunc;
> - </
> span>v.mouseUpAction = mouseUpFunc;
> - </
> span>v.mouseMoveAction = mouseMoveFunc;
> - </
> span>v.relativeOrigin = true;
> -};
> -w.refresh;
> -)
> - 
> - 
> - 
> + 
> +(
> +var drawFunc,
> mouseDownFunc, mouseUpFunc, mouseMoveFunc, sat = 0, absX;
> + 
> +drawFunc = {|me|
> + class="s14">Pen.use{
> + class="Apple-tab-span"> 10.do{
> + class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> + class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> + class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> + class="Apple-tab-span"> }
> + }
> +};
> + 
> +mouseDownFunc = {|me, x, y, mod|</
> span>
> + absX = x;
> + </
> span>postf("begin path: x=% realtive mousePosition:%\n" class="s3">,absX, me.mousePosition);
> +};
> + 
> +mouseUpFunc = {|me, x, y, mod|</
> span>
> + </
> span>postf("end path: (absX-x)==% realtive mousePosition:%
> \n",(absX-x), me.mousePosition);
> + 
> +};
> + 
> +mouseMoveFunc = {|me, x, y, mod|</
> span>
> + sat = ((absX-
> x)/100);
> + 
> ((me.mousePosition)/(me.bounds.width@...)).postln;
> + me.refresh;
> +};
> + 
> +w = SCWindow.new.front;
> +w.view.background_(Color</
> span>.white);
> +3.do{|i|
> + v = class="s14">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100));
> + v.background_
> (Color.rand);
> + v.drawFunc =
> drawFunc;
> + </
> span>v.mouseDownAction = mouseDownFunc;
> + </
> span>v.mouseUpAction = mouseUpFunc;
> + </
> span>v.mouseMoveAction = mouseMoveFunc;
> + </
> span>v.relativeOrigin = true;
> +};
> +w.refresh;
> +)
> + 
> + 
> + 
> // Use the mouse to draw on the view
> - 
> -(
> -var w, txt, tmppoints,
> all;
> -tmppoints = [];
> - 
> -w = SCWindow( class="s15">"draw on me", Rect(128,
> 64, 340, 360));
> - 
> -v = SCUserView
> (w,w.view.bounds)
> - </
> span>.mouseMoveAction_({|v,x,y|
> - class="Apple-tab-span"> [x,y].postln;
> - class="Apple-tab-span"> tmppoints = tmppoints.add
> (v.mousePosition);
> - class="Apple-tab-span"> v.refresh;
> -})
> - .mouseUpAction_
> ({|v,x,y|
> - class="Apple-tab-span"> all = all.add(tmppoints.copy);
> - class="Apple-tab-span"> tmppoints = [];
> - class="Apple-tab-span"> v.refresh;
> -})
> - .drawFunc_
> {|me|
> - class="Apple-tab-span"> Pen.use
> { 
> - class="Apple-tab-span"> </
> span>Color.white.set;
> - class="Apple-tab-span"> </
> span>Pen.fillRect(me.bounds.moveTo
> (0,0)); span"> 
> - class="Apple-tab-span"> </
> span>Pen.width = 1;
> - class="Apple-tab-span"> </
> span>Color.black.set;
> - 
> - class="Apple-tab-span"> </
> span>Pen.beginPath;
> - class="Apple-tab-span"> </
> span>
> - class="Apple-tab-span"> </
> span>tmppoints.do{ class="s13">|p, i|
> - class="Apple-tab-span"> </
> span> if(i == 0){
> - class="Apple-tab-span"> </
> span> Pen</
> span>.moveTo(p);
> - class="Apple-tab-span"> </
> span> }{
> - class="Apple-tab-span"> </
> span> Pen</
> span>.lineTo(p);
> - class="Apple-tab-span"> </
> span> }
> - class="Apple-tab-span"> </
> span>};
> - class="Apple-tab-span"> </
> span>all.do{|points|
> - class="Apple-tab-span"> </
> span> points.do{ class="s13">|p, i|
> - class="Apple-tab-span"> </
> span> span"> if(i == 0){
> - class="Apple-tab-span"> </
> span> span"> class="s13">Pen.moveTo(p);
> - class="Apple-tab-span"> </
> span> span"> }{
> - class="Apple-tab-span"> </
> span> span"> class="s13">Pen.lineTo(p);
> - class="Apple-tab-span"> </
> span> span"> }
> - class="Apple-tab-span"> </
> span> };
> - class="Apple-tab-span"> </
> span>};
> - class="Apple-tab-span"> </
> span>Pen.stroke;
> - class="Apple-tab-span"> };
> - }; class="Apple-tab-span"> 
> -v.relativeOrigin = true;
> - 
> -w.front;
> -)
> - 
> - 
> + 
> +(
> +var w, txt, tmppoints,
> all;
> +tmppoints = [];
> + 
> +w = SCWindow( class="s16">"draw on me", Rect(128,
> 64, 340, 360));
> + 
> +v = SCUserView
> (w,w.view.bounds)
> + </
> span>.mouseMoveAction_({|v,x,y|
> + class="Apple-tab-span"> [x,y].postln;
> + class="Apple-tab-span"> tmppoints = tmppoints.add
> (v.mousePosition);
> + class="Apple-tab-span"> v.refresh;
> +})
> + .mouseUpAction_
> ({|v,x,y|
> + class="Apple-tab-span"> all = all.add(tmppoints.copy);
> + class="Apple-tab-span"> tmppoints = [];
> + class="Apple-tab-span"> v.refresh;
> +})
> + .drawFunc_
> {|me|
> + class="Apple-tab-span"> Pen.use
> { 
> + class="Apple-tab-span"> </
> span>Color.white.set;
> + class="Apple-tab-span"> </
> span>Pen.fillRect(me.bounds.moveTo
> (0,0)); span"> 
> + class="Apple-tab-span"> </
> span>Pen.width = 1;
> + class="Apple-tab-span"> </
> span>Color.black.set;
> + 
> + class="Apple-tab-span"> </
> span>Pen.beginPath;
> + class="Apple-tab-span"> </
> span>
> + class="Apple-tab-span"> </
> span>tmppoints.do{ class="s14">|p, i|
> + class="Apple-tab-span"> </
> span> if(i == 0){
> + class="Apple-tab-span"> </
> span> Pen</
> span>.moveTo(p);
> + class="Apple-tab-span"> </
> span> }{
> + class="Apple-tab-span"> </
> span> Pen</
> span>.lineTo(p);
> + class="Apple-tab-span"> </
> span> }
> + class="Apple-tab-span"> </
> span>};
> + class="Apple-tab-span"> </
> span>all.do{|points|
> + class="Apple-tab-span"> </
> span> points.do{ class="s14">|p, i|
> + class="Apple-tab-span"> </
> span> span"> if(i == 0){
> + class="Apple-tab-span"> </
> span> span"> class="s14">Pen.moveTo(p);
> + class="Apple-tab-span"> </
> span> span"> }{
> + class="Apple-tab-span"> </
> span> span"> class="s14">Pen.lineTo(p);
> + class="Apple-tab-span"> </
> span> span"> }
> + class="Apple-tab-span"> </
> span> };
> + class="Apple-tab-span"> </
> span>};
> + class="Apple-tab-span"> </
> span>Pen.stroke;
> + class="Apple-tab-span"> };
> + }; class="Apple-tab-span"> 
> +v.relativeOrigin = true;
> + 
> +w.front;
> +)
> + 
> + 
> // Clearing on Refresh
> //
> // Set the behaviour for refreshing the view.
> // If this flag is true (the default) the view will
> be cleared before each refresh call,
> // otherwise It will draw in top of it.
> // On OSX this functionality is only available for
> the version >= 10.4 and with the flag relativeOrigin set to
> true.
> - 
> -(
> - class="s13">var width = 640, height = 480, w, theta = 0,
> drawFunc, gui;
> - gui = class="s13">GUI.get( \cocoa );
> - w =
> gui.window.new( "clearOnRefresh = true",
> Rect( 128, 64, width, height ), class="s13">false );
> - drawFunc =
> { arg view;
> - class="Apple-tab-span"> var x = 20
> * sin( theta ), y = 42 * cos( theta );
> - class="Apple-tab-span"> gui.pen.addRect( view.bounds.moveTo
> ( 0, 0 ));
> - class="Apple-tab-span"> gui.pen.clip;
> - class="Apple-tab-span"> theta = theta + 0.01;
> - class="Apple-tab-span"> gui.pen.fillColor_( class="s13">Color.red( 0.2, 0.1 ));
> - class="Apple-tab-span"> gui.pen.fillRect( class="s13">Rect( 0, 0, width, height ));
> - class="Apple-tab-span"> gui.pen.strokeColor_( class="s13">Color.white );
> - class="Apple-tab-span"> gui.pen.translate( width * 0.5,
> height * 0.5 );
> - class="Apple-tab-span"> 6.do { arg
> i;
> - class="Apple-tab-span"> </
> span>gui.pen.rotate( theta * (1 - (i / 6)) );
> - class="Apple-tab-span"> </
> span>gui.pen.scale( 0.7 + (i * 0.4), 0.4 + (i * 0.5) );
> - class="Apple-tab-span"> </
> span>gui.pen.strokeOval( Rect.aboutPoint
> ( Point( x, y ), 60, 40 ));
> - class="Apple-tab-span"> };
> - };
> - x =
> gui.userView.new( w, Rect( 10, 10, width -
> 20, height - 20 ))
> - class="Apple-tab-span"> .canFocus_( false</
> span> )
> - class="Apple-tab-span"> .drawFunc_( drawFunc )
> - class="Apple-tab-span"> .clearOnRefresh_( class="s13">false )
> - class="Apple-tab-span"> .relativeOrigin_( class="s13">true );
> - 
> - w.front;
> - class="s13">Routine({ while({ x.isClosed.not }, { x.refresh;
> (1/25).wait })}).play( AppClock );
> -)
> - 
> -(
> - class="s13">var width= 640, height= 480, w, theta= 0,
> drawFunc;
> - w= class="s13">GUI.window.new("trail test3"</
> span>, Rect(128, 64, width, height), class="s13">false);
> - drawFunc=
> {|v|
> - class="Apple-tab-span"> var x=
> 20*sin(theta), y= 42*cos(theta);
> - class="Apple-tab-span"> theta= theta+0.01;
> - class="Apple-tab-span"> GUI</
> span>.pen.fillColor_(Color.red(0.2,
> 0.1));
> - class="Apple-tab-span"> GUI</
> span>.pen.fillRect(Rect(0, 0, width,
> height));
> - class="Apple-tab-span"> GUI</
> span>.pen.strokeColor_(Color.white);
> - class="Apple-tab-span"> GUI</
> span>.pen.push;
> - class="Apple-tab-span"> GUI</
> span>.pen.translate(width*0.5, height*0.5);
> - class="Apple-tab-span"> 6.do{|i|
> - class="Apple-tab-span"> </
> span>GUI.pen.rotate(theta*(1-(i/6)));
> - class="Apple-tab-span"> </
> span>GUI.pen.scale(0.7+(i*0.4), 0.4+
> (i*0.5));
> - class="Apple-tab-span"> </
> span>GUI.pen.strokeOval( class="s13">Rect.aboutPoint(Point
> (x, y), 60, 40))
> - class="Apple-tab-span"> };
> - class="Apple-tab-span"> GUI</
> span>.pen.pop;
> - };
> - class="s13">GUI.userView.new(w, Rect
> (10, 10, width-20, height-20)).drawFunc_(drawFunc).relativeOrigin_
> (true);
> - w.front;
> - class="s13">Routine({inf.do{ class="s13">|i| w.refresh; (1/25).wait}}).play( class="s13">AppClock);
> -)
> - 
> - 
> + 
> +(
> + class="s14">var width = 640, height = 480, w, theta = 0,
> drawFunc, gui;
> + gui = class="s14">GUI.get( \cocoa );
> + w =
> gui.window.new( "clearOnRefresh = true",
> Rect( 128, 64, width, height ), class="s14">false );
> + drawFunc =
> { arg view;
> + class="Apple-tab-span"> var x = 20
> * sin( theta ), y = 42 * cos( theta );
> + class="Apple-tab-span"> gui.pen.addRect( view.bounds.moveTo
> ( 0, 0 ));
> + class="Apple-tab-span"> gui.pen.clip;
> + class="Apple-tab-span"> theta = theta + 0.01;
> + class="Apple-tab-span"> gui.pen.fillColor_( class="s14">Color.red( 0.2, 0.1 ));
> + class="Apple-tab-span"> gui.pen.fillRect( class="s14">Rect( 0, 0, width, height ));
> + class="Apple-tab-span"> gui.pen.strokeColor_( class="s14">Color.white );
> + class="Apple-tab-span"> gui.pen.translate( width * 0.5,
> height * 0.5 );
> + class="Apple-tab-span"> 6.do { arg
> i;
> + class="Apple-tab-span"> </
> span>gui.pen.rotate( theta * (1 - (i / 6)) );
> + class="Apple-tab-span"> </
> span>gui.pen.scale( 0.7 + (i * 0.4), 0.4 + (i * 0.5) );
> + class="Apple-tab-span"> </
> span>gui.pen.strokeOval( Rect.aboutPoint
> ( Point( x, y ), 60, 40 ));
> + class="Apple-tab-span"> };
> + };
> + x =
> gui.userView.new( w, Rect( 10, 10, width -
> 20, height - 20 ))
> + class="Apple-tab-span"> .canFocus_( false</
> span> )
> + class="Apple-tab-span"> .drawFunc_( drawFunc )
> + class="Apple-tab-span"> .clearOnRefresh_( class="s14">false )
> + class="Apple-tab-span"> .relativeOrigin_( class="s14">true );
> + 
> + w.front;
> + class="s14">Routine({ while({ x.isClosed.not }, { x.refresh;
> (1/25).wait })}).play( AppClock );
> +)
> + 
> +(
> + class="s14">var width= 640, height= 480, w, theta= 0,
> drawFunc;
> + w= class="s14">GUI.window.new("trail test3"</
> span>, Rect(128, 64, width, height), class="s14">false);
> + drawFunc=
> {|v|
> + class="Apple-tab-span"> var x=
> 20*sin(theta), y= 42*cos(theta);
> + class="Apple-tab-span"> theta= theta+0.01;
> + class="Apple-tab-span"> GUI</
> span>.pen.fillColor_(Color.red(0.2,
> 0.1));
> + class="Apple-tab-span"> GUI</
> span>.pen.fillRect(Rect(0, 0, width,
> height));
> + class="Apple-tab-span"> GUI</
> span>.pen.strokeColor_(Color.white);
> + class="Apple-tab-span"> GUI</
> span>.pen.push;
> + class="Apple-tab-span"> GUI</
> span>.pen.translate(width*0.5, height*0.5);
> + class="Apple-tab-span"> 6.do{|i|
> + class="Apple-tab-span"> </
> span>GUI.pen.rotate(theta*(1-(i/6)));
> + class="Apple-tab-span"> </
> span>GUI.pen.scale(0.7+(i*0.4), 0.4+
> (i*0.5));
> + class="Apple-tab-span"> </
> span>GUI.pen.strokeOval( class="s14">Rect.aboutPoint(Point
> (x, y), 60, 40))
> + class="Apple-tab-span"> };
> + class="Apple-tab-span"> GUI</
> span>.pen.pop;
> + };
> + class="s14">GUI.userView.new(w, Rect
> (10, 10, width-20, height-20)).drawFunc_(drawFunc).relativeOrigin_
> (true);
> + w.front;
> + class="s14">Routine({inf.do{ class="s14">|i| w.refresh; (1/25).wait}}).play( class="s14">AppClock);
> +)
> + 
> + 
> // Prevent redrawing:
> - 
> -(
> -var func, views;
> - 
> -func = {|me|
> - class="s13">Pen.use{
> - class="Apple-tab-span"> 10.do{
> - class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> - class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> - class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> - class="Apple-tab-span"> }
> - }
> -};
> - 
> -w = class="s13">SCWindow.new("DrawFunc
> Examples").front;
> -w.view.background_(Color</
> span>.white);
> -views = {|i|
> - v = class="s13">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100)).relativeOrigin_(true</
> span>);
> - v.drawFunc =
> func;
> -} ! 3;
> -w.refresh;
> -{views.do{|v|
> v.clearOnRefresh_(false);v.drawFunc =
> nil}}.defer(0.4);
> -)
> - 
> - 
> + 
> +(
> +var func, views;
> + 
> +func = {|me|
> + class="s14">Pen.use{
> + class="Apple-tab-span"> 10.do{
> + class="Apple-tab-span"> </
> span>Color.red(rrand(0.0, 1), rrand(0.0,
> 0.5)).set;
> + class="Apple-tab-span"> </
> span>Pen.addArc((400.exprand(2))@
> (100.rand), rrand(10, 100), 2pi.rand, pi);
> + class="Apple-tab-span"> </
> span>Pen.perform([
> \stroke, \fill].choose);
> + class="Apple-tab-span"> }
> + }
> +};
> + 
> +w = class="s14">SCWindow.new("DrawFunc
> Examples").front;
> +w.view.background_(Color</
> span>.white);
> +views = {|i|
> + v = class="s14">SCUserView(w, Rect(20+
> (i*120), 100, 100, 100)).relativeOrigin_(true</
> span>);
> + v.drawFunc =
> func;
> +} ! 3;
> +w.refresh;
> +{views.do{|v|
> v.clearOnRefresh_(false);v.drawFunc =
> nil}}.defer(0.4);
> +)
> + 
> + 
> // Use refreshInRect(aRect).
> // Constrains the receiver's refresh area to the
> rectangle passed in aRect.
> // you may use Quartz Debug's flash screen updates
> to see the refresh area of the view
> - 
> -(
> -var userView, win, blob =
> Rect(0, 0, 50, 50), trackblob= class="s13">false, pmouse;
> - 
> -a = class="s13">SCImage.new("/Library/
> Desktop Pictures/Ripples Blue.jpg");
> - 
> -win = SCWindow.new( class="s15">"refreshInRect Test", Rect</
> span>(400, 400, 600, 200), scroll:true</
> span>).front;
> -win.onClose_({ a.free; });
> - 
> -userView = SCUserView(win,
> Rect(10,10,2000,800))
> - </
> span>.backgroundImage_(a, 5)
> - </
> span>.relativeOrigin_(false)
> - .drawFunc_
> ({|me|
> - class="Apple-tab-span"> Color</
> span>.blue.setFill;
> - class="Apple-tab-span"> Pen.fillRect
> (blob);
> - })
> - </
> span>.mouseDownAction_({|v, x, y, mod|
> - class="Apple-tab-span"> pmouse = x@y;
> - class="Apple-tab-span"> trackblob = blob.containsPoint
> (pmouse);
> - })
> - .mouseUpAction_
> ({|v, x, y, mod|
> - class="Apple-tab-span"> trackblob = false</
> span>;
> - })
> - </
> span>.mouseMoveAction_({|v, x, y, mod|
> - class="Apple-tab-span"> var
> refresh, mouse, delta;
> - class="Apple-tab-span"> mouse = x@y;
> - class="Apple-tab-span"> 
> - class="Apple-tab-span"> if(trackblob, {
>
> @@ Diff output truncated at 100000 characters. @@
>
> This was sent by the SourceForge.net collaborative development
> platform, the world's largest Open Source development site.
>
> _______________________________________________
> sc-dev mailing list
>
> info (subscription, etc.): http://www.beast.bham.ac.uk/research/
> sc_mailing_lists.shtml
> archive: http://www.listarc.bham.ac.uk/marchives/sc-dev/
> search: http://www.listarc.bham.ac.uk/lists/sc-dev/search/

_______________________________________________
sc-dev mailing list

info (subscription, etc.): http://www.beast.bham.ac.uk/research/sc_mailing_lists.shtml
archive: http://www.listarc.bham.ac.uk/marchives/sc-dev/
search: http://www.listarc.bham.ac.uk/lists/sc-dev/search/