' March Community Challenge - Small Basic Quilt Program // Quilt pattern -2 by NaochanON
init()
make_triangles()
Sub make_triangles
Scolor="1=Yellow;2=Orange;3=Cyan;4=Red" ' shape color
pos[1]="1=0;2=0;3=0;4=1;5=1;6=1"
pos[2]="1=0;2=1;3=1;4=0;5=1;6=1"
pos[3]="1=0;2=0;3=1;4=0;5=1;6=1"
pos[4]="1=0;2=0;3=0;4=1;5=1;6=0"
dR8=8*dR
For j=1 To GH/dR/8
For i=1 To GW/dR/8
NMB=J+":"+I
N1= text.GetSubText(pat[j],(I-1)*3+1,1)
N2= text.GetSubText(pat[j],(I-1)*3+2,1)
If N1<>0 Then
GraphicsWindow.BrushColor=Scolor[N1]
shp[NMB][1]=Shapes.AddTriangle(dR8*pos[N1][1],dR8*pos[N1][2],dR8*pos[N1][3],dR8*pos[N1][4],dR8*pos[N1][5],dR8*pos[N1][6])
Shapes.SetOpacity(shp[NMB][1],60)
Shapes.Animate(shp[NMB][1],I*dr8,(J-1)*dr8,200)
EndIf
If N2<>0 then
GraphicsWindow.BrushColor=Scolor[N2]
shp[NMB][2]=Shapes.AddTriangle(dR8*pos[N2][1],dR8*pos[N2][2],dR8*pos[N2][3],dR8*pos[N2][4],dR8*pos[N2][5],dR8*pos[N2][6])
Shapes.SetOpacity(shp[NMB][2],60)
Shapes.Animate(shp[NMB][2],I*dr8,(J-1)*dr8, 200)
EndIf
EndFor
EndFor
EndSub