Tabla de contenido
El radio de la circunferencia se puede reducir poniendo en lugar de 190 un número menor de
pixels.
Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la línea 20
escribiendo:
20
En lugar de punto a punto, podemos dibujar la circunferencia con trazo continuo. Modifique la
línea 50 para poner draw en lugar de plot. La línea será entonces:
50
DRAW
320+190*COS(a),200+190*SIN(a)
Nota del revisor (2008): Este programa no dibuja una circunferencia de trazo continuo, sino
líneas desde el centro de la pantalla hasta
ciertos puntos del exterior, como se ve en la
imagen anterior, porque la orden MOVE se
repite en cada nueva "vuelta" del FOR. Para que
realmente sea una circunferencia de trazo
continuo, la orden MOVE debería llevar al
punto inicial y no repetirse, reemplazando la
línea 40 del ejemplo anterior por una línea 25
que se sitúe en el primer punto de la
circunferencia, como en el siguiente ejemplo:
10
CLS
20
DEG
25
MOVE
320+190,200+0
30
FOR
a=1
TO
50
DRAW
320+190*COS(a),200+190*SIN(a)
60
NEXT
Pruebe esta modificación con la línea 20 y sin ella.
Observe que en la línea 60 de este programa hemos puesto NEXT en lugar de NEXT a. En
efecto, se puede omitir el nombre de la variable, pues el ordenador se encarga de averiguar a
qué FOR corresponde cada NEXT. No obstante, en los programas en los que haya muchos
bucles FOR ... NEXT, puede ser conveniente poner los nombres de las variables después de
360
Manual de Amstrad CPC 6128 (revisión 2008) - Página 72
Tabla de contenido
