wer macht schönere muster

[RolandIV]

hab bisschen rumgespielt sieht irgendwie toll aus. hab version 3.9 vllt läufts bei dem einen oder anderen noch
fragt mich nicht nach dem tieferen (mathematischen) sinn, hab einfach nur mit sin und cos rumgespielt

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()
OpenScreen(1024,768,32,"Sinus/Cosinus")
Repeat
  ExamineMouse()
  ExamineKeyboard()
  ClearScreen(0,0,0)
  StartDrawing(ScreenOutput())
    radius.f=0
    For h=0 To 2000
      Box(500+h/10*Cos(h)*Sin(h),400+h/10*Sin(h),1,1,RGB(255,255,255))
    Next    
    For h=0 To 2000
      Box(500+h/10*Cos(h)*Cos(h),400+h/10*Sin(h),1,1,RGB(255,255,255))
    Next        
    For h=0 To 2000
      Box(500+h/10*Sin(h)*Cos(h),400+h/10*Sin(h),1,1,RGB(255,255,255))
    Next 
    For h=0 To 3600
      Box(500+h/2*Cos(h),400+h/2*Sin(h),1,1,RGB(255,255,255))
    Next 
    For h=0 To 2000
      Box(500+h/10*Cos(h),400+h/10*Cos(h)*Sin(h),1,1,RGB(255,255,255))
    Next 
    For h=0 To 2000
      Box(500+h/10*Cos(h)*Cos(h)*Sin(h)*ATan(h),400+h/10*Sin(h),1,1,RGB(255,255,255))
    Next             
  StopDrawing()
  FlipBuffers()
  If KeyboardPushed(1) : End : EndIf
ForEver

[/code]

[STARGÅTE]

ich

ist auch etwas Farbe und bewegung drin ^^

Code: Alles auswählen

InitSprite() 
InitKeyboard() 
InitMouse() 
OpenScreen(1024,768,32,"Sinus/Cosinus") 
Repeat 
  ExamineMouse() 
  ExamineKeyboard() 
  ClearScreen(0) 
  StartDrawing(ScreenOutput()) 
   u + 5
   For r = 0 To 250 Step 10 
   For n = 1 To 3600 Step 5
    x = Cos(n*#PI/1800)*(r+50)*0.7*(1.5-Pow(Abs(Sin((n+u)*#PI/3600*5)),0.8))
    y = Sin(n*#PI/1800)*(r+50)*0.7*(1.5-Pow(Abs(Sin((n+u)*#PI/3600*5)),0.8))
    F = RGB(r,Pow((r-128)/128,2)*255,255-r)
    Plot(x+512,y+384,F)
   Next
   Next
  StopDrawing() 
  FlipBuffers() 
  If KeyboardPushed(1) : End : EndIf 
ForEver 

[rolaf]

nö ich ohne Cosi und Nus

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()
OpenScreen(1024,768,24,"Ohne Cosi und Nus")
ClearScreen(0)
Repeat
  StartDrawing(ScreenOutput())
  ExamineMouse()
  ExamineKeyboard()
  For i = 1 To 10000
    Plot(Random(1023), Random(767), RGB(Random(255), Random(255), Random(255)))
  Next i
  StopDrawing()
  FlipBuffers()
  If KeyboardPushed(1) : End : EndIf
ForEver 

Es lebt...

[STARGÅTE]

TIP:

das ist so viel geiler ^^

Code: Alles auswählen

Global DesktopOutput_Memory = AllocateMemory(1024)
Procedure.l DesktopOutput() 
 PokeL(DesktopOutput_Memory, 1)
 ProcedureReturn DesktopOutput_Memory
EndProcedure 
StartDrawing(DesktopOutput()) 
 Repeat 
  Plot(Random(1023), Random(767), RGB(Random(255), Random(255), Random(255))) 
 Until GetAsyncKeyState_(27)
StopDrawing() 

[rolaf]

Pixelmassage ...nur die Start-Taste will sich nicht "bekleckern" lassen.

[AND51]

@ Stargate:
So ist noch viel schöner...

Code: Alles auswählen

Global DesktopOutput_Memory = AllocateMemory(1024) 
Procedure.l DesktopOutput() 
 PokeL(DesktopOutput_Memory, 1) 
 ProcedureReturn DesktopOutput_Memory 
EndProcedure 
StartDrawing(DesktopOutput()) 
GetCursorPos_(alt.POINT)
 Repeat 
 	GetCursorPos_(neu.POINT)
  Line(alt\x, alt\y, neu\x-alt\x, neu\y-alt\y, Random(1<<24))
  alt\x=neu\x
  alt\y=neu\y
 Until GetAsyncKeyState_(27) 
StopDrawing() 

Für die einen ist es einfach nur eine Freihandlinie, für die anderen die längste Mausspur der Welt...

[STARGÅTE]

da muss ich ja selber "arbeiten":

dann lieber arbeiten lassen:

Code: Alles auswählen

Global DesktopOutput_Memory = AllocateMemory(1024) 
Procedure.l DesktopOutput() 
 PokeL(DesktopOutput_Memory, 1) 
 ProcedureReturn DesktopOutput_Memory 
EndProcedure 
StartDrawing(DesktopOutput()) 
alt.POINT
neu.POINT
alt\x = 512
alt\y = 384
 Repeat 
  neu\x = alt\x+Random(4)-2
  neu\y = alt\y+Random(4)-2
  Line(alt\x, alt\y, neu\x-alt\x, neu\y-alt\y, Random(1<<24)) 
  alt\x=neu\x 
  alt\y=neu\y 
  If alt\x < 0 : alt\x + 1024 : EndIf
  If alt\x > 1023 : alt\x - 1024 : EndIf
  If alt\y < 0 : alt\x + 768 : EndIf
  If alt\y > 767 : alt\x - 768 : EndIf
 Until GetAsyncKeyState_(27) 
StopDrawing()