CODINGLISTINGS ★ GRAPHIC - SPINNING DIAMOND ★

GRAPHIC - SPINNING DIAMOND|Amstrad Action)GRAPHIC - SPINNING DIAMOND|The Amstrad User)
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 

It's a while since we published a listing that uses palette switching to give the impression of slick animation. Giles Park of Leeds has come up with one that really looks impressive: stars go whizzing by, a diamond spinning in their midst.

1 ' Spinning diamond
2 ' by Giles Park
3 ' Amstrad Action     September 87
10 ' ****SET UP SCREEN + COLOURS****
20 INK 11,26: FOR t=0 TO 15: INK t,t: NEXT: INK 11,26
30 ' ****DRAW STARS****
40 MODE 0: FOR r=1 TO 20: FOR e=10 TO 5 STEP -2
50 FOR w=1 TO 3: MOVE -100+RND*640,1+RND*400
60 FOR q=1 TO 10: PLOTR e+w,0,q: NEXT q,w,e,r
70 ' ****DRAW DIAMOND****
80 coltri=1: FOR r=0 TO 90 STEP 9
90 FOR t=0 TO 360 STEP 90: DEG
100 MOVE 320+200*COS(t+r),200+100*SIN(t+r)
110 DRAW 320+200*COS(t+90+r),200+100*SIN(t+90+r),coltri
120 DRAW 320,0: MOVE 320+200*COS(t+r),200+100*SIN(t+r)
130 DRAW 320+150*COS(t+r),300+75*SIN(t+r)
140 DRAW 320+150*COS(t+r+90),300+75*SIN(t+r+90): NEXT
150 ' ****SPINNING PART****
160 coltri=coltri+1
170 IF coltri>10 THEN coltri=1
180 NEXT: coltri=26
190 FOR t=1 TO 10: INK t,coltri: INK t-1,0
200 CALL &BD19: INK 10,0: NEXT t: GOTO 190

AA

★ PUBLISHERS: The Amstrad User (Australia) , Amstrad Action (UK)
★ YEARS: 1987 , 1988
★ CONFIG: AMSDOS + 64K
★ LANGUAGE:
★ LICENCE: LISTING
★ AUTHOR: GILES PARK
 

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 934 millisecondes et consultée 653 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.