' Animationsdemonstration Planetenkreise mit Stern ' Ansatz 1 Pi! = 4! * ATN(1!) SCREEN 7, , 4, 4 CIRCLE (160, 100), 118, 15, , , 5! / 6! PAINT (160, 100), 15 n% = 0 t0! = TIMER + 10! AnzBild& = 0& tStop! = TIMER WHILE INKEY$ = "" t! = TIMER - t0! PCOPY 4, n% SCREEN , , n%, n% - 1 AND 3 GOSUB ZeichneBild SCREEN , , , n% n% = n% + 1 AND 3 AnzBild& = AnzBild& + 1& WEND tStop! = TIMER - tStop! SCREEN 0 WIDTH 80, 25 PRINT "Geschwindigkeit (Frame Rate):"; CSNG(AnzBild&) / tStop!; "Bilder/s" END ZeichneBild: ' Kreise wPos! = t! * .5 * Pi! FOR i% = 0 TO 2 w! = wPos! + CSNG(i%) * 2! * Pi! / 3! x% = 160 + CINT(96! * COS(w!)) y% = 100 + CINT(80! * SIN(w!)) CIRCLE (x%, y%), 21, 3 + i%, , , 5! / 6! PAINT (x%, y%), 3 + i% NEXT i% wPos! = t! * -Pi! FOR i% = 0 TO 6 w1! = wPos! + CSNG(i%) * 4! * Pi! / 7! x1% = 160 + CINT(66! * COS(w1!)) y1% = 100 + CINT(55! * SIN(w1!)) w2! = wPos! + CSNG(i% + 1) * 4! * Pi! / 7! x2% = 160 + CINT(66! * COS(w2!)) y2% = 100 + CINT(55! * SIN(w2!)) LINE (x1%, y1%)-(x2%, y2%), 3 NEXT i% FOR i% = 0 TO 6 w1! = wPos! + CSNG(i%) * 4! * Pi! / 7! x1% = 160 + CINT(54! * COS(w1!)) y1% = 100 + CINT(45! * SIN(w1!)) PAINT (x1%, y1%), 5 + i%, 3 NEXT i% RETURN