Pseudorandom number generator image: Difference between revisions
Content added Content deleted
(Pseudorandom number generator image en FreeBASIC) |
(Added XPL0 example.) |
||
Line 517: | Line 517: | ||
static draw(dt) {} |
static draw(dt) {} |
||
}</lang> |
}</lang> |
||
=={{header|XPL0}}== |
|||
The PRNG is built in to the language (as well as graphics) and is seeded with the time-of-day. |
|||
<lang XPL0>int X, Y; |
|||
[SetVid($11B); \VESA 1280x1024x24 |
|||
for Y:= 0 to 1000-1 do |
|||
for X:= 0 to 1000-1 do |
|||
Point(X, Y, Ran($100_0000)); |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
Same as Delphi's image. |
|||
</pre> |