[AS2] bounce a pic

[astaroth]

Hi,

weil ich so oft gefragt wurde, möchte ich Euch einen Part aus der TRSI back2black-Demo hier offenbaren.
Link zur Demo :
http://www.pouet.net/prod.php?which=31659

Dort gibt es einen Part, wo ein Bild gebounced wird.

Hier ist der Sourcecode, allerdings unkommentiert.
http://trsi-technology.de/astaroth/wabbel.zip

Und hier für copy & paste :
Es muss allerdings ein Bild in der Bibliothek sein, das als Verknüpfungsnamen 'women' trägt.

Viel Spaß damit.

...Patrick

stop();
import flash.display.*;
import flash.filters.*;
import flash.geom.*;
function Wabbel() {
	var main:MovieClip = this.createEmptyMovieClip("main", 100);
	var counter:Number = 0;
	var title1:BitmapData = BitmapData.loadBitmap("women"); 
	var fallspeed:Number = 30;
	var wabbelfaktor:Number = 1.5;
	var wabbelduration:Number = 5000;
	var SinusSpeed:Number = fallspeed*Math.asin(wabbelfaktor/(title1.height));
	for (var cc:Number = 0; cc<title1.height; cc++) {
		main.createEmptyMovieClip("Tile"+cc, cc);
		var fillme:BitmapData = new BitmapData(title1.width, 1, false, 0);
		fillme.copyPixels(title1, new Rectangle(0, cc, title1.width, 1), new Point(0, 0));
		main["Tile"+cc].clear();
		main["Tile"+cc].beginBitmapFill(fillme);
		main["Tile"+cc].moveTo(0, 0);
		main["Tile"+cc].lineTo(0, 1);
		main["Tile"+cc].lineTo(title1.width, 1);
		main["Tile"+cc].lineTo(title1.width, 0);
		main["Tile"+cc].lineTo(0, 0);
		main["Tile"+cc].endFill();
		main["Tile"+cc]._y = cc;
		main["Tile"+cc]._height = 2;
	}
	function Seitenwabbel(arg):Void {
		var radius = title1.height/2;
		for (var cc:Number = 0; cc<title1.height; cc++) {
			var xdelta:Number = Math.sqrt(Math.pow(radius, 2)-Math.pow(cc-(title1.height/2), 2));
			xdelta = xdelta*arg;
			main["Tile"+cc]._width = title1.width+xdelta;
			main["Tile"+cc]._x = -(xdelta/2);
		}
	}
	main._x = (Stage.width-main._width)/2;
	main._y = -title1.height;
	main.onEnterFrame = function() {
		if (main._y+title1.height<Stage.height && counter == 0) {
			main._y += fallspeed;
		} else {
			counter++;
			var ausrichtung:Number = Math.sin(counter*SinusSpeed);
			var ausrichtung2:Number = Math.sin(counter*SinusSpeed*3);
			var daempfung:Number = wabbelduration/((counter*counter)+wabbelduration);
			var wabbel:Number = ((title1.height/wabbelfaktor)*ausrichtung)*daempfung;
			main._y = (Stage.height-title1.height)+(wabbel/1.5);
			if (ausrichtung>0) {
				main._height = title1.height-(wabbel/1.5);
				Seitenwabbel(((ausrichtung*daempfung)));
			} else {
				main._height = title1.height-(wabbel/3);
				Seitenwabbel(((ausrichtung2*daempfung)/2));
			}
		}
	};
}
Wabbel();

[gaspode]

Du gehörst zu TRSI?! Wow!

Danke für das Skript.

gruß, gaspode

PS:
Könntest Du dem Designer des Demos bitte mitteilen:
Schöne Effekte, aber nur weil es Flash ist, muß das Demo
nicht so aussehen, wie die Amiga-Demos von 1987.

[astaroth]

Naja, das war ja so gewollt, wegen 10 Jahre evoke.
Ich hab auch nicht soviel Zeit für das Demo gehabt, hab da nur ein paar Stunden investiert, sonst hätte ich auch was vernünftiges in AS3 gezaubert

[marc]

OT: Oh man.. ist das auch schon wieder so lange her? Ich weiß gar nicht mehr genau wann ich da war. War damal mit se7en (oder auch nail) da. Und habe auch mit ihm zusammen mal ein Logo für die Evoke gemacht. Puh.. bin ich alt...

[astaroth]

Zitat von marc

OT: Oh man.. ist das auch schon wieder so lange her? Ich weiß gar nicht mehr genau wann ich da war. War damal mit se7en (oder auch nail) da. Und habe auch mit ihm zusammen mal ein Logo für die Evoke gemacht. Puh.. bin ich alt...

Wahnsinn, oder ?
Wenn ich bedenke, das ich 1992 aus der Scene herausgangen bin und nach 15 Jahren zurückgekehrt. Echt ne lange Zeit. Wir werden halt alle älter.
Aber auch schön, das es nach 15 Jahren immer noch bekannte Gesichter in der Scene gibt.

[gaspode]

Zitat von astaroth

Wenn ich bedenke, das ich 1992 aus der Scene herausgangen bin und nach 15 Jahren zurückgekehrt.

Gehörtest Du denn damals auch schon zu TRSI bzw. RSI?

gruß, gaspode

[astaroth]

Sagen wir so, ich hatte damals ein paar diskrepanzen mit PB und daher konnte Irata mich nicht aufnehmen, so gern er es auch gewollt hatte. Naja egal, ich war ende 1991 ein stilles Mitglied von TRSI und jetzt bin ich es halt richtig.
Ich war damals bei Varsity, Legacy, Spirit und Sunrise.

[Barschel2004]

hahaha... der dicke irata konnte doch fast alles, oder???
ich werde dir morgen (?) mal seine telefonnummer mailen (wegen des disc-mags, you know)...

mit pb meinst du übrigens "pater becker", oder was???
falls dem so ist, wäre die korrekte abkürzung pba (pater becker association)... das weiss ich, weil ich damals bei der namensfindung geholfen habe....

[astaroth]

eigentlich meinte ich den guten alten pöbbelbilly ähhhh. PsychoBilly.