CODINGLISTINGS ★ PATTERNS ★

PatternsCoding Listings
★ 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 ★ 

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 20

Program 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

 

★ PUBLISHER: Amstrad Action
★ YEAR: 1988
★ CONFIG: 64K + AMSDOS
★ AUTHOR: Nigel Myers

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 140 millisecondes et consultée 160 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.