mirror of https://github.com/minexew/Shrine.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
1.2 KiB
64 lines
1.2 KiB
U0 RandPts() |
|
{ |
|
I64 i; |
|
F64 t0=tS; |
|
do { |
|
for (i=0;i<1024;i++) { |
|
gr.dc->color=RandU16&15; |
|
GrPlot(gr.dc,RandU32%GR_WIDTH,RandU32%GR_HEIGHT); |
|
} |
|
Yield; |
|
} while (tS-t0<1); |
|
DCFill; |
|
} |
|
|
|
U0 RandDemo() |
|
{ |
|
I64 i; |
|
|
|
"Seed(0) will do timer XORed random numbers. " |
|
"A task starts with $LK,"Seed(0)",A="FF:::/Kernel/KTask.HC,Seed("$ by dft.\n"; |
|
PressAKey; |
|
Seed; |
|
RandPts; |
|
DCFill; |
|
|
|
"\nSeed(num) will do deterministic, non-timer random numbers starting at " |
|
"a specific seed. You can run a specific video game over and over " |
|
"by typing Seed(num) at the cmd line before the game.\n"; |
|
PressAKey; |
|
Seed(1); |
|
RandPts; |
|
DCFill; |
|
|
|
"\n\n\nWatch when we specify specific seeds:"; |
|
|
|
"\n\nSeed(1);\n"; |
|
Seed(1); |
|
for (i=0;i<5;i++) |
|
"%d: %d\n",i,RandI16; |
|
|
|
"\nSeed(2); Different, right?\n"; |
|
Seed(2); |
|
for (i=0;i<5;i++) |
|
"%d: %d\n",i,RandI16; |
|
|
|
"\nSeed(1); Repeats earlier values.\n"; |
|
Seed(1); |
|
for (i=0;i<5;i++) |
|
"%d: %d\n",i,RandI16; |
|
|
|
"\nSeed(0); Zero is special.\n"; |
|
Seed(0); |
|
for (i=0;i<5;i++) |
|
"%d: %d\n",i,RandI16; |
|
|
|
"\nSeed(0); Non-repeating.\n"; |
|
Seed(0); |
|
for (i=0;i<5;i++) |
|
"%d: %d\n",i,RandI16; |
|
|
|
Seed; //Dft should be kept to zero. |
|
} |
|
|
|
RandDemo;
|
|
|