

Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
Code: Alles auswählen
;Das Haus vom Nikolaus.
OpenWindow(0,10,10,120,190,#PB_Window_SystemMenu ,"Draw house of Nicolaus")
Outputid=WindowOutput()
StartDrawing(Outputid)
Plot(10,180,Red(254))
For i=1 To 100
Plot(10,180-i,Red(254))
Delay(10)
Next i
For i=1 To 50
Plot(10+i,80-i,Red(254))
Delay(10)
Next i
For i=1 To 50
Plot(60+i,30+i,Red(254))
Delay(10)
Next i
For i=1 To 100
Plot(110-i,80+i,Red(254))
Delay(10)
Next i
For i=1 To 100
Plot(10+i,180,Red(254))
Delay(10)
Next i
For i=1 To 100
Plot(110,180-i,Red(254))
Delay(10)
Next i
For i=1 To 100
Plot(110-i,80,Red(254))
Delay(10)
Next i
For i=1 To 100
Plot(10+i,80+i,Red(254))
Delay(10)
Next i
StopDrawing()
Repeat: Until WaitWindowEvent()= #PB_Event_CloseWindow
Code: Alles auswählen
CreateImage(0, 120, 190)
If OpenWindow(0,10,10,120,190,#PB_Window_SystemMenu | #PB_Window_Invisible ,"Draw house of Nicolaus") And CreateGadgetList(WindowID(0))
ImageGadget(0, 0, 0, 120, 190, UseImage(0))
StartDrawing(ImageOutput())
Box(0, 0, 120, 190, #White)
Plot(10,180,Red(254))
For i=1 To 100
Plot(10,180-i,Red(254))
Plot(110-i,80+i,Red(254))
Plot(10+i,180,Red(254))
Plot(110,180-i,Red(254))
Plot(110-i,80,Red(254))
Plot(110-i,80,Red(254))
Plot(10+i,80+i,Red(254))
Next i
For i=1 To 50
Plot(10+i,80-i,Red(254))
Plot(60+i,30+i,Red(254))
Next i
StopDrawing()
SetGadgetState(0, UseImage(0))
HideWindow(0, 0)
Else
End
EndIf
Repeat: Until WaitWindowEvent()= #PB_Event_CloseWindow