draw_spiral() [MAJ]

//draw_spiral(x,y,radius,spacing,turns,steps,width,angle,direction,c1,c2,c3,c4,a1,a2)

var xx,yy, rad,space,turn,step,width,angle,dir,cs,ce,cu,cd,alu,ald;
var vx,vy,length, vc1, vc2;

xx=argument0
yy=argument1
rad=argument2
space=argument3
turn=argument4
step=max(3,argument5)
width=argument6
angle=argument7
dir=1*sign(argument8)

c1=argument9
c2=argument10
c3=argument11
c4=argument12
a1=argument13
a2=argument14

vx=0
vy=0
vc1=0
vc2=0
length=0

{
for (i=1; i<=(360*turn)+(360/step); i+=360/step)
{
draw_primitive_begin(pr_trianglestrip)
length+=(space/step)

vc1=merge_color(c1,c2,max(0,((i/(360/step))*(1/(step*turn)))-(1/(step*turn))))
vx=xx+lengthdir_x((rad+length)-(width/2),angle+(i-(360/step)))*dir
vy=yy+lengthdir_y((rad+length)-(width/2),angle+(i-(360/step)))*dir
draw_vertex_color(vx,vy,vc1,a1)

vc2=merge_color(c3,c4,max(0,((i/(360/step))*(1/(step*turn)))-(1/(step*turn))))
vx=xx+lengthdir_x((rad+length)+(width/2),angle+(i-(360/step)))*dir
vy=yy+lengthdir_y((rad+length)+(width/2),angle+(i-(360/step)))*dir
draw_vertex_color(vx,vy,vc2,a2)

vc1=merge_color(c1,c2,(i/(360/step))*(1/(step*turn)))
vx=xx+lengthdir_x(((rad+length)+(space/step))-(width/2),angle+i)*dir
vy=yy+lengthdir_y(((rad+length)+(space/step))-(width/2),angle+i)*dir
draw_vertex_color(vx,vy,vc1,a1)

vc2=merge_color(c3,c4,(i/(360/step))*(1/(step*turn)))
vx=xx+lengthdir_x(((rad+length)+(space/step))+(width/2),angle+i)*dir
vy=yy+lengthdir_y(((rad+length)+(space/step))+(width/2),angle+i)*dir
draw_vertex_color(vx,vy,vc2,a2)
draw_primitive_end()
}
}