Datei:SuperExpander64 Listing4.gif
SuperExpander64_Listing4.gif (320 × 200 Pixel, Dateigröße: 7 KB, MIME-Typ: image/gif, Endlosschleife, 126 Bilder, 20 s)
5 rem listing 4: kreisboegen, kreise und ellipsen
10 color 7,9,14: graphic 2,1: scale 0: poke 49168,1
20 char 1,1,1, "der circle-befehl erzeugt einfach:"
30 char ,1,3, "kreisboegen, kreise,"
40 draw ,20,80 to 100,80: draw ,60,80 to 60,40
50 r=40: circle ,60,50,r,r,130,230
60 circle ,40,80,r,r,0,110
70 circle ,80,80,r,r,250,0
80 xa=160: ya=68: for r=6 to 30 step 6
90 circle ,xa,ya,r*1.35,r: next r
100 char 1,22,3, "gedrehte ellipsen"
110 poke 49168,0: for r=0 to 150 step 30
120 circle 1,260,72,32,12, , ,r: next r
130 char ,1,13, "oder regelmaessige vielecke."
140 poke 49168,1: xa=-20: ya=140: d=360
150 for j=3 to 7: xa=xa+54+j: n=j: if j=7 then n=8
160 if j=7 then n=8: ya=ya-4
170 circle ,xa,ya+(j and 1)*32,30,25,,,,d/n: next j
180 goto 180
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 20:23, 21. Mai 2014 | 320 × 200 (7 KB) | Werner (Diskussion | Beiträge) | Kategorie:Animation 5 rem listing 4: kreisboegen, kreise und ellipsen 10 color 7,9,14: graphic 2,1: scale 0: poke 49168,1 20 char 1,1,1, "der circle-befehl erzeugt einfach:" 30 char ,1,3, "kreisboegen, kreise," 40 draw ,20,80 to 100,80: draw ,60,80 t |
Du kannst diese Datei nicht überschreiben.
Dateiverwendung
Die folgende Seite verwendet diese Datei: