x=0;y=0;v=0;draw_set_font(fnt)
do{do{draw_point_color(x,y,make_color_hsv(32*sin(degtorad(v*x)),64+128*cos(degtorad(y)),230+25*(cos(degtorad(x*y)+sin(degtorad(x*y))))))
x+=1;v+=pi}until x=817;x=0;y+=1}until y=106
draw_set_color(-1)
draw_text(32,-8,"static");draw_text(96,36,"fire")

x=0;y=0;v=0;draw_set_font(fnt)
do{do{draw_point_color(x,y,make_color_hsv(200+55*sin(degtorad(v*x)),64+128*cos(degtorad(y)),230+25*(cos(degtorad(x+y)+sin(degtorad(x+y))))))
x+=1;v+=pi}until x=817;x=0;y+=1}until y=106
draw_set_color(-1)
draw_text(32,-8,"static");draw_text(96,36,"fire") …

x=1;y=1;v=0
draw_set_font(fnt)
do{do{draw_point_color(x,y,make_color_hsv(cos(degtorad(80/90)*y)*255,cos(degtorad(480/90)*x/32)*255,cos(degtorad(80*240/90)*v)*255))
x+=1;v+=1}until x=480;x=0;y+=1}until y=80
y=1
draw_set_alpha(.2)
do{draw_set_color(make_color_hsv(0,0,cos(y/pi/3)))
draw_line(0,y,480,y)
y+=1}until y=80
draw_set_alpha(.5)
draw_set_color(c_dkgray)
draw_text(3,3," EVILISH#  Shattered Rainbows")
draw_set_color(c_ltgray)
draw_text(1,1," EVILISH#  Shattered Rainbows")
draw_set_color(c_gray)
draw_text(2,2," EVILISH#  Shattered Rainbows")

x=0;y=0;t=0
repeat(10000){x+=1;t+=1
if x>80{x=0;y+=1}
draw_point_color(lengthdir_x(t/100,t)+40,lengthdir_y(t/100,t)+40,(x*2+y*4+t*8)*-64)}

//And just for kix...(Will produce something a little more chaotic when added to the above)
x=80;y=0;t=0
repeat(10000){x-=1;t-=1
if x<0{x=80;y-=1}
draw_point_color(lengthdir_x(t/100,t)+40,lengthdir_y(t/100,t)+40,(x*2+y*4-t*8)*64)}