Árbol con hojas (BBC Basic)
Publicado por Laura (1 intervención) el 24/12/2015 01:40:49
Tengo el siguiente código:
El cual dibuja las ramas de un árbol. Ahora me gustaría añadir código para que le salieran hojas verdes pero no sé cómo hacerlo. ¿Me pueden dar alguna idea?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Spread = 25Scale = .75
SizeX% = 1200
SizeY% = 900
Depth% = 10
VDU 23,22,SizeX%;SizeY%;8,16,16,128
PROCbranch(SizeX%, 0, SizeY%/2, 90, Depth%)
END
DEF PROCbranch(x1, y1, size, angle, depth%)
LOCAL x2, y2x2 = x1 + size * COSRAD(angle)
y2 = y1 + size * SINRAD(angle)
VDU 23,23,depth%;0;0;0;
LINE x1, y1, x2, y2
WAIT 1
IF depth% > 0 THEN
PROCbranch(x2, y2, size * Scale, angle - Spread, depth% - 1)
PROCbranch(x2, y2, size * Scale, angle + Spread, depth% - 1)
ENDIF
ENDPROC
El cual dibuja las ramas de un árbol. Ahora me gustaría añadir código para que le salieran hojas verdes pero no sé cómo hacerlo. ¿Me pueden dar alguna idea?
Valora esta pregunta
0