PureBoard

Verfasst: **15.07.2006 20:55**

Hab mal ein Programm geschrieben, was den direkten Desktopoutput zum Zeichnen benutzt.
Dabei wird über den gesamten Desktop ein Rechteck im XOr - Modus gezeichnet (Effekt: Farben umkehren).
Da der Effekt nach 100 ms wieder rückgängig gemacht wird und nach weiteren 100ms wieder erscheint, führt das zu einem sehr bunten Resultat (kann User aber auch ganz schön nerven, daher der Name).
Sieht eigentlich ganz witzig aus.
Andere Programme können jedoch gleichzeitig laufen und sind weiterhin nutzbar.
Zudem ist der Code sehr kurz:

Code: Alles auswählen

Global *mem=AllocateMemory(1024)
Procedure.l DesktopOutput()  ;ermittelt den Output des Desktop
	mem=PokeL(*mem,1)
	ProcedureReturn mem
EndProcedure

ExamineDesktops()
w=DesktopWidth(0)  ;ermittelt Breite des Desktops
h=DesktopHeight(0)  ;ermittelt Höhe des Desktops

Repeat
Delay(100)
StartDrawing(Desktopoutput())
	DrawingMode(2)  ;XOr - Modus einschalten
	Box(0,0,w,h)       ;Rechteck zeichnen
StopDrawing()
Delay(100)
InvalidateRect_(0,0,0)  ;Auf den Desktop Gezeichnetes löschen
Until GetAsyncKeyState_(#VK_END) ;bis ENDE-Taste gedrückt wird
InvalidateRect_(0,0,0)

Verfasst: **15.07.2006 21:14**

hübsche sinnlose Spielerei

hier mal ohne Extra Procedure:

Code: Alles auswählen

*mem.Long = AllocateMemory(1024)
*mem\l = 1

ExamineDesktops()
w=DesktopWidth(0)  ;ermittelt Breite des Desktops
h=DesktopHeight(0)  ;ermittelt Höhe des Desktops

Repeat
Delay(100)
StartDrawing(*mem)
   DrawingMode(2)  ;XOr - Modus einschalten
   Box(0,0,w,h)       ;Rechteck zeichnen
StopDrawing()
Delay(100)
InvalidateRect_(0,0,0)  ;Auf den Desktop Gezeichnetes löschen
Until GetAsyncKeyState_(#VK_END) ;bis ENDE-Taste gedrückt wird
InvalidateRect_(0,0,0)

Verfasst: **15.07.2006 21:17**

autsch...

nerven is gut... dein proggi braucht ne epilepsiewarnung in riesengroßer schrift..

Verfasst: **15.07.2006 21:26**

Also ich finds gut!

Verfasst: **16.07.2006 11:05**

Wer so einen Blödsin programmiert und noch veröffentlicht gehört m.E. in die Klapse

-- oder kommt er von dort und kann einfach nicht anders. Dann habe einfach nur Mitleid. Mitleid mit dem, der die Entlassung unterschrieben hat.

Verfasst: **17.07.2006 08:53**

Kann mal jemand erklären wie das funktioniert?
Ist mir vollkommen unklar das eine beliebig Speicheradresse:

Code: Alles auswählen

*mem.Long = AllocateMemory(1024)

zum zeichnen auf den Desktop verwendet werden kann:

Code: Alles auswählen

StartDrawing(*mem)

Ist das jetzt Zufall oder ein echtes Feature?

Verfasst: **17.07.2006 10:00**

kA, hab ich auch schon überlegt...

aber sonst -> Cooles Prog

Verfasst: **10.01.2007 10:54**

Hallo,
ich hab mich damit ein wenig gespielt und bin fasziniert. Mich stört allerdings dieses flackern beim neuzeichnen. Kann man das irgendwie lösen?
lg

Verfasst: **10.01.2007 15:54**

Sry wenn ich einfach deine Frage umgehe

aber ich wollte auch noch ein Code mit reinschreiben der auch etwas mit dem Desktop spielt :

Schusslöcher im Bildschirm + Risse

Code: Alles auswählen

Global Mem.l 
Mem = AllocateMemory(1, 1024)

Procedure.l DesktopOutput() 
  PokeL(Mem, 1) 
  ProcedureReturn Mem 
EndProcedure 

b.f = 3.14159265/180

Repeat
  Delay(10)
  StartDrawing(DesktopOutput() ) 
   If Random(200) = 0
    x = Random(GetSystemMetrics_(0))
    y = Random(GetSystemMetrics_(1))
    r = Random(4)+4
    For n = 1 To r*2
     ax = x
     ay = y
     w = Random(359)
     Repeat
      bx = ax+Cos((w+Random(12)-6)*b)*(Random(40)+40)
      by = ay+Sin((w+Random(12)-6)*b)*(Random(40)+40)
      LineXY(ax-1, ay  , bx-1, by  , RGB(128,128,128))
      LineXY(ax  , ay-1, bx  , by-1, RGB(128,128,128))
      LineXY(ax-1, ay-1, bx-1, by-1, RGB(0,0,0))
      LineXY(ax  , ay  , bx  , by  , RGB(255,255,255))
      ax = bx
      ay = by
     Until bx < 0 Or bx > GetSystemMetrics_(0) Or by < 0 Or by > GetSystemMetrics_(1)    
     z = r+Random(r)
     ww = Random(359)
     For xx = -r/2 To r/2 :
      For yy = -r/2 To r/2 :
       LineXY(x+xx,y+yy,x+Cos(ww*b)*z,y+Sin(ww*b)*z, RGB(0,0,0))
      Next yy
     Next xx
    Next n
    Circle(x  ,y  ,r/2+4, RGB(128,128,128))
    Circle(x  ,y  ,r/2+3, RGB(0,0,0))
    For n = 1 To r
    Next n
   EndIf
  StopDrawing() 

Until GetAsyncKeyState_(#VK_ESCAPE)
End

und

Wasser läuft am Desktop runter

Code: Alles auswählen

Global Mem.l 
Mem = AllocateMemory(1, 1024)

Procedure.l DesktopOutput() 
  PokeL(Mem, 1) 
  ProcedureReturn Mem 
EndProcedure 

Global xx, yy
xx = GetSystemMetrics_(0)
yy = GetSystemMetrics_(1)

Procedure Weich(PosX, PosY)
  x = Random(60)-30
  y = Random(60)-30
   F0 = Point(PosX+x  ,PosY+y  )
   F1 = Point(PosX+x-1,PosY+y  )
   F2 = Point(PosX+x  ,PosY+y-1)
   F3 = Point(PosX+x+1,PosY+y  )
   F4 = Point(PosX+x  ,PosY+y+1)
   F5 = Point(PosX+x-1,PosY+y-1)
   F6 = Point(PosX+x+1,PosY+y-1)
   F7 = Point(PosX+x+1,PosY+y+1)
   F8 = Point(PosX+x-1,PosY+y+1)
   R_RGB = (Red(F0)+Red(F1)+Red(F2)+Red(F3)+Red(F4)+Red(F5)+Red(F6)+Red(F7)+Red(F8))/9
   G_RGB = (Green(F0)+Green(F1)+Green(F2)+Green(F3)+Green(F4)+Green(F5)+Green(F6)+Green(F7)+Green(F8))/9
   B_RGB = (Blue(F0)+Blue(F1)+Blue(F2)+Blue(F3)+Blue(F4)+Blue(F5)+Blue(F6)+Blue(F7)+Blue(F8))/9
   If PosX+x > -1 And PosY+y > -1 : Box(PosX+x, PosY+y, 2, 2, RGB(R_RGB, G_RGB, B_RGB)) : EndIf
EndProcedure

b.f = 3.14159265/180

Repeat

  StartDrawing(DesktopOutput())

   For y = 1 To yy-2 Step 2
    For x = 1 To xx-2 Step 2
     Weich(x, y)
    Next x
    Delay(5)
    If GetAsyncKeyState_(#VK_ESCAPE) : InvalidateRect_(0, 0, 0) : End : EndIf  
   Next y   
 
  StopDrawing() 

ForEver

PureBoard

Terror of Colors

Terror of Colors