Plants

Subject: Plants Wed Jun 14, 2017 3:38 am

Code:: rem ============================================================================
rem Plants
rem By Papydall
rem ============================================================================
Init()
Plants()
caption 0,"Finished"
end
rem ============================================================================
SUB Init()
dim ss : ss = 20
dim sang1(ss), xx(ss), yy(ss)
dim xpos, ypos
dim counter, gen, st
dim a$, b$, a0$, a1$
dim k, s, s2, ang1
dim frw, cl, i, ang, sang, an, x, y, x1, y1, xp, yp,xp1, yp1, ran1, ran2
dim zx, zy
degrees
full_space 0
picture 10 : width 10, width_client(0) - 100 : height 10, height_client(0) - 100
top 10,50 : left 10,50 : 2d_target_is 10 : color 10,0,0,0
xpos = width(10) /2 : ypos = height(10) - 100
caption 0, "<ESC> to stop ..."
END_SUB
rem ============================================================================
SUB Plants()
repeat
b$ = "" : a$ = "" : a0$ = "" : a1$ = ""
st = 0
gen = 1 + mod(counter,13)
counter = counter + 1
select gen
case 1
k = 6 : s = 1.5 : ang1 = 8
A$ = "0" : A1$ = "11" : A0$ = "1##10!+0!-0"
case 2
k = 6 : s = 1.5 : ang1 = 8
A$ = "0" : A1$ = "11" : A0$ = "1#+0!1#-0!0"
case 3
k = 5 : s = 3.0 : ang1 = 16
A$ = "1" : A1$ = "11-#-1+0+0!+#+1-0-0!" : A0$ = "0"
case 4
k = 5 : s = 3.0 : ang1 = 10
A$ = "1" : A1$ = "1#+0!#=0!1#+1+-0!#-1-+0!" : A0$ = "0-0++0"
case 5
k = 5 : s = 3.0 : ang1 = 16
A$ = "1" : A1$ = "11-#-1+0+0!+#+1-0-0!" : A0$ = "#0-0++0!"
case 6
k = 4 : s = 2.5 : ang1 = 10
A$ = "1" : A1$ = "1#+10!1#-10!1" : A0$ = "#0-0++0!"
case 7
k = 4 : s = 1.75 : ang1 = 10
A$ = "1" : A1$ = "1#+1-10!1#-1+10!10" : A0$ = "#0-0++0!"
case 8
k = 4 : s = 3.0 : ang1 = 10
A$ = "1" : A1$ = "11#+1-1+10!#-1+1-10!" : A0$ = "#0-0++0!"
case 9
k = 4 : s = 3.5 : ang1 = 10
A$ = "1" : A1$ = "11#+1+1-#0-0++0!!0#-1-1+#0-0++0!!" : A0$ = "#0-0++0!"
case 10
k = 4 : s = 3.6 : ang1 = 10
A$ = "#+1-1!#-1+1!" : A1$ = "1#-1+0!1#+1-0!0" : A0$ = "#0-0++0!"
case 11
k = 3 : s = 2.75 : ang1 = 8
A$ = "1" : A1$ = "11#+10-10+10-10!1#-10+10-10+10!0" : A0$ = "0"
case 12
k = 3 : s = 4.0 : ang1 = 20
A$ = "1" : A1$ = "1#-10-10-10!1#+10+10+10!1#10!" : A0$ = "0"
case 13
k = 4 : s = 2.0 : ang1 = 8
A$ = "0" : A1$ = "111" : A0$ = "11#+0!#++0!#+++0!#-0!#--0!#---0!0"
end_select
String_Generator()
until counter = 13
END_SUB
rem ============================================================================
SUB String_Generator()
for frw = 1 to k
cl = len(A$)
for i = 1 to cl
if mid$(a$,i,1) = "1"
b$ = b$ + a1$
else
if mid$(a$,i,1) = "0"
b$ = b$ + a0$
else
b$ = b$ + mid$(a$,i,1)
end_if
end_if
next i
a$ = b$ : b$ = ""
ang = 360 / ang1
x = 0 : y = 0 : an = 0 : cl = len(a$)
for i = 1 to cl
if mid$(a$,i,1) = "1"
ran1 = rnd(1) : ran2 = rnd(1)
s2 = s + 0.5 * (ran1-ran2) * s
ran1 = rnd(1) : ran2 = rnd(1)
an = an + 5.0 * (ran1-ran2)
sang = an
x1 = s2 * sin(an) + x : y1 = s2 * cos(an) + y
xp = 2 * x + xpos : yp = ypos - 2 * y
xp1 = 2 * x1 + xpos : yp1 = ypos - 2 * y1
2d_pen_color 0,192,0 : 2d_line xp,yp,xp1,yp1
x = x1 : y = y1
else
if mid$(a$,i,1) = "0"
zx = sin(an) : zy = cos(an)
x1 = zx * s + x : y1 = zy * s + y
xp = 2 * x + xpos : yp = ypos -2 * y
xp1 = 2 * x1 + xpos : yp1 = ypos - 2 * y1
2d_pen_color 255,128,0 : 2d_line xp,yp,xp1,yp1
x1 = 0.25 * zx * s + x : y1 = 0.25 * zy * s + y
xp1 = 2 * x1 + xpos : yp1 = ypos - 2 * y1
2d_pen_color 255,0,0 : 2d_line xp,yp,xp1,yp1
else
if mid$(a$,i,1) = "-"
ran1 = rnd(1) : ran2 = rnd(1)
an = an - ang - 10 *(ran1-ran2) : sang = an
else
if mid$(a$,i,1) = "+"
ran1 = rnd(1) : ran2 = rnd(1)
an = an + ang + 10*(ran1-ran2) : sang = an
else
if mid$(a$,i,1) = "#"
st = st + 1 : sang1(st) = sang
xx(st) = x : yy(st) = y
else
if mid$(a$,i,1) = "!"
x = xx(st) : y = yy(st)
an = sang1(st)
sang = an
st = st-1
end_if
end_if
end_if
end_if
end_if
end_if
display
if scancode = 27 then caption 0, "Stopped by user ! " :end
next i
next frw
END_SUB
rem ============================================================================