File:SuperExpander64 Listing4.gif

From C64-Wiki
Jump to navigationJump to search

SuperExpander64_Listing4.gif ‎(320 × 200 pixels, file size: 7 KB, MIME type: image/gif, looped, 126 frames, 20 s)

This file is from a shared repository and may be used by other projects. The description on its file description page there is shown below.


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

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current20:23, 21 May 2014Thumbnail for version as of 20:23, 21 May 2014320 × 200 (7 KB)WernerKategorie: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

The following page uses this file:

Retrieved from "https://www.c64-wiki.com/wiki/File:SuperExpander64_Listing4.gif"