Grafik spielerei (wellen?)

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	beanage.johannes Betreff: Grafik spielerei (wellen?)	So, Mai 17, 2009 23:00 Antworten mit Zitat
Finde es seht schön aus... aber nur wenn man nicht zusehr an seinem mausrad dreht^^ have fun Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Global b:Int Repeat Cls b:+1 For Local a% = 10 To 800 Step 10 DrawLine a - 10,Cos(a - 10 * b)* MouseZ() + 300,a,Cos(a + 10 * b) * MouseZ() + 300 Next If b = MouseZ() Then b = 0 Flip Until AppTerminate() und hier eine leichte modifikation die auch ganz nett ausschaut^^ Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Global b:Float Repeat Cls b:+ .01 For Local a% = 10 To 800 Step 10 DrawLine a - 10,Cos(a - 10 * b)* MouseZ() + 300,a,Cos(a + 100 * b) * MouseZ() + 300 Next If b = MouseZ() Then b = 0 Flip Until AppTerminate()

beanage.johannes

Betreff: Grafik spielerei (wellen?)

So, Mai 17, 2009 23:00
Antworten mit Zitat

Finde es seht schön aus... aber nur wenn man nicht zusehr an seinem mausrad dreht^^

have fun Very Happy

Code: [AUSKLAPPEN]

Graphics 800,600

Global b:Int

Repeat
Cls

b:+1
For Local a% = 10 To 800 Step 10

DrawLine a - 10,Cos(a - 10 * b)* MouseZ() + 300,a,Cos(a + 10 * b) * MouseZ() + 300

Next

If b = MouseZ() Then b = 0

Flip
Until AppTerminate()

und hier eine leichte modifikation die auch ganz nett ausschaut^^

Code: [AUSKLAPPEN]

Graphics 800,600

Global b:Float

Repeat
Cls

b:+ .01
For Local a% = 10 To 800 Step 10

DrawLine a - 10,Cos(a - 10 * b)* MouseZ() + 300,a,Cos(a + 100 * b) * MouseZ() + 300

Next

If b = MouseZ() Then b = 0

Flip
Until AppTerminate()

	coolo	Mo, Mai 18, 2009 8:55 Antworten mit Zitat
Mhmm ja, so besonders ist der Code auch nicht, aber ist toll, das du es versuchst Aber eins muss sein: Oder Warte, ich hab auch noch nen ganz tollen Code, schaut echt OldSkool aus, und ist echt Knorke: Code: [AUSKLAPPEN] [EINKLAPPEN] print "Hello World!"
http://programming-with-design.at/ <-- Der Preis ist heiß! That's no bug, that's my project! "Eigenzitate sind nur was für Deppen" -Eigenzitat

coolo

Mo, Mai 18, 2009 8:55
Antworten mit Zitat

Mhmm ja, so besonders ist der Code auch nicht, aber ist toll, das du es versuchst Wink

Aber eins muss sein:
Oder Warte, ich hab auch noch nen ganz tollen Code, schaut echt OldSkool aus, und ist echt Knorke:

Code: [AUSKLAPPEN]

print "Hello World!"

http://programming-with-design.at/ <-- Der Preis ist heiß!
That's no bug, that's my project!
"Eigenzitate sind nur was für Deppen" -Eigenzitat

	ozzi789	Mo, Mai 18, 2009 10:04 Antworten mit Zitat
Naja mit wenigen Zeilen Code ein ganz nettes Resultat hier noch für bb Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 Repeat Cls b=b+1 For a=10 To 800 Step 10 Line a - 10,Cos(a - 10 * b)* MouseZ() + 300,a,Cos(a + 10 * b) * MouseZ() + 300 Next If b = MouseZ() Then b = 0 Flip 60 Until KeyHit(1) mfg ozzi
0x2B \|\| ! 0x2B C# \| C++13 \| Java 7 \| PHP 5

ozzi789

Mo, Mai 18, 2009 10:04
Antworten mit Zitat

Naja mit wenigen Zeilen Code ein ganz nettes Resultat
hier noch für bb
Code: [AUSKLAPPEN]

Graphics 800,600,32,2
Repeat
Cls
b=b+1
For a=10 To 800 Step 10

Line a - 10,Cos(a - 10 * b)* MouseZ() + 300,a,Cos(a + 10 * b) * MouseZ() + 300

Next
If b = MouseZ() Then b = 0
Flip 60
Until KeyHit(1)

mfg ozzi

0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

	beanage.johannes	Mo, Mai 18, 2009 19:27 Antworten mit Zitat
@ coolo mach mich nicht dumm ^^ ich weis das es nichts besonderes ist. fand es einfach nurschön, und auch das es extrem weig code ist.

beanage.johannes

Mo, Mai 18, 2009 19:27
Antworten mit Zitat

@ coolo

mach mich nicht dumm Razz

ich weis das es nichts besonderes ist. fand es einfach nurschön, und auch das es extrem weig code ist.

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

Nach Oben

BlitzBasic Portal

Grafik spielerei (wellen?)

beanage.johannes

Betreff: Grafik spielerei (wellen?)

coolo

ozzi789

beanage.johannes