all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sierpinski-triangle/PureBasic/sierpinski-triangle.purebasic
+++ b/Task/Sierpinski-triangle/PureBasic/sierpinski-triangle.purebasic
@ -0,0 +1,20 @@
+Procedure Triangle (X,Y, Length, N)
+   If N = 0
+      DrawText( Y,X, "*",#Blue)
+   Else
+      Triangle (X+Length,          Y, Length/2, N-1)
+      Triangle (X,   Y+Length,        Length/2, N-1)
+      Triangle (X+Length, Y+Length*2, Length/2, N-1)
+   EndIf
+EndProcedure
+
+
+OpenWindow(0, 100, 100,700,500 ,"Sierpinski triangle",  #PB_Window_SystemMenu |1)
+StartDrawing(WindowOutput(0))
+   DrawingMode(#PB_2DDrawing_Transparent )
+   Triangle(10,10,120,5)
+StopDrawing()
+
+Repeat
+Until WaitWindowEvent()=#PB_Event_CloseWindow
+End