Sierpinski triangle/Graphical: Difference between revisions
added FreeBasic
mNo edit summary |
(added FreeBasic) |
||
Line 410:
</lang>
=={{header|FreeBASIC}}==
<lang FreeBASIC>' version 06-07-2015
' compile with: fbc -s console or with: fbc -s gui
#Define black 0
#Define white RGB(255,255,255)
Dim As Integer x, y
Dim As Integer order = 9
Dim As Integer size = 2 ^ order
ScreenRes size, size, 32
Line (0,0) - (size -1, size -1), black, bf
For y = 0 To size -1
For x = 0 To size -1
If (x And y) = 0 Then PSet(x, y) ' ,white
Next
Next
' empty keyboard buffer
While Inkey <> "" : Var _key_ = Inkey : Wend
WindowTitle "Hit any key to end program"
Sleep
End</lang>
=={{header|gnuplot}}==
Generating X,Y coordinates by the ternary digits of parameter t.
| |||