++INCLUDE AMGSYM.BSI

MAP1 GCB,X,32000

MAP1 POINT'ARRAY
 MAP2 POINT'COUNT,B,2
 MAP2 POINTS(20)
  MAP3 POINT'X,B,2
  MAP3 POINT'Y,B,2

MAP1 STATUS,F		!Status retruned from AMIGOS calls

!Variables specific to this design
RADIUS = 11000
XCENT = 16384
YCENT = 11000
PI = 3.141592654
NSEG = 16

TSTAMG:
!	XCALL AMGSBR,G'OPWK,GCB,"TK4105",STATUS,"","TERM2"
 	XCALL AMGSBR,G'OPWK,GCB,"",STATUS
	POINT'COUNT = 2

!Clear the workstation
	XCALL AMGSBR,G'CLRW,GCB,STATUS
LOOP:
	FOR COLOR = 1 TO 7
	XCALL AMGSBR,G'SPLC,GCB,COLOR,STATUS
	CALL	 DO'PATTERN
	NEXT COLOR

	GOTO LOOP

ABORT:
	XCALL AMGSBR,G'CLWK,GCB,STATUS

DO'PATTERN:
	RADIAN = 2*PI/NSEG
	R1 = 0	
	FOR I = 1 TO NSEG-1
	R2 = R1
	POINT'X(1)=XCENT+(RADIUS*COS(R1))
	POINT'Y(1)=YCENT+(RADIUS*SIN(R1))
	FOR J = 1 TO NSEG-1
	R2 = R2+RADIAN
	POINT'X(2)=XCENT+(RADIUS*COS(R2))
	POINT'Y(2)=YCENT+(RADIUS*SIN(R2))
	XCALL AMGSBR,G'PL,GCB,POINT'ARRAY,STATUS
 	NEXT J
	R1 = R1 + RADIAN
	NEXT I
	RETURN



	END