Autor Thema: Kleines Demo in Future Basic (Mac)  (Gelesen 3150 mal)

0 Mitglieder und 1 Gast betrachten dieses Thema.

Omikronman

  • Gast
Kleines Demo in Future Basic (Mac)
« am: Mo 21.06.2010, 23:00:23 »
Hallo,

ich habe ein kleines Demo für dem Mac gebastelt.
Die Musik ist aber nur aus der YouTube Trickkiste.
http://www.youtube.com/watch?v=zAXoNwmruK8

Euer Omi

Offline Arthur

  • Benutzer
  • Beiträge: 10.302
  • Mein Atari erinnert mich an die gute alte Zeit..
Re: Kleines Demo in Future Basic (Mac)
« Antwort #1 am: Mo 21.06.2010, 23:10:45 »
Hei Omi, interessant die Demo. Wieviel Codezeilen waren das jetzt und ist die Music auch im Programm erzeugt worden?

Gruß Arthur

Omikronman

  • Gast
Kleines Demo in Future Basic (Mac)
« Antwort #2 am: Mo 21.06.2010, 23:21:31 »
Hallo Arthur,

das Demo hat weniger als 70 Zeilen. Ich füge den Quellcode noch bei (gif in zip umbenennen und auspacken). Die Musik ist nicht im Programm drin (da gibt es noch Probleme), daher hab ich für die Musik die Option von YouTube genutzt.

Grüße, Omi

Offline Arthur

  • Benutzer
  • Beiträge: 10.302
  • Mein Atari erinnert mich an die gute alte Zeit..
Re: Kleines Demo in Future Basic (Mac)
« Antwort #3 am: Mi 23.06.2010, 22:59:00 »
Ich zeigs mal so... ;) Schleifen ohne Ende. Mal schauen wer das als erstes an GFA - oder Omikron - Basic anpasst.


dim as long f(1201,701),n(1201,701),x,y,n,a,b,g,a$
def fn test
def fn aktiv
def fn rise
def fn newcells
 
window 2, "Life",(0,0)-(1200,700),1
maxwindow 1200,700
minwindow 1200,700
cls

for a=450 to 750
for b=200 to 500
f(a,b)=1
next
next

for y=1 to 700
for x=1 to 1200
color=7
if f(x,y)=0 then color=0
plot x,y
next
next

"Loop"
g+=1
print @ (1,1),g

if rnd(250-5+1)+5-1=250 then fn newcells

"jmp"
for y=1 to 700
for x=1 to 1200
if f(x,y)=1 then fn rise
next
next

for y=1 to 700
for x=1 to 1200
if f(x,y)=0 and n(x,y)<>3 then n(x,y)=0:goto "ok"
if f(x,y)=0 and n(x,y)=3 then n(x,y)=1:goto "ok"
if f(x,y)=1 and n(x,y)<2 then n(x,y)=0:goto "ok"
if f(x,y)=1 and n(x,y)>3 then n(x,y)=0:goto "ok"
if f(x,y)=1 and n(x,y)>=2 and n(x,y)<=3 then n(x,y)=1
 
"ok"
if f(x,y)<>n(x,y) and n(x,y)=0 then color=0:plot x,y
if f(x,y)<>n(x,y) and n(x,y)=1 then color=7:plot x,y

f(x,y)=n(x,y):n(x,y)=0
next
next
 
a$=inkey$:if a$=chr$(32) then end

rem flushwindowbuffer
goto "loop"

local fn rise
n(x-1,y-1)+=1
n(x,y-1)+=1
n(x+1,y-1)+=1
n(x-1,y)+=1
n(x+1,y)+=1
n(x-1,y+1)+=1
n(x,y+1)+=1
n(x+1,y+1)+=1
end fn

local fn newcells
for a=300 to 400
for b=550 to 650
f(b,a)=1
next
next

for y=1 to 700
for x=1 to 1200
color=7
if f(x,y)=0 then color=0
plot x,y
next
next
'flushwindowbuffer
end fn

Omikronman

  • Gast
>OMIKRON BASIC: Kleines Demo in Future Basic (Mac)
« Antwort #4 am: Do 24.06.2010, 18:24:06 »
Frag Omi! xD

Sowas ähnliches hab ich doch für den Atari auch mal gemacht:

http://www.youtube.com/watch?v=-gCsSwFxpM4

Edit: Wieso bekomme ich von atari-home keine Nachricht über die Antwort im Forum? O.o
« Letzte Änderung: Do 24.06.2010, 18:25:47 von Omikronman »