muster

// jr 2001
// sc3d4


//_______muster #1
(
var x, z, mirror, rect;
var mx, my;
mx = MouseX.new([200,-200]);
my = MouseY.new([200,-200]);
z = ImageSynth(Pic.new(Rect.newBy(0,0,256,256), 32), 
	Synth.new({ 
		
		 LFNoise2.ar(MouseX.kr([0.01, 1]))*[1, 1, 1]*SinOsc.ar(100*MouseY.kr([1, 8]), [0, pi, pi/2], 1);
		
	})
);

z.start;

z.next;

//z.end;
mirror = VMirrorPix(Rect.newBy(100,100,100,100));
rect = Rect.newBy(50,50,100,100);
		
x = GUIScreen.new("muster", Rect.newBy(80,80,256,256), View(Pen(action: \fill), 
	[
		z.pic,
		AnimView({  OffsetPix( rect, mx.value, my.value).draw; mirror.draw; })
	]));
x.sched(0, inf, { 
	z.next;
	mirror.bounds = mirror.bounds.moveBy(3.rand2, 3.rand2);
	rect = rect.moveBy(3.rand2,3.rand2);
	x.refresh; 0.05 });

)



//_______muster #2
(
var x, z, mirror, rect;
var mx, my;
mx = MouseX.new([200,-200]);
my = MouseY.new([200,-200]);
z = ImageSynth(Pic.new(Rect.newBy(0,0,256,256), 32), 
	Synth.new({ 
		var in;
		in = LFPulse.ar([0.2, 0.0, 0.01]+80)*[1, 1, 1]*SinOsc.ar(100, [0, pi, pi/2], 1);
		in
	})
);

z.start;
z.next;

mirror = VMirrorPix(Rect.newBy(100,100,100,100));
rect = Rect.newBy(50,50,100,100);
		
x = GUIScreen.new("muster", Rect.newBy(80,80,256,256), View(Pen(action: \fill), 
	[
		z.pic,
		AnimView({ 
			rect = rect.moveBy(1.rand2, 1.rand2);
			OffsetPix(rect, mx.value, my.value).draw;
			mirror.draw;
			}),
		
	]));
	
x.sched(0, inf, { 
	z.next;
	mirror.bounds = mirror.bounds.moveBy(1.rand2, 1.rand2);
	x.refresh; 0.05 });

)



//_______muster #3
(
var x, z, mirror, rect;
var mx, my;
mx = MouseX.new([200,-200]);
my = MouseY.new([200,-200]);
z = ImageSynth(Pic.new(Rect.newBy(0,0,256,256), 32), 
	Synth.new({ 
		var in;
		in = LFSaw.ar([0.2, 0.0, 0.01]+80)*[1, 1, 1]*SinOsc.ar(100, [0, pi, pi/2], 1);
		in
	})
);

z.start;
z.next;

mirror = VMirrorPix(Rect.newBy(100,100,200,200));
rect = Rect.newBy(50,50,100,100);
		
x = GUIScreen.new("muster", Rect.newBy(80,80,256,256), View(Pen(action: \fill), 
	[
		z.pic,
		AnimView({ 
			rect = rect.moveBy(1.rand2, 1.rand2);
			OffsetPix(rect, mx.value, my.value).draw;
			mirror.draw;
			}),
		
	]));
	
x.sched(0, inf, { 
	z.next;
	mirror.bounds = mirror.bounds.moveBy(1.rand2, 1.rand2);
	x.refresh; 0.05 });

)

Links to this Page

• Image Synth last edited on 25 September 2002 at 10:27 pm by max2-062.dialin.uni-hamburg.de
• enter. last edited on 29 January 2003 at 10:46 pm by 203.14.169.19