Bottle Glass Mountains | wonderfl build flash online

※現在、「wonderfl build flash online」求人コンテンツ制作に関してのアンケートを実施中です！みなさまのお力添えを頂いて、続々とアンケート結果が集まっていますが、まだまだ募集しております。ご協力のほど、どうぞよろしくお願いいたします！

wonderfl運営事務局
→アンケートページ（※ログインしてからお答えいただけるようになっています。）

Bottle Glass Mountains

add to favorites

mash

notice: Flash editor updated! Join the development! Thanks to MiniBuilder

forked : 19
favorite : 33
lines : 43
license : All rights reserved
modified : 2008-12-13 22:01:00

embed

Twitterでつぶやく

// package, import, class definition added by mash
// others are from 
// http://www.25lines.com/finalists/0812/064.txt
package {
import flash.display.*;  
import flash.events.*;  
import flash.text.*;  
import flash.utils.*;
import flash.filters.*;
import flash.geom.*;    
public class project64 extends Sprite {
var fade :Shape;
public function project64() {

/**
 * 25-Line ActionScript Contest Entry
 * 
 * Project: Bottle Glass Mountains
 * Author: Daniil Tutubalin, Tomsk, Russia
 * Email: tutubalin@gmail.com
 * Date: 11/28/2008
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 * 
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */

// 3 free lines! Alter the parameters of the following lines or remove them.
// Do not substitute other code for the three lines in this section
[SWF(width=600, height=600, frameRate=24, backgroundColor=0x000000)]
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;

var landscape:BitmapData = new BitmapData(600,600,false,0);
var map:BitmapData = new BitmapData(600,600,false,0);
var texture:BitmapData = new BitmapData(600,600,false,0);
addChild(new Bitmap(new BitmapData(600,600,false,0)));
landscape.perlinNoise(100,100,1,Math.random()*int.MAX_VALUE,false,false, 7, true);
texture.perlinNoise(100,100,3,Math.random()*int.MAX_VALUE,false,false,2,false);
texture.draw(landscape,null,new ColorTransform(0,1,0,1,0,0,0,0),"screen");
(this.fade = new Shape()).graphics.beginGradientFill("radial",[0xFFFFFF,0],[1,1],[192,255],new Matrix(0.29296875, 0, 0, 0.29296875, 300, 300));
this.fade.graphics.drawRect(0,0,600,600);
texture.draw(this.fade,new Matrix(1.1,0,0,1.1,-30,-30),null,"multiply");
landscape.draw(this.fade,null,null,"multiply");
var rotatedScape:BitmapData = new BitmapData(600,600,false,0);
var rotatedTexture = new BitmapData(600,600,true,0);
var temp:BitmapData = new BitmapData(600,600,true,0);
var displaceFilter:DisplacementMapFilter = new DisplacementMapFilter(map,new Point(), 16, 2, 0, 256,"color",0x0,1);
var a:Number = 0;
addEventListener(Event.ENTER_FRAME, function() {
	rotatedScape.draw(landscape,new Matrix(Math.cos(a-=(mouseX-300)/2000), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
	rotatedTexture.draw(texture,new Matrix(Math.cos(a), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);		
	map.fillRect(map.rect,0)
	for (var i=127; i>=0; i-=16) {
		temp.threshold(rotatedScape,rotatedScape.rect,new Point(), "<=", (128-i)<<8, 0, 0x0000ff00, true);
		map.draw(temp, new Matrix(1,0,0,1,0,i), null, "normal");
	}										  
	map.applyFilter(map,map.rect,new Point(), new BlurFilter(3,3));											  
	getChildAt(0)["bitmapData"].applyFilter(rotatedTexture, rotatedTexture.rect, new Point(), displaceFilter);
});
}
}
}

3D BitmapData DisplacementMapFilter bottle effect glass green landscape moutain

matacat

knd

kinoca77

Gobelins_IPFix

lespleen

FlashFit

Donyz

yooKo

chamadi

bluepix

jcayzac

miniapp

9re

Kay

mesulion

mswar777

ppc

M4RC0

Nao_u

Kallethyselius

usushio

hikipuro

awef

Skizi :

DisplacementMapFilter 3D

allan_zac :

3D BitmapData bottle effect glass green landscape moutain

feti :

mountain

dizgid :

BitmapData 3D

tkinjo :

glass effect

hacker_wfcn49d6 :

green landscape bottle glass moutain

spog :

komische reflektion

shaktool :

^_^

peko :

good

nabe :

不思議な感じ。ソースは難しい。

>sort

Bottle Glass Mountains forked from: Bottle Glass Mountains [diff(1)]

hacker_9p8x8mco

// forked from mash's Bottle Glass Mountains
// package, import, class definition added by mash
// others are from
// http://www.25lines.com/finalists/0812/064.txt
package {
import flash.display.*;
import flash.events.*;
import flash.text.*;
import flash.utils.*;
import flash.filters.*;
import flash.geom.*;
public class project64 extends Sprite {
var fade :Shape;
public function project64() {
/**
* 25-Line ActionScript Contest Entry
*
* Project: Bottle Glass Mountains
* Author: Daniil Tutubalin, Tomsk, Russia
* Email: tutubalin@gmail.com
* Date: 11/28/2008
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
// 3 free lines! Alter the parameters of the following lines or remove them.
// Do not substitute other code for the three lines in this section
[SWF(width=600, height=600, frameRate=24, backgroundColor=0x000000)]
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;
var landscape:BitmapData = new BitmapData(600,600,false,0);
var map:BitmapData = new BitmapData(600,600,false,0);
var texture:BitmapData = new BitmapData(600,600,false,0);
addChild(new Bitmap(new BitmapData(600,600,false,0)));
landscape.perlinNoise(100,100,1,Math.random()*int.MAX_VALUE,false,false, 7, true);
texture.perlinNoise(100,100,3,Math.random()*int.MAX_VALUE,false,false,2,false);
texture.draw(landscape,null,new ColorTransform(0,1,0,1,0,0,0,0),"screen");
(this.fade = new Shape()).graphics.beginGradientFill("radial",[0xFFFFFF,0],[1,1],[192,255],new Matrix(0.29296875, 0, 0, 0.29296875, 300, 300));
this.fade.graphics.drawRect(0,0,600,600);
texture.draw(this.fade,new Matrix(1.1,0,0,1.1,-30,-30),null,"multiply");
landscape.draw(this.fade,null,null,"multiply");
var rotatedScape:BitmapData = new BitmapData(600,600,false,0);
var rotatedTexture = new BitmapData(600,600,true,0);
var temp:BitmapData = new BitmapData(600,600,true,0);
var displaceFilter:DisplacementMapFilter = new DisplacementMapFilter(map,new Point(), 16, 2, 0, 256,"color",0x0,1);
var a:Number = 0;
addEventListener(Event.ENTER_FRAME, function() {
rotatedScape.draw(landscape,new Matrix(Math.cos(a-=(mouseX-300)/2000), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
rotatedTexture.draw(texture,new Matrix(Math.cos(a), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
map.fillRect(map.rect,0)
for (var i=127; i>=0; i-=16) {
temp.threshold(rotatedScape,rotatedScape.rect,new Point(), "<=", (128-i)<<8, 0, 0x0000ff00, true);
map.draw(temp, new Matrix(1,0,0,1,0,i), null, "normal");
}
map.applyFilter(map,map.rect,new Point(), new BlurFilter(3,3));
getChildAt(0)["bitmapData"].applyFilter(rotatedTexture, rotatedTexture.rect, new Point(), displaceFilter);
});
}
}
}

Bottle Glass Mountains forked from: Bottle Glass Mountains [diff(6)]

vasari

// forked from mash's Bottle Glass Mountains
// package, import, class definition added by mash
// others are from
// http://www.25lines.com/finalists/0812/064.txt
package {
import flash.display.*;
import flash.events.*;
import flash.text.*;
import flash.utils.*;
import flash.filters.*;
import flash.geom.*;
public class project64 extends Sprite {
var fade :Shape;
public function project64() {
/**
* 25-Line ActionScript Contest Entry
*
* Project: Bottle Glass Mountains
* Author: Daniil Tutubalin, Tomsk, Russia
* Email: tutubalin@gmail.com
* Date: 11/28/2008
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
// 3 free lines! Alter the parameters of the following lines or remove them.
// Do not substitute other code for the three lines in this section
[SWF(width=600, height=600, frameRate=24, backgroundColor=0x000000)]
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;
var landscape:BitmapData = new BitmapData(600,600,false,0);
var map:BitmapData = new BitmapData(600,600,false,0);
var texture:BitmapData = new BitmapData(600,600,false,0);
addChild(new Bitmap(new BitmapData(600,600,false,0)));
landscape.perlinNoise(100,100,1,Math.random()*int.MAX_VALUE,false,false, 7, true);
texture.perlinNoise(100,100,3,Math.random()*int.MAX_VALUE,false,false,2,false);
texture.draw(landscape,null,new ColorTransform(0,1,0,1,0,0,0,0),"screen");
(this.fade = new Shape()).graphics.beginGradientFill("radial",[0xFFFFFF,0],[1,1],[192,255],new Matrix(0.29296875, 0, 0, 0.29296875, 300, 300));
this.fade.graphics.drawRect(0,0,600,600);
texture.draw(this.fade,new Matrix(1.1,0,0,1.1,-30,-30),null,"multiply");
landscape.draw(this.fade,null,null,"multiply");
var rotatedScape:BitmapData = new BitmapData(600,600,false,0);
var rotatedTexture = new BitmapData(600,600,true,0);
var temp:BitmapData = new BitmapData(600,600,true,0);
var displaceFilter:DisplacementMapFilter = new DisplacementMapFilter(map,new Point(), 16, 2, 0, 256,"color",0x0,1);
var a:Number = 4;
addEventListener(Event.ENTER_FRAME, function() {
rotatedScape.draw(landscape,new Matrix(Math.cos(a-=(mouseX-300)/2000), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
rotatedTexture.draw(texture,new Matrix(1, 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
map.fillRect(map.rect,1)
for (var i=127; i>=0; i-=8) {
temp.threshold(rotatedScape,rotatedScape.rect,new Point(), "<=", (128-i)<<8, 0, 0x0000ff00, true);
map.draw(temp, new Matrix(1,0,0,1,2,i), null, "normal");
}
map.applyFilter(map,map.rect,new Point(), new BlurFilter(3,3));
getChildAt(0)["bitmapData"].applyFilter(rotatedTexture, rotatedTexture.rect, new Point(), displaceFilter);
});
}
}
}

Bottle Glass Mountains forked from: Bottle Glass Mountains [diff(13)]

mirkofresa

// forked from mash's Bottle Glass Mountains
// package, import, class definition added by mash
// others are from
// http://www.25lines.com/finalists/0812/064.txt
package {
import flash.display.*;
import flash.events.*;
import flash.text.*;
import flash.utils.*;
import flash.filters.*;
import flash.geom.*;
public class project64 extends Sprite {
var fade :Shape;
public function project64() {
/**
* 25-Line ActionScript Contest Entry
*
* Project: Bottle Glass Mountains
* Author: Daniil Tutubalin, Tomsk, Russia
* Email: tutubalin@gmail.com
* Date: 11/28/2008
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
// 3 free lines! Alter the parameters of the following lines or remove them.
// Do not substitute other code for the three lines in this section
[SWF(width=760, height=100, frameRate=24, backgroundColor=0xffffff)]
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;
var landscape:BitmapData = new BitmapData(600,600,false,0);
var map:BitmapData = new BitmapData(760,100,false,0);
var texture:BitmapData = new BitmapData(760,100,false,0);
addChild(new Bitmap(new BitmapData(760,100,false,0)));
landscape.perlinNoise(100,100,1,Math.random()*int.MAX_VALUE,false,false, 7, true);
texture.perlinNoise(100,100,3,Math.random()*int.MAX_VALUE,false,false,2,false);
texture.draw(landscape,null,new ColorTransform(0,1,0,1,0,0,0,0),"screen");
(this.fade = new Shape()).graphics.beginGradientFill("radial",[0xffffffff,0],[1,1],[192,255],new Matrix(1, 0, 0, 1, 300, 50));
this.fade.graphics.drawRect(0,0,600,600);
texture.draw(this.fade,new Matrix(1.1,0,0,1.1,-30,-30),null,"multiply");
landscape.draw(this.fade,null,null,"multiply");
var rotatedScape:BitmapData = new BitmapData(760,100,false,0);
var rotatedTexture = new BitmapData(760,100,true,0);
var temp:BitmapData = new BitmapData(760,100,true,0);
var displaceFilter:DisplacementMapFilter = new DisplacementMapFilter(map,new Point(), 16, 2, 0, 256,"color",0xffffff,1);
var a:Number = 0;
addEventListener(Event.ENTER_FRAME, function() {
rotatedScape.draw(landscape,new Matrix(Math.cos(a-=(mouseX-50)/2000), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 50*(1-Math.cos(a)+Math.sin(a)), 50*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
rotatedTexture.draw(texture,new Matrix(Math.cos(a), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 50*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
map.fillRect(map.rect,0)
for (var i=127; i>=0; i-=16) {
temp.threshold(rotatedScape,rotatedScape.rect,new Point(), "<=", (128-i)<<8, 0, 0xffffff00, true);
map.draw(temp, new Matrix(1,0,0,1,0,i), null, "normal");
}
map.applyFilter(map,map.rect,new Point(), new BlurFilter(3,3));
getChildAt(0)["bitmapData"].applyFilter(rotatedTexture, rotatedTexture.rect, new Point(), displaceFilter);
});
}
}
}

Bottle Glass Mountains forked from: Bottle Glass Mountains [diff(1)]

madrius31

// forked from mash's Bottle Glass Mountains
// package, import, class definition added by mash
// others are from
// http://www.25lines.com/finalists/0812/064.txt
package {
import flash.display.*;
import flash.events.*;
import flash.text.*;
import flash.utils.*;
import flash.filters.*;
import flash.geom.*;
public class project64 extends Sprite {
var fade :Shape;
public function project64() {
/**
* 25-Line ActionScript Contest Entry
*
* Project: Bottle Glass Mountains
* Author: Daniil Tutubalin, Tomsk, Russia
* Email: tutubalin@gmail.com
* Date: 11/28/2008
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
// 3 free lines! Alter the parameters of the following lines or remove them.
// Do not substitute other code for the three lines in this section
[SWF(width=600, height=600, frameRate=24, backgroundColor=0x000000)]
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;
var landscape:BitmapData = new BitmapData(600,600,false,0);
var map:BitmapData = new BitmapData(600,600,false,0);
var texture:BitmapData = new BitmapData(600,600,false,0);
addChild(new Bitmap(new BitmapData(600,600,false,0)));
landscape.perlinNoise(100,100,1,Math.random()*int.MAX_VALUE,false,false, 7, true);
texture.perlinNoise(100,100,3,Math.random()*int.MAX_VALUE,false,false,2,false);
texture.draw(landscape,null,new ColorTransform(0,1,0,1,0,0,0,0),"screen");
(this.fade = new Shape()).graphics.beginGradientFill("radial",[0xFFFFFF,0],[1,1],[192,255],new Matrix(0.29296875, 0, 0, 0.29296875, 300, 300));
this.fade.graphics.drawRect(0,0,600,600);
texture.draw(this.fade,new Matrix(1.1,0,0,1.1,-30,-30),null,"multiply");
landscape.draw(this.fade,null,null,"multiply");
var rotatedScape:BitmapData = new BitmapData(600,600,false,0);
var rotatedTexture = new BitmapData(600,600,true,0);
var temp:BitmapData = new BitmapData(600,600,true,0);
var displaceFilter:DisplacementMapFilter = new DisplacementMapFilter(map,new Point(), 16, 2, 0, 256,"color",0x0,1);
var a:Number = 0;
addEventListener(Event.ENTER_FRAME, function() {
rotatedScape.draw(landscape,new Matrix(Math.cos(a-=(mouseX-300)/2000), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
rotatedTexture.draw(texture,new Matrix(Math.cos(a), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
map.fillRect(map.rect,0)
for (var i=127; i>=0; i-=16) {
temp.threshold(rotatedScape,rotatedScape.rect,new Point(), "<=", (128-i)<<8, 0, 0x0000ff00, true);
map.draw(temp, new Matrix(1,0,0,1,0,i), null, "normal");
}
map.applyFilter(map,map.rect,new Point(), new BlurFilter(3,3));
getChildAt(0)["bitmapData"].applyFilter(rotatedTexture, rotatedTexture.rect, new Point(), displaceFilter);
});
}
}
}

Bottle Glass Mountains forked from: Bottle Glass Mountains [diff(3)]

verticaldesigner

// forked from mash's Bottle Glass Mountains
// package, import, class definition added by mash
// others are from
// http://www.25lines.com/finalists/0812/064.txt
package {
import flash.display.*;
import flash.events.*;
import flash.text.*;
import flash.utils.*;
import flash.filters.*;
import flash.geom.*;
public class project64 extends Sprite {
var fade :Shape;
public function project64() {
/**
* 25-Line ActionScript Contest Entry
*
* Project: Bottle Glass Mountains
* Author: Daniil Tutubalin, Tomsk, Russia
* Email: tutubalin@gmail.com
* Date: 11/28/2008
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
// 3 free lines! Alter the parameters of the following lines or remove them.
// Do not substitute other code for the three lines in this section
[SWF(width=600, height=600, frameRate=24, backgroundColor=0x000000)]
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;
var landscape:BitmapData = new BitmapData(600,600,false,0);
var map:BitmapData = new BitmapData(600,600,false,0);
var texture:BitmapData = new BitmapData(600,600,false,0);
addChild(new Bitmap(new BitmapData(600,600,false,0)));
landscape.perlinNoise(100,100,1,Math.random()*int.MAX_VALUE,false,false, 7, true);
texture.perlinNoise(100,100,3,Math.random()*int.MAX_VALUE,false,false,2,false);
texture.draw(landscape,null,new ColorTransform(0,1,0,1,0,0,0,0),"screen");
(this.fade = new Shape()).graphics.beginGradientFill("radial",[0xFFFFFF,0],[1,1],[50,255],new Matrix(0.29296875, 0, 0, 0.29296875, 300, 300));
this.fade.graphics.drawRect(0,0,600,600);
texture.draw(this.fade,new Matrix(1.1,0,0,1.1,-30,-30),null,"multiply");
landscape.draw(this.fade,null,null,"multiply");
var rotatedScape:BitmapData = new BitmapData(600,600,false,0);
var rotatedTexture = new BitmapData(600,600,true,0);
var temp:BitmapData = new BitmapData(600,600,true,0);
var displaceFilter:DisplacementMapFilter = new DisplacementMapFilter(map,new Point(), 5, 2, 0, 256,"color",0x0,1);
var a:Number = 0;
addEventListener(Event.ENTER_FRAME, function() {
rotatedScape.draw(landscape,new Matrix(Math.cos(a-=(mouseX-300)/2000), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
rotatedTexture.draw(texture,new Matrix(Math.cos(a), 0.7*Math.sin(a), -Math.sin(a), 0.7*Math.cos(a), 300*(1-Math.cos(a)+Math.sin(a)), 210*(1-Math.sin(a)-Math.cos(a))),null,null,null,true);
map.fillRect(map.rect,0)
for (var i=127; i>=0; i-=16) {
temp.threshold(rotatedScape,rotatedScape.rect,new Point(), "<=", (128-i)<<8, 0, 0x0000ff00, true);
map.draw(temp, new Matrix(1,0,0,1,0,i), null, "normal");
}
map.applyFilter(map,map.rect,new Point(), new BlurFilter(3,3));
getChildAt(0)["bitmapData"].applyFilter(rotatedTexture, rotatedTexture.rect, new Point(), displaceFilter);
});
}
}
}