A simple program that Creates black and white kaleidoscope effects. A good bit of speed helps the effect. Well done Nigel Myers of Bolton 1 'Patterns
2 'Written by NIGEL MYERS
3 'Amstrad Action November 1988
4 'alter line 20..a=4 for striped lines
10 BORDER 5:INK 1,26:INK 0,0:c=25
20 MOVE x,0:DRAWR 0,400,1:MOVE 640-x,0:DRAWR 0,400,1:IF x<=320 THEN a=2
30 MOVE 0,y:DRAWR 640,0,0:MOVE 0,400-y:DRAWR 640,0,0:x=x+a:y=y+b
40 IF x>=640 THEN a=-2-INT(RND*14)
50 IF y>=400 THEN b=-2-INT(RND*14):INK 1,c:c=c-1:IF c60 IF y<=200 THEN b=2
70 GOTO 20Program Notes Not much to this. Line 10 sots up the border and ink colours. Lines 20*30 perform the actual drawing of the pattern, and lines 40-60 perform some decision making on the pattern. Finally, line 70 loops to line 20 to draw the next bit of the pattern. AA#38
| ★ AMSTRAD CPC ★ DOWNLOAD ★ |
|
CPCrulez[Content Management System] v8.7-desktop/c
Page créée en 359 millisecondes et consultée 1028 foisL'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. |
|
|
