blob: db0b5f650d4406dddb7e2c93583dfa9ff02a246e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
%D \module
%D [ file=thrd-ran,
%D version=1998.01.21,
%D title=\CONTEXT\ Support Macros,
%D subtitle=Random Number Generation,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. Non||commercial use is
%C granted.
\writestatus{loading}{Third Party Macros / Random Number Generation}
%D \macros
%D {getrandomcount, getrandomdimen,
%D getrandomfloat, getrandomnumber}
%D
%D This module load Donald Arseneau's generic file
%D \type{random.tex}. A small shell is needed because we
%D redefine some \TEX\ primitives. We also use different names
%D for the two generators and add an extra one.
%D
%D \starttypen
%D \getrandomcount \countregister {minimum} {maximum}
%D \getrandomdimen \dimenregister {minimum} {maximum}
%D \getrandomnumber \macroname {minimum} {maximum}
%D \getrandomfloat \macroname {minimum} {maximum}
%D \stoptypen
%D
%D Of course the file \type{random.tex} needs to be present.
\readfile{random.tex}
{\writestatus{loading}{Donald Arseneau's 'random.tex' (found)}}
{\writestatus{loading}{Donald Arseneau's 'random.tex' (not found)}}
\ifx\nextrandom\undefined
\def\setrannum#1#2#3{#1=1 }
\def\setrandim#1#2#3{#1=1pt}
\else
\let\normalnextrandom=\nextrandom
\def\nextrandom%
{\bgroup
\let\time =\normaltime
\let\day =\normalday
\let\month=\normalmonth
\let\year =\normalyear
\normalnextrandom
\global\let\nextrandom=\normalnextrandom
\egroup}
\fi
\let\getrandomcount = \setrannum
\let\getrandomdimen = \setrandim
\def\getrandomnumber#1#2#3%
{\getrandomcount{\scratchcounter}{#2}{#3}%
\edef#1{\the\scratchcounter}}
\def\getrandomfloat#1#2#3%
{\getrandomdimen{\scratchdimen}{#2pt}{#3pt}%
\edef#1{\withoutpt\the\scratchdimen}}
\endinput
|
