Samples
1
217
2004.07.05 20:55:53
2009.12.01 23:51:36
Stefan Burger
burger.stefan@t-online.de
http://www.burgers-transition-site.de
Author of Burger Transitions and FXbench. Also responsible for www.burgers-transition-site.de.
Black and White
1
33
2004.07.05 20:55:53
2008.07.06 13:16:52
Converts a colored image/frame into greyscale.
For every pixel the average value of the three color channels is calculated and assigned to the variable 'grey'.
The value of 'grey' is then assigned to every color channel.
Note: This is an example for code optimization. Instead of calculating the greyscale three times for each color channel, it is only computed once for each pixel, stored to an variable and then assigned to red, green and blue. The visual result would have been the same if calculated three times, but with significant loss in performance.
grey=(red+green+blue)/3
grey
grey
grey
0.799000
RotateZoom appear clockwise
degree=360*progress;factor=if(progress==0,0.001,progress);
centerx=width/2;centery=height/2
myx=((rotatex(centerx,centery,degree)-centerx)/factor)+centerx;
myy=((rotatey(centerx,centery,degree)-centery)/factor)+centery
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
1
50
2004.07.15 23:31:23
2006.01.15 11:15:39
Animated effect (press F5 key to start animation)
0.803000
Some sample filters to demonstrate the use and possibilties of the concept and the language Slang.
Sepia
1
8
2004.07.07 01:34:54
2004.08.22 00:22:40
Gives an image the look of an old photo.
This works basically like a simple greyscale filter.
The only difference is a slight adjustment to the grey-value of each color channel by multiplying 'grey' with a certain factor.
grey=(red+green+blue)/3
grey*1.3
grey*1.2
grey*0.9
0.799000
Negative norm
1
15
2004.07.07 01:39:52
2005.03.05 11:25:18
Inversion of an image.
Inversion of an image is just an inversion of each color channels value.
A channel can have values between 0 and 255. Inverting one of those means, that a 0 becomes 255 and 255 becomes 0.
This can easily be achieved, by substracting the channels value from the possible maximum (255).
Example:
original value 0 -> 255 - 0 = 255
original value 255 -> 255 - 255 = 0
original value 55 -> 255 - 55 = 200
...and so on.
instead of the number 255 one can use the symbolic constant 'maxcol'.
maxcol-red
maxcol-green
maxcol-blue
0.799000
Flip static vertical
1
13
2004.07.07 02:22:54
2007.01.25 19:54:10
Turn the image upside down.
With the functions red@(x,y), green@(x,y) and blue@(x,y), it becomes possible to obtain color information of other locations within an image.
To turn an image upside down, its necessary to let line 0 become the last line and vice versa.
Therefore it would be usefull to know the number of lines. The system variables 'height' an 'y' will help us here.
By subtracting y from height we can 'invert' the linenumbers.
The only thing left to do is, assigning the color value of the calculated postion to the current position.
Note: You may have noticed, that 'inversey' is calculated at 'each line' instead of 'each pixel'. This is a sample for code optimization. The visual result would have been the same when calculated at 'each pixel' but with significant loss in performance.
inversey=height-y
red@(x,inversey)
green@(x,inversey)
blue@(x,inversey)
0.799000
Flip static horizontal
1
125
2004.07.07 02:34:19
2007.01.25 19:54:04
Image becomes mirrored
This is very much like the filter 'Flip vertical' with the only difference, that this time the x has to be inverted.
inversex=width-x
red@(inversex,y)
green@(inversex,y)
blue@(inversex,y)
0.799000
Mosaic
val=width*(0.015+(0.06*progress))
myy=int(y/val)*val;
myx=int(x/val)*val;
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
1
10
2004.07.15 23:30:41
2005.03.07 12:42:26
Animated effect (press F5 key to start animation)
0.812000
Saturation
cdf=3*(1-progress)
grey=(red+green+blue)/3
grey+((red-grey)*cdf)
grey+((green-grey)*cdf)
grey+((blue-grey)*cdf)
1
15
2004.07.15 23:31:27
2005.03.07 12:46:08
Animated effect (press F5 key to start animation)
0.799000
Spiral appear counterclock
angle=720*(1-progress);centerx=width/2;centery=height/2;maxdist=distance@(0,0,centerx,centery)
myx=rotatex(centerx,centery,angle*(distance(centerx,centery)/maxdist));
myy=rotatey(centerx,centery,angle*(distance(centerx,centery)/maxdist))
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
1
45
2004.07.15 23:31:51
2005.03.07 18:14:23
Animated effect (press F5 key to start animation)
0.811000
Dyeing
col1red=0;col1green=0;col1blue=255;maxdist=max(sqrt(pow(col1red,2)+pow(col1green,2)+pow(col1blue,2)),sqrt(pow((maxcol-col1red),2)+pow((maxcol-col1green),2)+pow((maxcol-col1blue),2)))
closeness=1-(colordist(col1red,col1green,col1blue)/maxdist);
grey=(red+green+blue)/3
grey+((red-grey)*closeness)
grey+((green-grey)*closeness)
grey+((blue-grey)*closeness)
1
7
2004.07.17 01:04:51
2004.08.22 00:20:59
Converting an image to greyscale, except areas with a color that is close to a certain reference color.
First of all, a reference color is defined by assigning values to the variables col1red, col1green and col1blue.
Then, for each pixel, the distance between the color of the current pixel and the reference color is calculated and set into relation to the maximum distance.
This results in an value between 0 and 1, that expresses how far both colors are apart. 0 means very close/identical, while 1 means maximum distance. For further computations, we need to have this figure inverted by subtract it from the constant 1 (distance becomes closeness).
As we also need the greyscale equivalent of the current color, we also calculate 'grey'.
The assigned value for each color channel is either the grey-equivalent or the original channel value, dependent on the precalculated closeness.
0.811000
FourTiles bottom left to top right
centerx=width*progress; centery=height*progress
myy=if(y<centery,y/centery,(y-centery)/(height-centery))*height
myx=if(x<centerx,x/centerx,(x-centerx)/(width-centerx))*width
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
1
35
2004.07.15 23:30:39
2005.03.07 17:11:22
Animated effect (press F5 key to start animation)
0.803000
Flip anim vertical
1
82
2004.07.20 01:53:14
2007.01.25 19:54:42
Animated effect (FXbench Designer: press F5)
myprog=progress
myy=y+(((height-y)-y)*myprog)
red@(x,myy)
green@(x,myy)
blue@(x,myy)
0.799000
Blur normal
1
32
2004.07.20 22:51:08
2004.08.22 00:20:22
size=15*(progress)
blurred(size)*1.2
blurgreen(size)*1.2
blurblue(size)*1.2
0.815000
Blur fliped
1
32
2004.07.20 23:32:51
2004.08.22 00:19:58
Not really necessary, just to test the behaviour of the blurred@/blurgreen@/blurblue@-family
size=30*(1-progress)
myy=height-y
myx=width-x
blurred@(myx,myy,size)
blurgreen@(myx,myy,size)
blurblue@(myx,myy,size)
0.815000
Edge detection
1
56
2004.07.21 00:18:11
2007.01.25 19:46:21
ef=edge(3)
255*ef
255*ef
255*ef
0.815000
Comic normal
1
38
2004.07.21 00:46:54
2004.08.22 00:20:52
Just another test
tol=2; bl=21; br=1.6
ef=edge(tol)*br
blurred(bl)*ef
blurgreen(bl)*ef
blurblue(bl)*ef
0.815000
Comic fliped
1
34
2004.07.21 01:03:17
2004.08.22 00:20:39
bl=21; br=1.4
myy=height-y
myx=width-x;
ef=edge@(myx,myy,3)*br
blurred@(myx,myy,bl)*ef
blurgreen@(myx,myy,bl)*ef
blurblue@(myx,myy,bl)*ef
0.815000
Brightness
1
28
2004.07.23 04:26:43
2005.08.21 14:28:25
Animated effect. Press F5 to watch animation.
br=2*(1-progress);
val=(255*br)-255
red+val
green+val
blue+val
0.799000
Tech demo: Zoom in
1
60
2004.07.23 22:47:31
2005.08.26 14:30:32
Slowly zooms in from 200 to 500 percent.
(press F5 key to watch demo)
Just a test, to demonstrade bilinear interpolation of red@, green@ and blue@.
The left side is interpolated, while the right side is not.
Magnified pixels seem to be more organic and less cubic. The overall impression is more natural and smooth.
Bilinear interpolation uses the non-integer part of a coordinate (e.g. x=23.45 -> 0.45) to calculate a weighted average between the pixel that is addressed by the integer part of the coordinate (e.g. x=23.45 -> 23) and its successor.
This is done for both, the x- and the y-axis. Therefore its called bilinear interpolation.
zoom=(2*if(progress==0,0.0001,progress))+3;
centerx=width*0.62;centery=height*0.8;split=width*0.5
myx=((x-centerx)/zoom)+centerx;
myy=((y-centery)/zoom)+centery
if(x==int(split),if((y%4)==0,255,red@(myx,myy)),if(x<split,red@(myx,myy),red@(int(myx),int(myy))))
if(x==int(split),if((y%4)==0,255,green@(myx,myy)),if(x<split,green@(myx,myy),green@(int(myx),int(myy))))
if(x==int(split),if((y%4)==0,255,blue@(myx,myy)),if(x<split,blue@(myx,myy),blue@(int(myx),int(myy))))
0.815000
Tech demo: Shift soft
1
35
2004.07.24 00:15:17
2005.03.07 12:47:10
Test for bilinear interpolation
(press F5 key to watch demo)
This demonstrates, how bilinear interpolation supports smooth movement within subpixel area.
Only the left half of the image moves with bilinear interpolation, the right side moves without.
Therefore the left side moves shmoothly within subpixels, while the right side jumps pixel wise every 5 frames.
Note: bilinear interpolation is implemented by default within the red@/green@/blue@ functions. If not needed, it must be explicitly suppressed by applying int() to the coordinates.
offset=5*progress;
centerx=width*0.5
myy=y+offset
myx=x+offset
if(x<=centerx,red@(myx,myy),red@(int(myx),int(myy)))
if(x<=centerx,green@(myx,myy),green@(int(myx),int(myy)))
if(x<=centerx,blue@(myx,myy),blue@(int(myx),int(myy)))
0.812000
Photo
1
33
2004.07.25 22:45:30
2005.03.07 12:43:14
c1=width*0.5;c2=width*0.18;c3=width*0.08;
centerx=width/2;centery=height/2
dist=distance(centerx,centery)
if(dist>c1,0,if(dist>c2,red*0.85,if(dist>c3,red*1.15,if(x<centerx,red@(x,y-1),red@(x,y+2)))))
if(dist>c1,0,if(dist>c2,green*0.85,if(dist>c3,green*1.15,if(x<centerx,green@(x,y-1),green@(x,y+2)))))
if(dist>c1,0,if(dist>c2,blue*0.85,if(dist>c3,blue*1.15,if(x<centerx,blue@(x,y-1),blue@(x,y+2)))))
0.817000
Rays lightspeed
1
38
2004.08.10 14:15:09
2004.08.22 00:22:03
centerx=width/2;centery=height/2;
fact=1*progress;maxdist=distance@(0,0,centerx,centery)
df=distance(centerx,centery)/maxdist;
df=fact*df
tracered(centerx,centery,df)
tracegreen(centerx,centery,df)
traceblue(centerx,centery,df)
0.817000
Rays fliped
1
18
2004.08.10 22:42:05
2004.08.22 00:21:58
centerx=width/2;centery=height/2;fact=0.15
myy=height-y
myx=width-x
tracered@(myx,myy,centerx,centery,fact)
tracegreen@(myx,myy,centerx,centery,fact)
traceblue@(myx,myy,centerx,centery,fact)
0.817000
Rays rotated
1
25
2004.08.10 23:04:08
2004.08.22 00:22:14
centerx=width/2;centery=height/2;ptx=width/4;pty=height/4;
fact=0.2;maxdist=distance@(0,0,centerx,centery);
ptx=rotatex@(width/4,height/4,centerx,centery,360*progress);
pty=rotatey@(width/4,height/4,centerx,centery,360*progress)
df=distance(ptx,pty)/maxdist;
df=fact
tracered(ptx,pty,df)
tracegreen(ptx,pty,df)
traceblue(ptx,pty,df)
0.818000
Tech demo: Outdated Version
2
53
2004.08.10 23:10:25
2005.03.07 12:44:37
No effect at all.
Read Source Code Description for more information.
The code of this filter was intentional designed to be erroneous.
This is to test and demonstrate the behaviour of the application with filters that where written with higher versions of the application and that contain newly introduced language elements.
To indicate this, the field 'Required Core' should be highlighted and the unknown element in the sourcecode should be selected.
centerx=width/2;centery=height/2;
fact=1*progress;maxdist=distance@(0,0,centerx,centery)
somevariable=nonsense(bla)
df=distance(centerx,centery)/maxdist;
df=fact*df;val=tracegrey(centerx,centery,df)
if(val>128,red+val,red)
if(val>128,green+val,green)
if(val>128,blue+val,blue)
9.999999
FXb-Logo color
1
17
2004.10.12 21:35:22
2005.02.17 21:26:51
redx=width/2;redy=height*2/3;greenx=width/3;greeny=height/3;bluex=width*2/3;bluey=height/3;radius=height/3;bls=width*0.05
reddist=distance(redx,redy);greendist=distance(greenx,greeny);bluedist=distance(bluex,bluey)
if(reddist<=radius,red,if((greendist>radius)&&(bluedist>radius),blurred(bls),0))
if(greendist<=radius,green,if((reddist>radius)&&(bluedist>radius),blurgreen(bls),0))
if(bluedist<=radius,blue,if((reddist>radius)&&(greendist>radius),blurblue(bls),0))
0.815000
FXb-Logo grey
1
19
2004.10.12 21:57:25
2005.02.17 21:26:58
redx=width/2;redy=height*2/3;greenx=width/3;greeny=height/3;bluex=width*2/3;bluey=height/3;radius=height/3;bls=width*0.05
reddist=distance(redx,redy);greendist=distance(greenx,greeny);bluedist=distance(bluex,bluey);grey=(blurred(bls)+blurgreen(bls)+blurblue(bls))/3
if(reddist<=radius,red,if((greendist>radius)&&(bluedist>radius),grey,0))
if(greendist<=radius,green,if((reddist>radius)&&(bluedist>radius),grey,0))
if(bluedist<=radius,blue,if((reddist>radius)&&(greendist>radius),grey,0))
0.815000
FXb-Logo black
1
25
2004.10.12 21:59:41
2005.02.17 21:26:43
redx=width/2;redy=height*2/3;greenx=width/3;greeny=height/3;bluex=width*2/3;bluey=height/3;radius=height/3
reddist=distance(redx,redy);greendist=distance(greenx,greeny);bluedist=distance(bluex,bluey)
if(reddist<=radius,red,0)
if(greendist<=radius,green,0)
if(bluedist<=radius,blue,0)
0.803000
FXb-Logo slices
1
24
2004.10.12 22:08:03
2005.02.17 21:27:08
slice1=width*1/5;slice2=width*2/5;slice3=width*3/5;slice4=width*4/5
if(x<=slice2,red,0)
if((x>=slice1)&&(x<=slice4),green,0)
if(x>=slice3,blue,0)
0.803000
John Doe
john.doe@nowhere.de
http://www.nowhere.de
Just another example for the list of authors.
Mirror left to right
1
22
2004.11.01 00:58:11
2004.11.01 01:00:55
centerx=width/2
myx=maxx-x
if( x<centerx, red, red@( myx, y ) )
if( x<centerx, green, green@( myx, y ) )
if( x<centerx, blue, blue@( myx, y ) )
0.803000
Mirror right to left
1
22
2004.11.01 01:00:34
2004.11.01 01:01:44
centerx=width/2
myx=maxx-x
if( x>centerx, red, red@( myx, y ) )
if( x>centerx, green, green@( myx, y ) )
if( x>centerx, blue, blue@( myx, y ) )
0.803000
Mirror top to bottom
1
21
2004.11.01 01:01:44
2004.11.01 01:03:34
centery=height/2
myy=maxy-y
if( y>centery, red, red@( x, myy ) )
if( y>centery, green, green@( x, myy ) )
if( y>centery, blue, blue@( x, myy ) )
0.803000
Mirror bottom to top
1
21
2004.11.01 01:03:34
2004.11.01 01:04:13
centery=height/2
myy=maxy-y
if( y<centery, red, red@( x, myy ) )
if( y<centery, green, green@( x, myy ) )
if( y<centery, blue, blue@( x, myy ) )
0.803000
Blur hole
1
10
2004.11.01 01:07:08
2004.11.01 01:08:50
centerx=width/2;centery=height/2;radius=width*0.45;bs=width*0.05
dist=distance( centerx, centery )
if( dist<radius, red, blurred( bs ) )
if( dist<radius, green, blurgreen( bs ) )
if( dist<radius, blue, blurblue( bs ) )
0.815000
Random sample (bw)
1
24
2004.11.30 08:31:48
2004.12.04 11:08:34
This sample demonstrates the use of the functions seed( ) and rand( ).
To understand the meaning of the use_static parameter of the seed( ) function, just render an animation sequence two times.
For the first animation, set the parameter to true and the noise-pattern will be the same over all frames of the animation.
For the second run, set the parameter to false and the noise-pattern will change with each frame.
seed( false );myprog=1-progress
myr=rand( 0, maxcol )
red+((myr-red)*myprog)
green+((myr-green)*myprog)
blue+((myr-blue)*myprog)
0.821000
Random sample (color)
1
23
2004.12.04 11:08:51
2004.12.04 11:11:10
seed( false );myprog=1-progress
red+((rand( 0, maxcol )-red)*myprog)
green+((rand( 0, maxcol )-green)*myprog)
blue+((rand( 0, maxcol )-blue)*myprog)
0.821000
Dither noise color
1
24
2005.02.16 21:42:53
2007.03.14 11:13:39
seed( true )
if( rand( 0, 255 )>=red, 0, maxcol )
if( rand( 0, 255 )>=green, 0, maxcol )
if( rand( 0, 255 )>=blue, 0, maxcol )
0.821000
Tilt left stretch
1
25
2005.02.17 09:53:15
2005.02.17 10:05:00
factx=maxx/maxy;facty=maxy/maxx
myx=y*factx; myy=maxy-(x*facty)
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Tilt right stretch
1
19
2005.02.17 10:01:06
2005.02.17 10:02:10
factx=maxx/maxy;facty=maxy/maxx
myx=maxx-(y*factx); myy=x*facty
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Tilt right keep size
1
29
2005.02.17 10:05:12
2005.02.17 10:09:59
setoffx=(maxx-maxy)/2;setoffy=(maxy-maxx)/2
myx=(maxy-y)+setoffx; myy=x+setoffy
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Tilt left keep size
1
20
2005.02.17 10:09:59
2005.02.17 10:12:47
setoffx=(maxx-maxy)/2;setoffy=(maxy-maxx)/2
myx=y+setoffx; myy=(maxx-x)+setoffy
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Tilt right enlarge
1
21
2005.02.17 10:17:31
2005.02.17 10:58:54
facty=maxy/maxx;offsetx=((maxx/facty)-(maxy/facty))/2
myx=((maxy-y)*facty)+offsetx; myy=x*facty
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Tilt left enlarge
1
19
2005.02.17 10:37:17
2005.02.17 10:56:02
facty=maxy/maxx;offsetx=((maxx/facty)-(maxy/facty))/2
myx=(y*facty)+offsetx; myy=(maxx-x)*facty
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Dither ordered bw
1
20
2005.02.17 11:14:58
2005.08.13 15:39:42
myy=int(y/2)*2;oy=y%2
myx=int( x/2 )*2;ox=x%2;g=(red@( myx, myy )+green@( myx, myy )+blue@(myx,myy)+red@(myx+1,myy)+green@(myx+1,myy)+blue@(myx+1,myy)+red@(myx,myy+1)+green@(myx,myy+1)+blue@(myx,myy+1)+red@(myx+1,myy+1)+green@(myx+1,myy+1)+blue@(myx+1,myy+1))/12;val=if( g<52, 0, if( g>204, 255, if( g<103, if( (ox==0) && (oy==0), 255, 0 ), if( g>153, if( (ox==1)&&(oy==1), 0, 255 ), if( ((ox==1)&&(oy==1))||((ox==0)&&(oy==0)), 0, 255 ) ) ) ) )
val
val
val
0.817000
Zoom in
1
8
2005.02.23 17:44:03
2005.02.23 17:45:07
zoom=(2*if(progress==0,0.0001,progress))+3;
centerx=width*0.38;centery=height*0.6
myx=((x-centerx)/zoom)+centerx;
myy=((y-centery)/zoom)+centery
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
Blur clock
1
11
2005.03.05 11:07:04
2005.03.05 11:17:47
centerx=width/2;centery=height/2;angnow=360*(1-progress);bs=30
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(angle>=angnow,red,blurred( bs ))
if(angle>=angnow,green,blurgreen( bs ))
if(angle>=angnow,blue,blurblue( bs ))
0.815000
Random clock (bw)
1
23
2005.03.05 11:21:02
2005.03.05 11:23:08
centerx=width/2;centery=height/2;angnow=360*(1-progress);seed( false )
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
myrand=rand( 0, maxcol )
if(angle>=angnow,red,myrand)
if(angle>=angnow,green,myrand)
if(angle>=angnow,blue,myrand)
0.821000
Random clock (color)
1
21
2005.03.05 11:23:08
2005.03.05 11:24:30
centerx=width/2;centery=height/2;angnow=360*(1-progress);seed( false )
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(angle>=angnow,red,rand( 0, maxcol ))
if(angle>=angnow,green,rand( 0, maxcol ))
if(angle>=angnow,blue,rand( 0, maxcol ))
0.821000
Negative clock
1
16
2005.03.05 11:24:49
2005.03.07 12:43:00
(press F5 key to start animation)
centerx=width/2;centery=height/2;angnow=360*(1-progress)
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(angle>=angnow,red,maxcol-red)
if(angle>=angnow,green,maxcol-green)
if(angle>=angnow,blue,maxcol-blue)
0.803000
ColorClock black appear clockwise
1
44
2005.03.07 12:12:03
2006.03.28 06:42:27
(press F5 key to start animation).
centerx=width/2;centery=height/2;grey=0;
angnow=360*(1-progress);
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*progress;
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress>0)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress>0)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress>0)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock black appear counterclock
1
49
2005.03.07 16:38:42
2006.03.28 06:42:42
centerx=width/2;centery=height/2;grey=0;
angnow=360*progress;
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*progress;
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress>0)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress>0)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress>0)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock black disapp clockwise
1
38
2005.03.07 16:40:17
2006.03.28 06:42:57
centerx=width/2;centery=height/2;grey=0;
angnow=360*(1-progress);
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*(1-progress);
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress<1)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress<1)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress<1)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock black disapp counterclock
1
40
2005.03.07 16:47:42
2006.03.28 06:43:09
centerx=width/2;centery=height/2;grey=0;
angnow=360*progress;
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*(1-progress);
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress<1)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress<1)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress<1)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
FoutTiles top right to bottom left
1
36
2005.03.07 17:11:28
2005.03.07 17:15:13
Animated effect (press F5 key to start animation)
centerx=width*(1-progress); centery=height*(1-progress)
myy=if(y<centery,y/centery,(y-centery)/(height-centery))*height
myx=if(x<centerx,x/centerx,(x-centerx)/(width-centerx))*width
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
FourTiles top left to bottom right
1
40
2005.03.07 17:13:08
2005.03.07 17:15:07
Animated effect (press F5 key to start animation)
centerx=width*progress; centery=height*(1-progress)
myy=if(y<centery,y/centery,(y-centery)/(height-centery))*height
myx=if(x<centerx,x/centerx,(x-centerx)/(width-centerx))*width
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
FourTiles bottom right to top left
1
36
2005.03.07 17:13:58
2005.03.07 17:15:02
Animated effect (press F5 key to start animation)
centerx=width*(1-progress); centery=height*progress
myy=if(y<centery,y/centery,(y-centery)/(height-centery))*height
myx=if(x<centerx,x/centerx,(x-centerx)/(width-centerx))*width
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
Unreal
1
8
2005.03.07 17:36:27
2005.03.07 18:03:52
fe=1;
fb=width*0.05;
fc=1.2
ef=edge( fe );
grey=(red+green+blue)/3
grey+(((red+((blurred( fb )-red)*ef))-grey)*fc)
grey+(((green+((blurgreen( fb )-green)*ef))-grey)*fc)
grey+(((blue+((blurblue( fb )-blue)*ef))-grey)*fc)
0.815000
ChannelSwitch red with blue
1
34
2005.03.07 17:56:41
2005.03.07 17:57:17
blue
green
red
0.799000
ChannelSwitch red with green
1
35
2005.03.07 17:57:17
2005.03.07 17:57:54
green
red
blue
0.799000
ChannelSwitch blue with green
1
32
2005.03.07 17:57:54
2005.03.07 17:58:41
red
blue
green
0.799000
ChannelSwitch all 1
1
20
2005.03.07 17:58:41
2005.03.07 17:59:26
green
blue
red
0.799000
ChannelSwitch all 2
1
20
2005.03.07 17:59:26
2005.03.07 18:00:07
blue
red
green
0.799000
RotateZoom appear counterclock
1
40
2005.03.07 18:08:01
2005.03.07 18:09:24
degree=360*(1-progress);factor=if(progress==0,0.001,progress);
centerx=width/2;centery=height/2
myx=((rotatex(centerx,centery,degree)-centerx)/factor)+centerx;
myy=((rotatey(centerx,centery,degree)-centery)/factor)+centery
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
RotateZoom disapp clockwise
1
35
2005.03.07 18:09:54
2005.03.07 18:11:44
degree=360*progress;factor=1-progress;factor=if(factor==0,0.001,factor);
centerx=width/2;centery=height/2
myx=((rotatex(centerx,centery,degree)-centerx)/factor)+centerx;
myy=((rotatey(centerx,centery,degree)-centery)/factor)+centery
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
RotateZoom disapp counterclock
1
39
2005.03.07 18:11:54
2005.03.07 18:13:10
degree=360*(1-progress);factor=1-progress;factor=if(factor==0,0.001,factor);
centerx=width/2;centery=height/2
myx=((rotatex(centerx,centery,degree)-centerx)/factor)+centerx;
myy=((rotatey(centerx,centery,degree)-centery)/factor)+centery
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.803000
Spiral disapp clockwise
1
30
2005.03.07 18:14:33
2005.03.07 18:15:42
angle=720*progress;centerx=width/2;centery=height/2;maxdist=distance@(0,0,centerx,centery)
myx=rotatex(centerx,centery,angle*(distance(centerx,centery)/maxdist));
myy=rotatey(centerx,centery,angle*(distance(centerx,centery)/maxdist))
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.811000
Dither noise bw
1
16
2005.08.13 15:16:02
2007.03.14 11:13:23
seed( true )
sum=red+green+blue;val=if(rand(0,765)>=sum,0,maxcol)
val
val
val
0.821000
Dither ordered color
1
24
2005.08.13 15:39:48
2005.08.13 15:55:50
myy=int(y/2)*2;oy=y%2
myx=int(x/2)*2;
ox=x%2;
gred=(red@( myx, myy )+red@(myx+1,myy)+red@(myx,myy+1)+red@(myx+1,myy+1))/4;
ggreen=(green@( myx, myy )+green@(myx+1,myy)+green@(myx,myy+1)+green@(myx+1,myy+1))/4;
gblue=(blue@( myx, myy )+blue@(myx+1,myy)+blue@(myx,myy+1)+blue@(myx+1,myy+1))/4
if( gred<52, 0, if( gred>204, 255, if( gred<103, if( (ox==0) && (oy==0), 255, 0 ), if( gred>153, if( (ox==1)&&(oy==1), 0, 255 ), if( ((ox==1)&&(oy==1))||((ox==0)&&(oy==0)), 0, 255 ) ) ) ) )
if( ggreen<52, 0, if( ggreen>204, 255, if( ggreen<103, if( (ox==0) && (oy==0), 255, 0 ), if( ggreen>153, if( (ox==1)&&(oy==1), 0, 255 ), if( ((ox==1)&&(oy==1))||((ox==0)&&(oy==0)), 0, 255 ) ) ) ) )
if( gblue<52, 0, if( gblue>204, 255, if( gblue<103, if( (ox==0) && (oy==0), 255, 0 ), if( gblue>153, if( (ox==1)&&(oy==1), 0, 255 ), if( ((ox==1)&&(oy==1))||((ox==0)&&(oy==0)), 0, 255 ) ) ) ) )
0.817000
Scanlines thin
1
14
2005.08.14 22:18:39
2005.08.14 22:24:19
low=0.6;high=1.4
factor=if((y%2)==1,low,high)
red*factor
green*factor
blue*factor
0.803000
Scanlines thick
1
16
2005.08.14 22:24:52
2005.08.14 22:28:32
low=0.6;high=1.4
mod=y%4;factor=if((mod==0) || (mod==1),low,high)
red*factor
green*factor
blue*factor
0.803000
Super 8
1
13
2005.08.14 22:29:58
2005.08.21 12:37:15
Look of old Super 8 footage
Basically we make the image a little blurry and modify the color-channels value by a ceertain factor te get a red color cast.
Furthermore we let the video flicker by make it darker by the factor 'low' every 'flicker' frames.
We also move the image slightly (within subpixel area) by a random factor.
bs=2;flicker=4;low=0.85;xmj=width*0.02;ymj=height*0.02;
seed( false );xjump=rand( 0, xmj )-(xmj/2);yjump=rand( 0, ymj )-(ymj/2);
flickfact=if((frame%flicker)==1,low,1)
myy=y+yjump
myx=x+xjump
blurred@( myx, myy, bs )*1.6*flickfact
blurgreen@( myx, myy, bs )*1.1*flickfact
blurblue@( myx, myy, bs )*0.9*flickfact
0.821000
Dream horizontal
1
21
2005.08.21 12:34:07
2005.08.21 14:05:26
Animated effect. Press F5 to watch animation.
sinwdt=width/17;
sinhgt=height/15;
offset=frame*height/70;
rmax=int(width*0.05);
tmp=if(progress<0.5,(progress*2),(1-((progress-0.5)*2)))
x2=sin( (y+offset)*pi/sinwdt)*sinhgt;x2=x2*tmp
rand=if(x<=rmax,x,if(x>=(width-rmax),width-x,rmax));
r=rand/rmax;x3=(x+(x2*r));x3=if(x3<0,0,if(x3>=width,maxx,x3))
red@( x3, y )
green@( x3, y )
blue@( x3, y )
0.812000
Dream vertical
1
15
2005.08.21 13:55:32
2005.08.21 14:06:15
Animated effect. Press F5 to watch animation.
sinwdt=width/17;
sinhgt=height/15;
offset=frame*width/70;
rmax=int(height*0.05);
tmp=if(progress<0.5,(progress*2),(1-((progress-0.5)*2)))
y2=sin( (x+offset)*pi/sinwdt)*sinhgt;y2=y2*tmp;
rand=if(y<=rmax,y,if(y>=(height-rmax),height-y,rmax));
r=rand/rmax;y3=(y+(y2*r));y3=if(y3<0,0,if(y3>=height,maxy,y3))
red@( x, y3 )
green@( x, y3 )
blue@( x, y3 )
0.812000
Blur vignete
1
14
2005.08.21 14:10:17
2005.08.21 14:23:36
centerx=width/2;centery=height/2;radius=width*0.45;bs=width*0.3;maxdist=distance@( centerx, centery, 0, 0 )
dist=distance( centerx, centery );df=dist/maxdist
red+((blurred(bs)-red)*df)
green+((blurgreen(bs)-green)*df)
blue+((blurblue(bs)-blue)*df)
0.815000
ColorSmooth red
1
20
2005.08.26 14:30:55
2006.02.27 21:22:32
cred=255;cgreen=0;cblue=0;
intense=0.5
fact=(y/maxy)*intense
red+((cred-red)*fact)
green+((cgreen-green)*fact)
blue+((cblue-blue)*fact)
0.799000
ColorSmooth orange
1
23
2005.08.26 21:32:22
2006.02.27 21:22:21
cred=255;cgreen=160;cblue=0;
intense=0.6
fact=(y/maxy)*intense
red+((cred-red)*fact)
green+((cgreen-green)*fact)
blue+((cblue-blue)*fact)
0.799000
Pixelation Circle fix
3
27
2005.09.10 09:10:34
2005.09.21 00:06:59
radval=0.25; xval=0.5; yval=0.33; size=0.025;
val=width*size; radius=height*radval; centrex=width*xval; centrey=height*yval
myy=int(y/val)*val;
myx=int(x/val)*val; dist=distance(centrex,centrey);
if(dist<=radius,red@(myx,myy),red)
if(dist<=radius,green@(myx,myy),green)
if(dist<=radius,blue@(myx,myy),blue)
0.812000
Kevin Lennox
klennox@tpg.com.au
Pixelation Circle move
3
24
2005.09.21 00:07:03
2005.09.21 00:07:58
startx=0.9;starty=0.1;endx=0.1;endy=0.9;radval=0.25;
xval=startx+((endx-startx*progress)); yval=starty+((endy-starty*progress)); size=0.025;
val=width*size; radius=height*radval; centrex=width*xval; centrey=height*yval
myy=int(y/val)*val;
myx=int(x/val)*val; dist=distance(centrex,centrey);
if(dist<=radius,red@(myx,myy),red)
if(dist<=radius,green@(myx,myy),green)
if(dist<=radius,blue@(myx,myy),blue)
0.812000
http://www.burgers-transition-site.de/downloads/fxbench/collection.xml
CSI Miami left to right
1
26
2005.09.25 11:56:54
2005.09.25 12:24:37
barwidth=0.25;bs=width*0.02;cdf=2;
barpix=width*barwidth;barway=width+barpix;barstart=int((0-barpix)+(barway*progress));barend=int(barstart+barpix)
inbar=((x>=barstart) && (x<=barend));
barfact=if( x==barstart,1.35, if( x==barend, 0.9, if( inbar, 1.1, 1 ) ) );
grey=(red+green+blue)/3
if( inbar, (grey+((red-grey)*cdf))*barfact, blurred( bs ) )
if( inbar, (grey+((green-grey)*cdf))*barfact, blurgreen( bs ) )
if( inbar, (grey+((blue-grey)*cdf))*barfact, blurblue( bs ) )
0.815000
CSI Miami right to left
1
24
2005.09.25 12:20:29
2005.09.25 12:23:42
barwidth=0.25;bs=width*0.02;cdf=2;
barpix=width*barwidth;barway=width+barpix;barstart=int((0-barpix)+(barway*(1-progress)));barend=int(barstart+barpix)
inbar=((x>=barstart) && (x<=barend));
barfact=if( x==barstart,1.35, if( x==barend, 0.9, if( inbar, 1.1, 1 ) ) );
grey=(red+green+blue)/3
if( inbar, (grey+((red-grey)*cdf))*barfact, blurred( bs ) )
if( inbar, (grey+((green-grey)*cdf))*barfact, blurgreen( bs ) )
if( inbar, (grey+((blue-grey)*cdf))*barfact, blurblue( bs ) )
0.815000
CSI Miami top to bottom
1
24
2005.09.25 12:24:37
2005.09.25 12:28:11
barheight=0.25;bs=width*0.02;cdf=2;
barpix=height*barheight;barway=height+barpix;barstart=int((0-barpix)+(barway*(1-progress)));barend=int(barstart+barpix)
inbar=((y>=barstart) && (y<=barend));
barfact=if( y==barstart,0.9, if( y==barend, 1.35, if( inbar, 1.1, 1 ) ) )
grey=(red+green+blue)/3
if( inbar, (grey+((red-grey)*cdf))*barfact, blurred( bs ) )
if( inbar, (grey+((green-grey)*cdf))*barfact, blurgreen( bs ) )
if( inbar, (grey+((blue-grey)*cdf))*barfact, blurblue( bs ) )
0.815000
CSI Miami bottom to top
1
32
2005.09.25 12:28:11
2005.09.25 12:29:06
barheight=0.25;bs=width*0.02;cdf=2;
barpix=height*barheight;barway=height+barpix;barstart=int((0-barpix)+(barway*progress));barend=int(barstart+barpix)
inbar=((y>=barstart) && (y<=barend));
barfact=if( y==barstart,0.9, if( y==barend, 1.35, if( inbar, 1.1, 1 ) ) )
grey=(red+green+blue)/3
if( inbar, (grey+((red-grey)*cdf))*barfact, blurred( bs ) )
if( inbar, (grey+((green-grey)*cdf))*barfact, blurgreen( bs ) )
if( inbar, (grey+((blue-grey)*cdf))*barfact, blurblue( bs ) )
0.815000
Edge pink
1
12
2005.10.01 12:19:12
2007.01.25 19:46:24
255*edge( 2 )
green
200*edge(4)
0.815000
Edge blue
1
12
2005.10.01 12:25:05
2007.01.25 19:46:19
red
220*edge( 1 )
255*edge(4)
0.815000
Edge orange
1
22
2005.10.01 12:27:34
2007.01.25 19:46:22
255*edge(4)
220*edge( 1 )
blue
0.815000
Bar white left to right
1
37
2006.01.15 08:11:44
2006.01.15 08:29:53
dur=0.2;dmax=width
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.803000
Bar white right to left
1
36
2006.01.15 08:28:41
2006.01.15 08:29:33
dur=0.2;dmax=width
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.803000
Bar white top to bottom
1
46
2006.01.15 08:30:04
2006.01.15 10:30:57
dur=0.2;dmax=height
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.803000
Bar white bottom to top
1
27
2006.01.15 08:31:50
2006.01.15 10:31:33
dur=0.2;dmax=height
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.803000
Bar white center out
1
28
2006.01.15 08:33:35
2006.01.15 08:35:57
dur=0.2;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.811000
Bar white center in
1
19
2006.01.15 08:36:06
2006.01.15 08:36:55
dur=0.2;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.811000
Bar white vertical out
1
23
2006.01.15 08:39:02
2006.01.15 10:32:44
dur=0.3;dmax=height/2
ddist=abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.811000
Bar white vertical in
1
22
2006.01.15 08:40:43
2006.01.15 10:32:18
dur=0.3;dmax=height/2
ddist=dmax-abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.811000
Bar white horizontal out
1
24
2006.01.15 08:42:03
2006.01.15 08:42:47
dur=0.3;dmax=width/2
ddist=abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.811000
Bar white horizontal in
1
23
2006.01.15 08:43:10
2006.01.15 08:43:54
dur=0.3;dmax=width/2
ddist=dmax-abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(red*tmp)
green+(green*tmp)
blue+(blue*tmp)
0.811000
Bar negative all left to right
1
31
2006.01.15 08:45:01
2006.02.05 18:19:52
dur=0.3;dmax=width
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative all right to left
1
31
2006.01.15 09:02:20
2006.02.05 18:19:58
dur=0.3;dmax=width
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative all bottom to top
1
33
2006.01.15 09:03:37
2006.02.05 18:19:16
dur=0.3;dmax=height
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative all top to bottom
1
34
2006.01.15 09:04:58
2006.02.05 18:20:05
dur=0.3;dmax=height
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative all center out
1
28
2006.01.15 09:06:01
2006.02.05 18:19:30
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative all center in
1
28
2006.01.15 09:07:55
2006.02.05 18:19:23
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative all horizontal out
1
31
2006.01.15 09:10:06
2006.02.05 18:19:45
dur=0.4;dmax=width/2
ddist=abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative all horizontal in
1
30
2006.01.15 09:12:15
2006.02.05 18:19:37
dur=0.4;dmax=width/2
ddist=dmax-abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative all vertical out
1
30
2006.01.15 09:13:04
2006.02.05 18:20:18
dur=0.4;dmax=height/2
ddist=abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative all vertical in
1
29
2006.01.15 09:13:56
2006.02.05 18:20:11
dur=0.4;dmax=height/2
ddist=dmax-abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green+(((maxcol-green)-green)*tmp)
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar dither bottom to top
1
33
2006.01.15 10:26:26
2006.05.18 08:02:06
dur=0.35;dmax=height;seed(true)
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither top to bottom
1
25
2006.01.15 10:39:00
2006.01.15 10:39:42
dur=0.35;dmax=height;seed(true)
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither vertical in
1
25
2006.01.15 10:39:42
2006.01.15 11:43:55
dur=0.45;dmax=height/2;seed(true)
ddist=dmax-(abs(y-dmax));
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither vertical out
1
26
2006.01.15 10:42:09
2006.01.15 10:42:41
dur=0.45;dmax=height/2;seed(true)
ddist=abs(y-dmax);
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither left to right
1
25
2006.01.15 10:42:52
2006.01.15 10:43:56
dur=0.35;dmax=width;seed(true)
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither right to left
1
25
2006.01.15 10:43:56
2006.01.15 10:45:07
dur=0.35;dmax=width;seed(true)
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither horizontal in
1
27
2006.01.15 10:45:14
2006.01.15 10:46:55
dur=0.45;dmax=width/2;seed(true)
ddist=dmax-(abs(x-dmax));
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither horizontal out
1
26
2006.01.15 10:46:55
2006.01.15 10:47:42
dur=0.45;dmax=width/2;seed(true)
ddist=abs(x-dmax);
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither center out
1
26
2006.01.15 10:47:42
2006.01.15 10:50:19
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery );seed(true)
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar dither center in
1
41
2006.01.15 10:50:19
2006.01.15 10:51:11
dur=0.45;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery );seed(true)
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
if(tmp<=0,red,red+(((if( rand( 0, 255 )>=red, 0, maxcol ))-red)*tmp))
if(tmp<=0,green,green+(((if( rand( 0, 255 )>=green, 0, maxcol ))-green)*tmp))
if(tmp<=0,blue,blue+(((if( rand( 0, 255 )>=blue, 0, maxcol ))-blue)*tmp))
0.821000
Bar negative red left to right
1
40
2006.01.15 10:51:17
2006.02.05 18:18:37
dur=0.3;dmax=width
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.803000
Binoculars
1
24
2006.01.15 10:54:31
2007.01.09 20:14:43
rad=0.4;bord=0.08;c1x=0.30;c1y=0.5;c2x=0.70;c2y=0.5;
distmax=width*rad;distmin=width*(rad-bord);p1x=width*c1x;p2x=width*c2x;p1y=height*c1y;p2y=height*c2y;pbord=width*bord
d1=distance( p1x, p1y );d2=distance( p2x, p2y );dst=min( d1, d2 );deg=if(dst>=distmax, 0, if( dst<=distmin,1,1-((dst-distmin)/pbord)))
red*deg
green*deg
blue*deg
0.804000
Frame blured
1
20
2006.01.15 11:15:39
2006.01.15 11:39:20
border=0.15;blr=0.08;
pblr=width*blr;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, blurred( width*blr ), red@( myx, myy ) )
if( isbord, blurgreen( width*blr ), green@( myx, myy ) )
if( isbord, blurblue( width*blr ), blue@( myx, myy ) )
0.821000
Frame mosaic
1
14
2006.02.05 13:41:35
2006.02.05 13:47:11
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2;
val=width*0.035
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1));
m2y=int(y/val)*val
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1));
m2x=int(x/val)*val
if( isbord, red@(m2x, m2y), red@( myx, myy ) )
if( isbord, green@(m2x, m2y), green@( myx, myy ) )
if( isbord, blue@(m2x, m2y), blue@( myx, myy ) )
0.821000
Bar negative red vertical out
1
33
2006.02.05 18:20:34
2006.02.05 18:21:15
dur=0.4;dmax=height/2
ddist=abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.811000
Bar negative red vertical in
1
28
2006.02.05 18:21:43
2006.02.05 18:22:10
dur=0.4;dmax=height/2
ddist=dmax-abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.811000
Bar negative red bottom to top
1
30
2006.02.05 18:22:33
2006.02.05 18:23:04
dur=0.3;dmax=height
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.803000
Bar negative red center in
1
26
2006.02.05 18:23:29
2006.02.05 18:23:55
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.811000
Bar negative red center out
1
36
2006.02.05 18:24:25
2006.02.05 18:25:15
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.811000
Bar negative red horizontal in
1
31
2006.02.05 18:25:24
2006.02.05 18:26:09
dur=0.4;dmax=width/2
ddist=dmax-abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.811000
Bar negative red horizontal out
1
32
2006.02.05 18:26:16
2006.02.05 18:26:54
dur=0.4;dmax=width/2
ddist=abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.811000
Bar negative red right to left
1
31
2006.02.05 18:26:58
2006.02.05 18:27:31
dur=0.3;dmax=width
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.803000
Bar negative red top to bottom
1
46
2006.02.05 18:27:47
2006.02.05 18:28:40
dur=0.3;dmax=height
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2))
red+(((maxcol-red)-red)*tmp)
green
blue
0.803000
Bar negative pure red vertical out
1
44
2006.02.05 18:29:10
2006.02.05 18:35:19
dur=0.4;dmax=height/2
ddist=abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.811000
Bar negative pure green vertical out
1
10
2006.02.05 18:33:48
2006.02.05 18:37:27
dur=0.4;dmax=height/2
ddist=abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.811000
Bar negative pure blue vertical out
1
2
2006.02.05 18:36:02
2006.02.05 18:36:39
dur=0.4;dmax=height/2
ddist=abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Frame negative all
1
18
2006.02.05 18:38:42
2006.02.05 18:40:01
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, (maxcol-red), red@( myx, myy ) )
if( isbord, (maxcol-green), green@( myx, myy ) )
if( isbord, (maxcol-blue), blue@( myx, myy ) )
0.821000
Frame negative blue
1
22
2006.02.05 18:40:13
2006.02.05 18:41:07
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, 0, red@( myx, myy ) )
if( isbord, 0, green@( myx, myy ) )
if( isbord, (maxcol-blue), blue@( myx, myy ) )
0.821000
Frame negative red
1
19
2006.02.05 18:41:07
2006.02.05 18:41:43
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, (maxcol-red), red@( myx, myy ) )
if( isbord, 0, green@( myx, myy ) )
if( isbord, 0, blue@( myx, myy ) )
0.821000
Frame negative green
1
21
2006.02.05 18:41:43
2006.02.05 18:42:28
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, 0, red@( myx, myy ) )
if( isbord, (maxcol-green), green@( myx, myy ) )
if( isbord, 0, blue@( myx, myy ) )
0.821000
Bar negative pure red bottom to top
1
36
2006.02.11 12:22:01
2006.02.11 12:23:01
dur=0.3;dmax=height
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.803000
Bar negative pure red center in
1
32
2006.02.11 12:23:26
2006.02.11 12:24:38
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.811000
Bar negative pure red center out
1
33
2006.02.11 12:24:44
2006.02.11 12:25:38
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.811000
Bar negative pure red horizontal in
1
36
2006.02.11 12:26:04
2006.02.11 12:28:05
dur=0.4;dmax=width/2
ddist=dmax-abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.811000
Bar negative pure red horizontal out
1
37
2006.02.11 12:28:10
2006.02.11 12:29:11
dur=0.4;dmax=width/2
ddist=abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.811000
Bar negative pure red left to right
1
36
2006.02.11 12:29:15
2006.02.11 12:30:12
dur=0.3;dmax=width
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.803000
Bar negative pure red right to left
1
36
2006.02.11 12:30:16
2006.02.11 12:31:12
dur=0.3;dmax=width
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.803000
Bar negative pure red top to bottom
1
36
2006.02.11 12:31:16
2006.02.11 12:32:02
dur=0.3;dmax=height
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.803000
Bar negative pure red vertical in
1
34
2006.02.11 12:32:09
2006.02.11 12:32:56
dur=0.4;dmax=height/2
ddist=dmax-abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red+(((maxcol-red)-red)*tmp)
green*itmp
blue*itmp
0.811000
Bar negative pure blue bottom to top
1
37
2006.02.11 12:34:20
2006.02.11 12:35:14
dur=0.3;dmax=height
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative pure blue center in
1
33
2006.02.11 12:35:20
2006.02.11 12:36:18
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative pure blue center out
1
34
2006.02.11 12:36:25
2006.02.11 12:37:13
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative pure blue horz in
1
51
2006.02.11 12:37:17
2006.02.11 12:39:13
dur=0.4;dmax=width/2
ddist=dmax-abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative pure blue horz out
1
47
2006.02.11 12:38:27
2006.02.11 12:39:56
dur=0.4;dmax=width/2
ddist=abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Bar negative pure blue left to right
1
47
2006.02.11 12:40:01
2006.02.11 12:41:31
dur=0.3;dmax=width
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative pure blue right to left
1
37
2006.02.11 12:41:37
2006.02.11 12:42:24
dur=0.3;dmax=width
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative pure blue top to bottm
1
36
2006.02.11 12:43:10
2006.02.11 12:44:00
dur=0.3;dmax=height
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.803000
Bar negative pure blue vertical in
1
35
2006.02.11 12:44:04
2006.02.11 12:44:42
dur=0.4;dmax=height/2
ddist=dmax-abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green*itmp
blue+(((maxcol-blue)-blue)*tmp)
0.811000
Lines disapp bottom to top
1
50
2006.02.11 15:37:44
2006.02.12 00:40:24
border=height*progress
isnorm=if( y<=border, true, false )
if( isnorm, red, red@( x, border ) )
if( isnorm, green, green@( x, border ) )
if( isnorm, blue, blue@( x, border ) )
0.821000
Lines appear top to bottom
1
47
2006.02.11 15:40:59
2006.02.11 15:43:22
border=height*(1-progress)
isnorm=if( y<=border, true, false )
if( isnorm, red, red@( x, border ) )
if( isnorm, green, green@( x, border ) )
if( isnorm, blue, blue@( x, border ) )
0.821000
Lines appear bottom to top
1
31
2006.02.11 16:20:15
2006.02.11 16:21:32
border=maxy*progress
isnorm=if( y>border, true, false )
if( isnorm, red, red@( x, border ) )
if( isnorm, green, green@( x, border ) )
if( isnorm, blue, blue@( x, border ) )
0.821000
Lines disapp top to bottom
1
33
2006.02.11 16:23:04
2006.02.12 00:40:44
border=maxy*(1-progress)
isnorm=if( y>border, true, false )
if( isnorm, red, red@( x, border ) )
if( isnorm, green, green@( x, border ) )
if( isnorm, blue, blue@( x, border ) )
0.821000
Lines disapp right to left
1
31
2006.02.11 16:25:57
2006.02.11 16:27:05
border=maxx*(1-progress)
isnorm=if( x>border, true, false )
if( isnorm, red, red@( border, y ) )
if( isnorm, green, green@( border, y ) )
if( isnorm, blue, blue@( border, y ) )
0.821000
Lines appear left to right
1
29
2006.02.11 16:27:14
2006.02.11 16:27:36
border=maxx*progress
isnorm=if( x>border, true, false )
if( isnorm, red, red@( border, y ) )
if( isnorm, green, green@( border, y ) )
if( isnorm, blue, blue@( border, y ) )
0.821000
Lines disapp left to right
1
29
2006.02.11 16:27:51
2006.02.11 16:28:28
border=maxx*progress
isnorm=if( x<=border, true, false )
if( isnorm, red, red@( border, y ) )
if( isnorm, green, green@( border, y ) )
if( isnorm, blue, blue@( border, y ) )
0.821000
Lines appear right to left
1
31
2006.02.11 16:28:43
2006.02.11 16:29:07
border=maxx*(1-progress)
isnorm=if( x<=border, true, false )
if( isnorm, red, red@( border, y ) )
if( isnorm, green, green@( border, y ) )
if( isnorm, blue, blue@( border, y ) )
0.821000
Lines disapp colormix
1
21
2006.02.12 00:42:17
2006.02.12 00:48:24
redborder=maxy*(1-progress);
greenborder=maxx*progress;blueborder=maxx*(1-progress)
isrednorm=if( y>redborder, true, false )
isgreennorm=if( x<=greenborder, true, false );
isbluenorm=if( x>blueborder, true, false)
if( isrednorm, red, red@( x, redborder ) )
if( isgreennorm, green, green@( greenborder, y ) )
if( isbluenorm, blue, blue@( blueborder, y ) )
0.821000
Lines disapp colmix top to bottom
1
34
2006.02.12 12:34:54
2006.02.12 12:44:52
redborder=maxy*(1-progress);greenborder=maxy*(1-if( progress<0.3, 0, (progress-0.3)/0.7 ));blueborder=maxy*(1-if( progress<0.6, 0, (progress-0.6)/0.4 ))
isrednorm=if( y>redborder, true, false );isgreennorm=if( y>greenborder, true, false );isbluenorm=if( y>blueborder, true, false )
if( isrednorm, red, red@( x, redborder ) )
if( isgreennorm, green, green@( x, greenborder ) )
if( isbluenorm, blue, blue@( x, blueborder ) )
0.821000
Wouldn't it be good (bw)
1
34
2006.02.18 17:29:31
2006.02.18 22:50:33
Does anyone remember the music video of Nick Kershaw?
lvl=200;bs=7;seed( false )
grey=(red+green+blue)/3;brd=grey-lvl;brd=if( brd<0, 0, if( brd>bs, 1, brd/bs ) );myrnd=rand( 0, 175 )+80
if(grey>=lvl,red+((myrnd-red)*brd),red)
if(grey>=lvl,green+((myrnd-green)*brd),green)
if(grey>=lvl,blue+((myrnd-blue)*brd),blue)
0.821000
Wouldn't it be good (col)
1
27
2006.02.18 22:50:40
2006.02.18 22:52:55
Does anyone remember the music video of Nick Kershaw?
lvl=200;bs=7;seed( false )
grey=(red+green+blue)/3;brd=grey-lvl;brd=if( brd<0, 0, if( brd>bs, 1, brd/bs ) )
if(grey>=lvl,red+(((rand( 0, 175 )+80)-red)*brd),red)
if(grey>=lvl,green+(((rand( 0, 175 )+80)-green)*brd),green)
if(grey>=lvl,blue+(((rand( 0, 175 )+80)-blue)*brd),blue)
0.821000
Frame negative purple
1
30
2006.02.24 09:41:34
2006.02.24 09:44:19
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, (maxcol-red), red@( myx, myy ) )
if( isbord, 0, green@( myx, myy ) )
if( isbord, (maxcol-blue), blue@( myx, myy ) )
0.821000
Frame negative turquoise
1
43
2006.02.24 09:42:19
2006.02.24 09:45:52
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, 0, red@( myx, myy ) )
if( isbord, (maxcol-green), green@( myx, myy ) )
if( isbord, (maxcol-blue), blue@( myx, myy ) )
0.821000
Frame negative yellow
1
23
2006.02.24 09:46:33
2006.02.24 09:47:17
border=0.15;
xbord1=width*border;xbord2=width-xbord1;
ybord1=height*border;ybord2=height-ybord1;
centerx=width/2;centery=height/2
isbordy=if( y<=ybord1, true, if( y>=ybord2, true, false ) );
myy=maxy*((y-ybord1)/(ybord2-ybord1))
isbord=if( isbordy, true, if( x<=xbord1, true, if( x>=xbord2, true, false ) ) );
myx=maxx*((x-xbord1)/(xbord2-xbord1))
if( isbord, (maxcol-red), red@( myx, myy ) )
if( isbord, (maxcol-green), green@( myx, myy ) )
if( isbord, 0, blue@( myx, myy ) )
0.821000
Lines disapp clock
1
20
2006.02.24 21:21:59
2006.02.24 22:05:02
centerx=width/2;centery=height/2;angnow=360*(1-progress)
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
myx=maxx-rotatex@( centerx, (centery-distance( centerx, centery )), centerx, centery, angnow );myy=maxy-rotatey@( centerx, (centery-distance( centerx, centery )), centerx, centery, angnow)
if(angle>=angnow,red,red@( myx, myy ))
if(angle>=angnow,green,green@( myx, myy ))
if(angle>=angnow,blue,blue@( myx, myy ))
0.818000
Fisheye 1
1
10
2006.02.24 21:49:48
2006.05.18 08:02:46
centerx=width/2;centery=height/2
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
myx=rotatex@( centerx, (distance( centerx, centery )), centerx, centery, angle );myy=rotatey@( centerx, (distance( centerx, centery )), centerx, centery, angle )
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.818000
ColorShift rotation
1
22
2006.02.27 21:04:10
2006.02.27 21:18:08
degred=270;deggreen=0;degblue=90;
degred=degred+((360-degred)*progress);degblue=90*(1-progress);
centerx=width/2;centery=height/2
red@( rotatex( centerx, centery, degred ), rotatey( centerx, centery, degred ) )
green@( rotatex( centerx, centery, deggreen ), rotatey( centerx, centery, deggreen ) )
blue@( rotatex( centerx, centery, degblue ), rotatey( centerx, centery, degblue ) )
0.802000
ColorShift slide
1
17
2006.02.27 21:18:15
2006.02.27 21:22:17
myprog=(1-progress)
red@( x-(width*myprog), y )
green@( x, y-(height*myprog) )
blue@( x+(width*myprog), y )
0.799000
Edge any color
1
24
2006.03.09 17:36:38
2006.03.09 17:51:38
This version can use any colors for background and edges. To set the color for the background, adjust the values for backred, backgreen and backblue within the 'On each Frame' section. To set the color for the edges, adjust the values for the variables forered, foregreen and foreblue.
backred=200;backgreen=200;backblue=255;
forered=220;foregreen=0;foreblue=0;
diffred=forered-backred;diffgreen=foregreen-backgreen;diffblue=foreblue-backblue
ef=(1-edge(3))
backred+(diffred*ef)
backgreen+(diffgreen*ef)
backblue+(diffblue*ef)
0.815000
ColorClock white appear clockwise
1
54
2006.03.28 06:43:36
2006.03.28 06:48:32
centerx=width/2;centery=height/2;grey=255;
angnow=360*(1-progress);
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*progress;
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress>0)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress>0)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress>0)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock white appear counterclock
1
46
2006.03.28 06:47:32
2006.03.28 06:49:08
centerx=width/2;centery=height/2;grey=255;
angnow=360*progress;
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*progress;
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress>0)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress>0)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress>0)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock white disapp clockwise
1
34
2006.03.28 06:49:16
2006.03.28 06:50:01
centerx=width/2;centery=height/2;grey=255;
angnow=360*(1-progress);
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*(1-progress);
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress<1)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress<1)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress<1)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock white disapp counterclock
1
51
2006.03.28 06:50:08
2006.03.28 06:50:51
centerx=width/2;centery=height/2;grey=255;
angnow=360*progress;
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*(1-progress);
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress<1)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress<1)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress<1)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock grey appear clockwise
1
35
2006.03.28 06:50:58
2006.03.28 06:51:37
centerx=width/2;centery=height/2;grey=128;
angnow=360*(1-progress);
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*progress;
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress>0)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress>0)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress>0)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock grey appear counterclock
1
36
2006.03.28 06:51:44
2006.03.28 06:52:31
centerx=width/2;centery=height/2;grey=128;
angnow=360*progress;
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*progress;
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress>0)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress>0)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress>0)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock grey disapp clockwise
1
45
2006.03.28 06:52:36
2006.03.28 06:53:15
centerx=width/2;centery=height/2;grey=128;
angnow=360*(1-progress);
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*(1-progress);
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress<1)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress<1)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress<1)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
ColorClock grey disapp counterclock
1
36
2006.03.28 06:53:20
2006.03.28 06:54:02
centerx=width/2;centery=height/2;grey=128;
angnow=360*progress;
rang=(0+angnow)%360;
gang=(120+angnow)%360;
bang=(240+angnow)%360;
hw=180*(1-progress);
rs=(360+(rang-hw))%360;
re=(360+(rang+hw))%360;
gs=(360+(gang-hw))%360;
ge=(360+(gang+hw))%360;
bs=(360+(bang-hw))%360;
be=(360+(bang+hw))%360
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270)
if(rs>=re,if( (((angle>=rs)||(angle<=re))&&(progress<1)), red, grey ),if((angle>=rs)&&(angle<=re),red,grey))
if(gs>=ge,if( (((angle>=gs)||(angle<=ge))&&(progress<1)), green, grey ),if((angle>=gs)&&(angle<=ge),green,grey))
if(bs>=be,if( (((angle>=bs)||(angle<=be))&&(progress<1)), blue, grey ),if((angle>=bs)&&(angle<=be),blue,grey))
0.815000
Bar negative pure green vertical in
1
38
2006.03.28 06:55:01
2006.03.28 06:57:00
dur=0.4;dmax=height/2
ddist=dmax-abs( dmax-y );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.811000
Bar negative pure green top to bottm
1
37
2006.03.28 06:57:09
2006.03.28 06:58:33
dur=0.3;dmax=height
ddist=maxy-y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.803000
Bar negative pure green right to left
1
38
2006.03.28 06:58:37
2006.03.28 06:59:44
dur=0.3;dmax=width
ddist=maxx-x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.803000
Bar negative pure green left to right
1
39
2006.03.28 07:00:00
2006.03.28 07:01:21
dur=0.3;dmax=width
ddist=x;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.803000
Bar negative pure green horz out
1
33
2006.03.28 07:01:30
2006.03.28 07:02:51
dur=0.4;dmax=width/2
ddist=abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.811000
Bar negative pure green horz in
1
32
2006.03.28 07:02:56
2006.03.28 07:03:47
dur=0.4;dmax=width/2
ddist=dmax-abs( dmax-x );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.811000
Bar negative pure green center out
1
35
2006.03.28 07:03:53
2006.03.28 07:05:07
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.811000
Bar negative pure green center in
1
34
2006.03.28 07:05:19
2006.03.28 07:06:18
dur=0.4;centerx=width/2;centery=height/2;dmax=distance@( 0, 0, centerx, centery )
ddist=dmax-distance( centerx, centery );
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.811000
Bar negative pure green botom to top
1
37
2006.03.28 07:06:24
2006.03.28 07:07:15
dur=0.3;dmax=height
ddist=y;
start=(1-dur)/dmax*ddist;end=start+dur;tmp=if(progress<=start,0,if(progress>=end,1,(progress-start)/dur));tmp=if(tmp<0.5, tmp*2,1-((tmp-0.5)*2));itmp=(1-tmp)
red*itmp
green+(((maxcol-green)-green)*tmp)
blue*itmp
0.803000
Splitt down
1
12
2006.03.28 22:47:58
2006.03.28 22:48:29
myprog=1-progress
hy=maxy*myprog;hy=max( hy, 2 );myy=(y*maxy/hy)%maxy
hx=maxx*myprog;hx=max( hx, 2 );myx=(x*maxx/hx)%maxx
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.804000
Splitt up
1
10
2006.03.28 22:48:29
2006.03.28 22:49:02
myprog=progress
hy=maxy*myprog;hy=max( hy, 2 );myy=(y*maxy/hy)%maxy
hx=maxx*myprog;hx=max( hx, 2 );myx=(x*maxx/hx)%maxx
red@(myx,myy)
green@(myx,myy)
blue@(myx,myy)
0.804000
Coin edge grey
1
17
2006.05.12 05:34:29
2007.03.23 15:48:46
ec=2;lightx=1;lighty=1;lightz=1;
lightsqr=sqrt( (lightx*lightx)+(lighty*lighty)+(lightz*lightz) )
h1=edge( ec );
h2=edge@( x+1, y, ec );
h3=edge@( x, y+1, ec );
v2x=1;v2y=0;v2z=h2-h1;
v3x=0;v3y=1;v3z=h3-h1;
normx=(v2y*v3z)-(v2z*v3y);
normy=(v2z*v3x)-(v2x*v3z);
normz=(v2x*v3y)-(v2y*v3x);
cth=((normx*lightx)+(normy*lighty)+(normz*lightz))/(sqrt( (normx*normx)+(normy*normy)+(normz*normz))*lightsqr );
grey=maxcol*cth;
grey
grey
grey
0.815000
Coin emboss grey
1
21
2006.05.13 23:17:09
2007.03.23 15:49:17
ec=2;deep=1;
lightx=1;lighty=1;lightz=1;div=deep*maxcol;
lightsqr=sqrt( (lightx*lightx)+(lighty*lighty)+(lightz*lightz) )
h1=(red+green+blue)/div;
h2=(red@( x+1, y )+green@( x+1,y )+blue@( x+1, y ))/div;
h3=(red@( x, y+1 )+green@( x,y+1 )+blue@( x, y+1 ))/div;
v2z=h2-h1;v3z=h3-h1;
cth=((-v2z*lightx)+(-v3z*lighty)+lightz)/(sqrt( (v2z*v2z)+(v3z*v3z)+1)*lightsqr );
grey=maxcol*cth;
grey
grey
grey
0.799000
Coin emboss any color
1
25
2006.05.15 21:17:22
2007.03.23 15:49:31
Basically like Coin2, but with customizable color. The color can be setup at the event 'On each Frame' by setting values to the variables 'colred', 'colgreen' and 'colblue'
colred=0;colgreen=255;colblue=255;deep=1;
ec=2;lightx=1;lighty=1;lightz=1;div=deep*maxcol;
lightsqr=sqrt( (lightx*lightx)+(lighty*lighty)+(lightz*lightz) )
h1=(red+green+blue)/div;
h2=(red@( x+1, y )+green@( x+1,y )+blue@( x+1, y ))/div;
h3=(red@( x, y+1 )+green@( x,y+1 )+blue@( x, y+1 ))/div;
v2z=h2-h1;v3z=h3-h1;
cth=((-v2z*lightx)+(-v3z*lighty)+lightz)/(sqrt( (v2z*v2z)+(v3z*v3z)+1)*lightsqr )
colred*cth
colgreen*cth
colblue*cth
0.799000
Kaleidoscope 1
1
16
2006.05.15 21:28:34
2006.05.16 09:42:12
Use 'angstart' to define the start-angle of the source-segment. Set 'parts' to define the number of repeated segments. If variable 'invert' is true, every second segments is mirrored.
angstart=250;
parts=10;
invert=true;
centerx=width/2;
centery=height/2;
angwidth=360/parts
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
angdif=(if(angle<angstart,angle+360,angle)-angstart);
angoff=angdif%angwidth;
alt=int( angdif/angwidth )%2;
angcur=angstart+if( invert&&(alt==0), angwidth-angoff, angoff )-angle
red@( rotatex( centerx, centery, angcur ), rotatey( centerx, centery, angcur) )
green@( rotatex( centerx, centery, angcur ), rotatey( centerx, centery, angcur) )
blue@( rotatex( centerx, centery, angcur ), rotatey( centerx, centery, angcur) )
0.821000
Kaleidoscope 2
1
18
2006.05.16 09:41:57
2006.05.18 07:28:18
angstart=270*progress;
parts=1+(40*(1-progress));
invert=true;
centerx=width/2;
centery=height/2;
angwidth=360/parts
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
angdif=(if(angle<angstart,angle+360,angle)-angstart);
angoff=angdif%angwidth;
alt=int( angdif/angwidth )%2;
angcur=angstart+if( invert&&(alt==0), angwidth-angoff, angoff )-angle
red@( rotatex( centerx, centery, angcur ),maxy- rotatey( centerx, centery, angcur) )
green@( rotatex( centerx, centery, angcur ),maxy- rotatey( centerx, centery, angcur) )
blue@( rotatex( centerx, centery, angcur ),maxy- rotatey( centerx, centery, angcur) )
0.821000
Kaleidoscope 3
1
19
2006.05.16 09:48:15
2006.05.18 07:25:40
angstart=270+(90*progress);
parts=20;
invert=true;
centerx=width/2;
centery=height/2;
angwidth=360/parts
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
angdif=(if(angle<angstart,angle+360,angle)-angstart);
angoff=angdif%angwidth;
alt=int( angdif/angwidth )%2;
angcur=angstart+if( invert&&(alt==0), angwidth-angoff, angoff )-angle
red@( rotatex( centerx, centery, angcur ),maxy- rotatey( centerx, centery, angcur) )
green@( rotatex( centerx, centery, angcur ),maxy- rotatey( centerx, centery, angcur) )
blue@( rotatex( centerx, centery, angcur ),maxy- rotatey( centerx, centery, angcur) )
0.821000
Coin emobss dominant channel
1
42
2006.05.18 07:36:54
2007.03.23 15:49:56
ec=2;deep=1;
lightx=1;lighty=1;lightz=1;
div=maxcol/3*deep;
lightsqr=sqrt( (lightx*lightx)+(lighty*lighty)+(lightz*lightz) )
h1=red/div;
h2=red@( x+1, y )/div;
h3=red@( x, y+1 )/div;
v2z=h2-h1;v3z=h3-h1;
cthred=((-v2z*lightx)+(-v3z*lighty)+lightz)/(sqrt( (v2z*v2z)+(v3z*v3z)+1)*lightsqr );
h1=green/div;
h2=green@( x+1, y )/div;
h3=green@( x, y+1 )/div;
v2z=h2-h1;v3z=h3-h1;
cthgreen=((-v2z*lightx)+(-v3z*lighty)+lightz)/(sqrt( (v2z*v2z)+(v3z*v3z)+1)*lightsqr );
h1=blue/div;
h2=blue@( x+1, y )/div;
h3=blue@( x, y+1 )/div;
v2z=h2-h1;v3z=h3-h1;
cthblue=((-v2z*lightx)+(-v3z*lighty)+lightz)/(sqrt( (v2z*v2z)+(v3z*v3z)+1)*lightsqr )
if((red>green)&&(red>blue),maxcol*cthred,0)
if((green>red)&&(green>blue),maxcol*cthgreen,0)
if((blue>red)&&(blue>green),maxcol*cthblue,0)
0.803000
Fisheye 2
1
10
2006.05.18 08:03:02
2006.05.18 08:04:16
Basically like Fisheye 1, but performs a 360 degree rotation
centerx=width/2;centery=height/2;
offset=360*progress
deltay=centery-y
deltax=centerx-x;
angle=(atan( deltay/deltax )*180/pi)+if(deltax>=0,90,270);
angle=angle+offset;
myx=rotatex@( centerx, (distance( centerx, centery )), centerx, centery, angle );myy=rotatey@( centerx, (distance( centerx, centery )), centerx, centery, angle )
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.818000
Filmlook 1
1
19
2006.08.08 13:26:57
2006.08.11 13:29:36
grn=2;blr=2;bright=1.1;
vigmax=0.9;vigrad=0.25;
colmax=1.8;colmin=0.5;
coldelta=colmax-colmin;coldelta=if( coldelta==0, 0.0001, coldelta );
gamdarkrng=20;gamdarkf=2.5;
gamlightrng=17;gamlightf=2.0;
gamdark=gamdarkrng*gamdarkf;
gamlight=gamlightrng*gamlightf;
gammidrng=255-(gamlightrng+gamdarkrng);
gammid=255-(gamlight+gamdark);
seed( false );
limdark=gamdarkrng;
limlight=255-gamlightrng;
limlinew=255-gamlight;
grnmin=0-(grn/2);grnmax=grn/2;
centerx=width/2;centery=height/2;maxdist=distance@( 0, 0, centerx, centery );vigdistmax=maxdist*vigrad;vigmaxneg=1-vigmax
myred=blurred( blr );
mygreen=blurgreen( blr );
myblue=blurblue( blr );
grey=(myred+mygreen+myblue)/3;
colfakt=((0-pow( (grey-128), 2 ) ) / ( 16384/coldelta) ) + colmax;
myred=grey+((myred-grey)*colfakt);mygreen=grey+((mygreen-grey)*colfakt);myblue=grey+((myblue-grey)*colfakt);
myred=if(grey<=limdark, (myred*limdark/gamdarkrng),if(grey<=limlight,((myred-gamdarkrng)*gammid/gammidrng)+gamdark, ((myred-limlight)*gamlight/gamlightrng)+limlinew ));
mygreen=if(grey<=limdark, (mygreen*limdark/gamdarkrng),if(grey<=limlight,((mygreen-gamdarkrng)*gammid/gammidrng)+gamdark, ((mygreen-limlight)*gamlight/gamlightrng)+limlinew ));
myblue=if(grey<=limdark, (myblue*limdark/gamdarkrng),if(grey<=limlight,((myblue-gamdarkrng)*gammid/gammidrng)+gamdark, ((myblue-limlight)*gamlight/gamlightrng)+limlinew ));
g=rand( grnmin, grnmax );
mydist=distance( centerx, centery );
vigdistcur=maxdist-mydist;
vigfakt=if( vigdistcur>=vigdistmax, 1, vigdistcur/vigdistmax );
vigfakt=vigmax+(vigmaxneg*vigfakt);
faktor=vigfakt*bright;
(myred*faktor)+g
(mygreen*faktor)+g
(myblue*faktor)+g
0.821000
Tech demo: Plotter
1
21
2006.08.10 13:59:30
2007.01.24 19:37:53
centerx=width/2;centery=height/2
myred=if( (x==centerx) || (y==centery), 255, 0);
mygreen=if( (x==centerx) || (y==centery), 255, 0 );
myblue=if( (x==centerx) || (y==centery),255,0);
myx=x-centerx;
myy=centery-(pow(myx,2)/(pow(centerx,2)/centery));
myred=if( y==(int(myy)+centery), 255, myred)
myred
mygreen
myblue
0.812000
Filmlook 2
1
16
2006.08.11 13:12:07
2006.08.11 13:39:38
grn=2;bright=1.1;
vigmax=0.75;vigrad=0.28;
colmax=1.05;colmin=0.5;
gamdarkrng=15;gamdarkf=3;
gamlightrng=15;gamlightf=3;
gamdark=gamdarkrng*gamdarkf;
gamlight=gamlightrng*gamlightf;
gammidrng=255-(gamlightrng+gamdarkrng);
gammid=255-(gamlight+gamdark);
seed( false );
coldelta=colmax-colmin;coldelta=if( coldelta==0, 0.0001, coldelta );
limdark=gamdarkrng;
limlight=255-gamlightrng;
limlinew=255-gamlight;
grnmin=0-(grn/2);grnmax=grn/2;
centerx=width/2;centery=height/2;maxdist=distance@( 0, 0, centerx, centery );vigdistmax=maxdist*vigrad;vigmaxneg=1-vigmax
myy=y+0.5
myx=x+0.5;
myred=red@( myx, myy );
mygreen=green@( myx, myy );
myblue=blue@( myx, myy );
grey=(myred+mygreen+myblue)/3;
colfakt=((0-pow( (grey-128), 2 ) ) / ( 16384/coldelta) ) + colmax;
myred=grey+((myred-grey)*colfakt);mygreen=grey+((mygreen-grey)*colfakt);myblue=grey+((myblue-grey)*colfakt);
myred=if(grey<=limdark, (myred*limdark/gamdarkrng),if(grey<=limlight,((myred-gamdarkrng)*gammid/gammidrng)+gamdark, ((myred-limlight)*gamlight/gamlightrng)+limlinew ));
mygreen=if(grey<=limdark, (mygreen*limdark/gamdarkrng),if(grey<=limlight,((mygreen-gamdarkrng)*gammid/gammidrng)+gamdark, ((mygreen-limlight)*gamlight/gamlightrng)+limlinew ));
myblue=if(grey<=limdark, (myblue*limdark/gamdarkrng),if(grey<=limlight,((myblue-gamdarkrng)*gammid/gammidrng)+gamdark, ((myblue-limlight)*gamlight/gamlightrng)+limlinew ));
g=rand( grnmin, grnmax );
mydist=distance( centerx, centery );
vigdistcur=maxdist-mydist;
vigfakt=if( vigdistcur>=vigdistmax, 1, vigdistcur/vigdistmax );
vigfakt=vigmax+(vigmaxneg*vigfakt);
faktor=vigfakt*bright;
(myred*faktor)+g
(mygreen*faktor)+g
(myblue*faktor)+g
0.821000
Filmlook compare 2
1
23
2006.08.11 13:39:21
2006.08.11 13:44:46
grn=2;bright=1.1;
vigmax=0.75;vigrad=0.28;
colmax=1.05;colmin=0.5;
gamdarkrng=15;gamdarkf=3;
gamlightrng=15;gamlightf=3;
gamdark=gamdarkrng*gamdarkf;
gamlight=gamlightrng*gamlightf;
gammidrng=255-(gamlightrng+gamdarkrng);
gammid=255-(gamlight+gamdark);
seed( false );
coldelta=colmax-colmin;coldelta=if( coldelta==0, 0.0001, coldelta );
limdark=gamdarkrng;
limlight=255-gamlightrng;
limlinew=255-gamlight;
grnmin=0-(grn/2);grnmax=grn/2;
centerx=width/2;centery=height/2;maxdist=distance@( 0, 0, centerx, centery );vigdistmax=maxdist*vigrad;vigmaxneg=1-vigmax
myy=y+0.5
myx=x+0.5;
myred=red@( myx, myy );
mygreen=green@( myx, myy );
myblue=blue@( myx, myy );
grey=(myred+mygreen+myblue)/3;
colfakt=((0-pow( (grey-128), 2 ) ) / ( 16384/coldelta) ) + colmax;
myred=grey+((myred-grey)*colfakt);mygreen=grey+((mygreen-grey)*colfakt);myblue=grey+((myblue-grey)*colfakt);
myred=if(grey<=limdark, (myred*limdark/gamdarkrng),if(grey<=limlight,((myred-gamdarkrng)*gammid/gammidrng)+gamdark, ((myred-limlight)*gamlight/gamlightrng)+limlinew ));
mygreen=if(grey<=limdark, (mygreen*limdark/gamdarkrng),if(grey<=limlight,((mygreen-gamdarkrng)*gammid/gammidrng)+gamdark, ((mygreen-limlight)*gamlight/gamlightrng)+limlinew ));
myblue=if(grey<=limdark, (myblue*limdark/gamdarkrng),if(grey<=limlight,((myblue-gamdarkrng)*gammid/gammidrng)+gamdark, ((myblue-limlight)*gamlight/gamlightrng)+limlinew ));
g=rand( grnmin, grnmax );
mydist=distance( centerx, centery );
vigdistcur=maxdist-mydist;
vigfakt=if( vigdistcur>=vigdistmax, 1, vigdistcur/vigdistmax );
vigfakt=vigmax+(vigmaxneg*vigfakt);
faktor=vigfakt*bright;
if(y>centery, red, (myred*faktor)+g )
if(y>centery, green, (mygreen*faktor)+g )
if(y>centery, blue, (myblue*faktor)+g )
0.821000
Casino Royale default
1
37
2006.12.17 21:58:25
2007.01.09 20:21:12
replace 'deg=0.25' by 'deg=progress' and hit F5 to understand meaning of deg parameter. deg is size of smooth transition between levels of brightness. a deg of 0 means sharp edges, while 1 is as smooth as natural.
modify variable 'lvls' to adjust number of brightness levels.
might be necessary to adjust bs, according to resolution (tried to handle that by resolving from width).
lvls=4;deg=0.25;
cred=171;cgreen=141;cblue=24;
lvlm=lvls-1;step=1/lvls;slice=step*deg;bs=width*0.012
grey=(blurred( bs )+blurgreen( bs )+blurblue( bs ))/3;
lvl=int((grey/maxcol)*lvls);
part=lvl/lvls;
rest=part-(grey/maxcol);
h=(step+rest)/step;
part=part+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
plow=part*2;
phi=(part-0.5)*2
if(part<0.5,cred*plow,cred+((255-cred)*phi))
if(part<0.5,cgreen*plow,cgreen+((255-cgreen)*phi))
if(part<0.5,cblue*plow,cblue+((255-cblue)*phi))
0.815000
Casino Royale colors fixed
1
30
2006.12.18 07:40:24
2007.01.09 23:48:33
basically the same like 'default' but the color circles from c1 to c2 to c3 and back to c1 (as always with animated effects, press F5 within FXbench Designer to watch animation)
lvls=4;deg=0.25;bs=width*0.012;
c1red=255;c1green=255;c1blue=0;
c2red=255;c2green=0;c2blue=255;
c3red=0;c3green=255;c3blue=255;
cred=if( (progress>=0)&&(progress<=0.333), c1red+((c2red-c1red)*progress/0.333), if( (progress>0.333)&&(progress<=0.666), c2red+((c3red-c2red)*(progress-0.333)/0.333), c3red+((c1red-c3red)*(progress-0.666)/0.333) ) );
cgreen=if( (progress>=0)&&(progress<=0.333), c1green+((c2green-c1green)*progress/0.333), if( (progress>0.333)&&(progress<=0.666), c2green+((c3green-c2green)*(progress-0.333)/0.333), c3green+((c1green-c3green)*(progress-0.666)/0.333) ) );
cblue=if( (progress>=0)&&(progress<=0.333), c1blue+((c2blue-c1blue)*progress/0.333), if( (progress>0.333)&&(progress<=0.666), c2blue+((c3blue-c2blue)*(progress-0.333)/0.333), c3blue+((c1blue-c3blue)*(progress-0.666)/0.333) ) );
lvlm=lvls-1;step=1/lvls;slice=step*deg
grey=(blurred( bs )+blurgreen( bs )+blurblue( bs ))/3;
lvl=int((grey/maxcol)*lvls);
part=lvl/lvls;
rest=part-(grey/maxcol);
h=(step+rest)/step;
part=part+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
plow=part*2;
phi=(part-0.5)*2
if(part<0.5,cred*plow,cred+((255-cred)*phi))
if(part<0.5,cgreen*plow,cgreen+((255-cgreen)*phi))
if(part<0.5,cblue*plow,cblue+((255-cblue)*phi))
0.815000
Vignette open
1
13
2007.01.09 19:57:26
2007.01.09 20:16:24
rad=progress;bord=0.08;c1x=0.5;c1y=0.5;
distmax=width*rad;distmin=width*(rad-bord);p1x=width*c1x;p1y=height*c1y;pbord=width*bord
dst=distance( p1x, p1y );deg=if(dst>=distmax, 0, if( dst<=distmin,1,1-((dst-distmin)/pbord)))
red*deg
green*deg
blue*deg
0.803000
Vignette close
1
15
2007.01.09 20:14:43
2007.01.09 20:17:01
rad=1-progress;bord=0.08;c1x=0.5;c1y=0.5;
distmax=width*rad;distmin=width*(rad-bord);p1x=width*c1x;p1y=height*c1y;pbord=width*bord
dst=distance( p1x, p1y );deg=if(dst>=distmax, 0, if( dst<=distmin,1,1-((dst-distmin)/pbord)))
red*deg
green*deg
blue*deg
0.803000
Scroll in right
1
43
2007.01.22 07:41:14
2007.01.22 07:43:43
offset=width*(1-progress)
myx=x-offset
red@( myx, y )
green@( myx, y )
blue@( myx, y )
0.799000
Scroll in left
1
15
2007.01.22 07:43:51
2007.01.22 07:44:23
offset=width*(1-progress)
myx=x+offset
red@( myx, y )
green@( myx, y )
blue@( myx, y )
0.799000
Scroll in top
1
14
2007.01.22 07:44:23
2007.01.22 07:45:37
offset=height*(1-progress)
myy=y-offset
red@( x, myy )
green@( x, myy )
blue@( x, myy )
0.799000
Scroll in bottom
1
17
2007.01.22 07:45:37
2007.01.22 07:46:06
offset=height*(1-progress)
myy=y+offset
red@( x, myy )
green@( x, myy )
blue@( x, myy )
0.799000
Scroll out top
1
26
2007.01.22 07:46:06
2007.01.22 07:46:39
offset=height*progress
myy=y-offset
red@( x, myy )
green@( x, myy )
blue@( x, myy )
0.799000
Scroll out bottom
1
18
2007.01.22 07:46:44
2007.01.22 07:47:03
offset=height*progress
myy=y+offset
red@( x, myy )
green@( x, myy )
blue@( x, myy )
0.799000
Scroll out left
1
17
2007.01.22 07:47:20
2007.01.22 07:49:33
offset=width*progress
myx=x+offset
red@( myx, y )
green@( myx, y )
blue@( myx, y )
0.799000
Scroll out right
1
17
2007.01.22 07:48:17
2007.01.22 07:49:15
offset=width*progress
myx=x-offset
red@( myx, y )
green@( myx, y )
blue@( myx, y )
0.799000
Scroll through top to bottom
1
29
2007.01.22 07:49:33
2007.01.22 07:55:43
offset=height*progress
myy=(y+offset)%height
red@( x, myy )
green@( x, myy )
blue@( x, myy )
0.799000
Scroll through bottom to top
1
31
2007.01.22 07:55:43
2007.01.22 07:56:07
offset=height*(1-progress)
myy=(y+offset)%height
red@( x, myy )
green@( x, myy )
blue@( x, myy )
0.799000
Scroll through left to right
1
29
2007.01.22 07:56:16
2007.01.22 07:57:13
offset=width*(1-progress)
myx=(x+offset)%width
red@( myx, y )
green@( myx, y )
blue@( myx, y )
0.799000
Scroll through right to left
1
29
2007.01.22 07:57:13
2007.01.22 07:58:30
offset=width*progress
myx=(x+offset)%width
red@( myx, y )
green@( myx, y )
blue@( myx, y )
0.799000
Circle moving 2 pos
1
33
2007.01.22 08:14:03
2007.01.24 19:21:52
set pos1x and pos1y to specify the start position
set pos2x and pos2y to specify the end position
set rad to define the radius of the circle
set colred, colgreen and colblue to define the color of the circle
set dmax to define the thickness of the circle
as resolution of the rendered image will change according to project settings and rendering quality, dimension and position should always be defined relative to the image resolution.
pos1x=width*0.3;pos1y=height*0.3;pos2x=width*0.7;pos2y=height*0.7;
rad=width*0.1;dmax=width*0.01;
colred=255;colgreen=0;colblue=0;
centerx=pos1x+((pos2x-pos1x)*progress);
centery=pos1y+((pos2y-pos1y)*progress)
d=distance( centerx, centery );dm=min( abs( rad-d ), dmax );fakt=1-(dm/dmax)
red+((colred-red)*fakt)
green+((colgreen-green)*fakt)
blue+((colblue-blue)*fakt)
0.811000
Circle moving 3 pos lin
1
26
2007.01.24 19:22:04
2007.01.24 19:35:44
moves circle from point 1 over point 2 till end position at point 3. linear path.
set pos1x and pos1y to specify the start position
set pos2x and pos2y to specify the middle position
set pos3x and pos3y to specify the end position
set rad to define the radius of the circle
set colred, colgreen and colblue to define the color of the circle
set dmax to define the thickness of the circle
as resolution of the rendered image will change according to project settings and rendering quality, dimension and position should always be defined relative to the image resolution.
pos1x=width*0.3;pos1y=height*0.3;
pos2x=width*0.5;pos2y=height*0.7;
pos3x=width*0.7;pos3y=height*0.3;
rad=width*0.1;dmax=width*0.01;
colred=255;colgreen=0;colblue=0;
centerx=if(progress<0.5,pos1x+((pos2x-pos1x)*(progress*2)),pos2x+((pos3x-pos2x)*((progress-0.5)*2)));
centery=if(progress<0.5,pos1y+((pos2y-pos1y)*(progress*2)),pos2y+((pos3y-pos2y)*((progress-0.5)*2)));
d=distance( centerx, centery );dm=min( abs( rad-d ), dmax );fakt=1-(dm/dmax)
red+((colred-red)*fakt)
green+((colgreen-green)*fakt)
blue+((colblue-blue)*fakt)
0.811000
Circle moving 3 pos bez
1
32
2007.01.24 19:28:51
2007.01.24 19:36:35
moves circle from point 1 over point 2 till end position at point 3. path along bezier curve.
set pos1x and pos1y to specify the start position
set pos2x and pos2y to specify the middle position
set pos3x and pos3y to specify the end position
set rad to define the radius of the circle
set colred, colgreen and colblue to define the color of the circle
set dmax to define the thickness of the circle
as resolution of the rendered image will change according to project settings and rendering quality, dimension and position should always be defined relative to the image resolution.
pos1x=width*0.3;pos1y=height*0.3;
pos2x=width*0.5;pos2y=height*0.9;
pos3x=width*0.7;pos3y=height*0.3;
rad=width*0.1;dmax=width*0.01;
colred=255;colgreen=0;colblue=0;
centerx1=pos1x+((pos2x-pos1x)*progress);
centerx2=pos2x+((pos3x-pos2x)*progress);
centerx=centerx1+((centerx2-centerx1)*progress);
centery1=pos1y+((pos2y-pos1y)*progress);
centery2=pos2y+((pos3y-pos2y)*progress);
centery=centery1+((centery2-centery1)*progress);
d=distance( centerx, centery );dm=min( abs( rad-d ), dmax );fakt=1-(dm/dmax)
red+((colred-red)*fakt)
green+((colgreen-green)*fakt)
blue+((colblue-blue)*fakt)
0.811000
Flip anim horizontal
1
25
2007.01.25 19:52:19
2007.01.25 19:56:17
myprog=progress
myx=x+(((width-x)-x)*myprog)
red@(myx,y)
green@(myx,y)
blue@(myx,y)
0.799000
Casino Royale multicol 1
1
26
2007.02.14 13:05:21
2007.03.13 16:45:20
lvls=3;deg=0.25;
lvlm=lvls-1;step=1/lvls;slice=step*deg;bs=width*0.012
valred=blurred(bs);
lvl=int((valred/maxcol)*lvls);
partred=lvl/lvls;
rest=partred-(valred/maxcol);
h=(step+rest)/step;
partred=partred+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
valgreen=blurgreen(bs);
lvl=int((valgreen/maxcol)*lvls);
partgreen=lvl/lvls;
rest=partgreen-(valgreen/maxcol);
h=(step+rest)/step;
partgreen=partgreen+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
valblue=blurblue(bs);
lvl=int((valblue/maxcol)*lvls);
partblue=lvl/lvls;
rest=partblue-(valblue/maxcol);
h=(step+rest)/step;
partblue=partblue+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step)
maxcol*partred
maxcol*partgreen
maxcol*partblue
0.815000
Casino Royale multicol 2
1
40
2007.03.13 16:44:41
2007.03.14 11:02:13
lvls=3;deg=0.25;bright=1.3;
lvlm=lvls-1;step=1/lvls;slice=step*deg;bs=width*0.025
valred=blurred(bs);
lvl=int((valred/maxcol)*lvls);
partred=lvl/lvls;
rest=partred-(valred/maxcol);
h=(step+rest)/step;
partred=partred+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
valgreen=blurgreen(bs);
lvl=int((valgreen/maxcol)*lvls);
partgreen=lvl/lvls;
rest=partgreen-(valgreen/maxcol);
h=(step+rest)/step;
partgreen=partgreen+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
valblue=blurblue(bs);
lvl=int((valblue/maxcol)*lvls);
partblue=lvl/lvls;
rest=partblue-(valblue/maxcol);
h=(step+rest)/step;
partblue=partblue+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step)
maxcol*partred*bright
maxcol*partgreen*bright
maxcol*partblue*bright
0.815000
Coin emboss blurred
1
22
2007.03.23 15:45:30
2007.03.23 16:28:51
The background color is based upon an extreme blur of the original frame. This gives the image a somehow artistic and filigree look.
bs=width*0.05;br=2.0;deep=1;
ec=2;lightx=1;lighty=1;lightz=1;div=deep*maxcol;
lightsqr=sqrt( (lightx*lightx)+(lighty*lighty)+(lightz*lightz) )
h1=(red+green+blue)/div;
h2=(red@( x+1, y )+green@( x+1,y )+blue@( x+1, y ))/div;
h3=(red@( x, y+1 )+green@( x,y+1 )+blue@( x, y+1 ))/div;
v2z=h2-h1;v3z=h3-h1;
cth=((-v2z*lightx)+(-v3z*lighty)+lightz)/(sqrt( (v2z*v2z)+(v3z*v3z)+1)*lightsqr )
blurred( bs )*cth*br
blurgreen( bs )*cth*br
blurblue( bs )*cth*br
0.815000
Coin edge blurred
1
19
2007.03.23 16:00:33
2007.03.23 16:28:38
bs=width*0.05;br=2.0;ec=2;lightx=1;lighty=1;lightz=1;
lightsqr=sqrt( (lightx*lightx)+(lighty*lighty)+(lightz*lightz) )
h1=edge( ec );
h2=edge@( x+1, y, ec );
h3=edge@( x, y+1, ec );
v2x=1;v2y=0;v2z=h2-h1;
v3x=0;v3y=1;v3z=h3-h1;
normx=(v2y*v3z)-(v2z*v3y);
normy=(v2z*v3x)-(v2x*v3z);
normz=(v2x*v3y)-(v2y*v3x);
cth=((normx*lightx)+(normy*lighty)+(normz*lightz))/(sqrt( (normx*normx)+(normy*normy)+(normz*normz))*lightsqr );
grey=maxcol*cth;
blurred( bs )*cth*br
blurgreen( bs )*cth*br
blurblue( bs )*cth*br
0.815000
Ken Burns 2 pts
1
16
2007.11.02 11:58:09
2007.11.02 11:58:49
p1x=0.3;p1y=0.4;p1w=0.3;p1h=0.3;
p2x=0.7;p2y=0.4;p2w=0.2;p2h=0.2;
px=p1x+((p2x-p1x)*progress);
py=p1y+((p2y-p1y)*progress);
pw=p1w+((p2w-p1w)*progress);
ph=p1h+((p2h-p1h)*progress)
myy=(height*py)+(ph*y)
myx=(width*px)+(pw*x)
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Ken Burns 3 pts bez
1
20
2007.11.02 11:58:49
2007.11.02 11:59:23
p1x=0.3;p1y=0.4;p1w=0.6;p1h=0.6;
p2x=0.7;p2y=0.4;p2w=0.2;p2h=0.2;
p3x=0.4;p3y=0.1;p3w=0.4;p3h=0.4;
pAx=p1x+((p2x-p1x)*progress);
pBx=p2x+((p3x-p2x)*progress);
px=pAx+((pBx-pAx)*progress);
pAy=p1y+((p2y-p1y)*progress);
pBy=p2y+((p3y-p2y)*progress);
py=pAy+((pBy-pAy)*progress);
pAw=p1w+((p2w-p1w)*progress);
pBw=p2w+((p3w-p2w)*progress);
pw=pAw+((pBw-pAw)*progress);
pAh=p1h+((p2h-p1h)*progress);
pBh=p2h+((p3h-p2h)*progress);
ph=pAh+((pBh-pAh)*progress)
myy=(height*py)+(ph*y)
myx=(width*px)+(pw*x)
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.799000
Ken Burns 3 pts lin
1
32
2007.11.02 11:59:23
2007.11.02 12:00:33
p1x=0.3;p1y=0.4;p1w=0.6;p1h=0.6;
p2x=0.7;p2y=0.4;p2w=0.2;p2h=0.2;
p3x=0.4;p3y=0.1;p3w=0.4;p3h=0.4;
px=if(progress<0.5, p1x+((p2x-p1x)*progress*2), p2x+((p3x-p2x)*(progress-0.5)*2));
py=if(progress<0.5, p1y+((p2y-p1y)*progress*2), p2y+((p3y-p2y)*(progress-0.5)*2));
pw=if(progress<0.5, p1w+((p2w-p1w)*progress*2), p2w+((p3w-p2w)*(progress-0.5)*2));
ph=if(progress<0.5, p1h+((p2h-p1h)*progress*2), p2h+((p3h-p2h)*(progress-0.5)*2))
myy=(height*py)+(ph*y)
myx=(width*px)+(pw*x)
red@( myx, myy )
green@( myx, myy )
blue@( myx, myy )
0.803000
Nightvision
1
12
2007.11.02 12:00:33
2007.11.02 12:02:17
low=0.6;high=1.4;
rad=0.4;bord=0.08;c1x=0.30;c1y=0.5;c2x=0.70;c2y=0.5;
distmax=width*rad;distmin=width*(rad-bord);p1x=width*c1x;p2x=width*c2x;p1y=height*c1y;p2y=height*c2y;pbord=width*bord
mod=y%4;factor=if((mod==0) || (mod==1),low,high)
d1=distance( p1x, p1y );d2=distance( p2x, p2y );dst=min( d1, d2 );deg=if(dst>=distmax, 0, if( dst<=distmin,1,1-((dst-distmin)/pbord)))
0
green*factor*deg
0
0.804000
Mothership 1
1
14
2007.11.21 21:16:58
2008.07.06 13:30:34
Homage to cover art of Led Zepplins Mothership
size=2;lower=0.4;upper=0.75
grey=(blurred( size )+blurgreen( size )+blurblue( size ))/3;fakt=grey/maxcol
if( fakt<=lower, 0, if( fakt<=upper, 255, 255 ) )
if( fakt<=lower, 0, if( fakt<=upper, 0, 255 ) )
if( fakt<=lower, 0, if( fakt<=upper, 0, 255 ) )
0.815000
Mothership 2
1
14
2007.11.21 21:37:31
2008.07.06 13:30:27
Homage to cover art of Led Zepplins Mothership
lvls=2;deg=0.2;
cred=255;cgreen=0;cblue=0;
lvlm=lvls-1;step=1/lvls;slice=step*deg;bs=width*0.012
grey=(blurred( bs )+blurgreen( bs )+blurblue( bs ))/3;
lvl=int((grey/maxcol)*lvls);
part=lvl/lvls;
rest=part-(grey/maxcol);
h=(step+rest)/step;
part=part+(if((h>=0)&&(h<=deg),1-(h/deg),0)*step);
plow=part*2;
phi=(part-0.5)*2
if(part<0.5,cred*plow,cred+((255-cred)*phi))
if(part<0.5,cgreen*plow,cgreen+((255-cgreen)*phi))
if(part<0.5,cblue*plow,cblue+((255-cblue)*phi))
0.815000
dm1
1
4
2009.12.01 23:50:40
2009.12.01 23:50:54
low=0.0;high=1.0;m=width*0.08;
mh=m/2
my=(y+frame)%m
mx=(x+frame)%m;
factor=if(my<mh,if(mx<mh,low,high),if(mx<mh,high,low));
grey=(red+green+blue)/3
grey*factor
0
0
0.803000