++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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.