Tabla de contenido
Publicidad
NEXT para que el programa sea más inteligible cuando se lo esté corrigiendo o estudiando.
ORIGIN
En el programa anterior utilizábamos la instrucción MOVE para establecer el centro de la
circunferencia y luego sumábamos a las coordenadas del centro las coordenadas de los puntos
de la circunferencia. Podemos evitar esas sumas si redefinimos la posición del origen de
coordenadas con la instrucción ORIGIN. El ordenador entenderá las coordenadas que se le
suministren a continuación como referidas al nuevo origen. Escriba lo siguiente:
new
10
CLS
20
FOR
a=1
TO
30
ORIGIN
320,200
40
PLOT
190*COS(a),190*SIN(a)
50
NEXT
run
Nota del revisor (2008): La orden ORIGIN no tiene efecto sólo para la siguiente orden, sino
que su efecto se conserva hasta otra nueva orden ORIGIN (o hasta que se cambia el modo de
pantalla con MODE), por lo que no es necesario repetir ORIGIN en cada "vuelta" del FOR del
programa anterior, que se podría reescribir así:
10
CLS
15
ORIGIN
320,200
20
FOR
a=1
TO
40
PLOT
190*COS(a),190*SIN(a)
50
NEXT
El siguiente programa dibuja cuatro circunferencias más pequeñas:
new
10
CLS
20
FOR
a=1
TO
30
ORIGIN
196,282
40
PLOT
50*COS(a),50*SIN(a)
50
ORIGIN
442,282
60
PLOT
50*COS(a),50*SIN(a)
70
ORIGIN
196,116
80
50*COS(a),50*SIN(a)
PLOT
90
ORIGIN
442,116
100
PLOT
50*COS(a),50*SIN(a)
110
NEXT
run
Otra forma de dibujar la circunferencia (con trazo continuo) es la siguiente:
new
10
MODE
1
20
ORIGIN
320,200
30
DEG
40
MOVE
0,190
50
FOR
a=0
TO
60
DRAW
190*SIN(a), 190*COS(a)
70
NEXT
360
360
360
360
STEP
10
Manual de Amstrad CPC 6128 (revisión 2008) - Página 73
Publicidad
Tabla de contenido
