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
|
defproc xxx($txt, $ent, $note="")
{
a,$ent;
if $txt=="hooray" then {
a->$ent: special label is \c(red)\Q($txt).;
} else
a->$ent: label is \Q($txt).;
if $txt=="hooray" then
a->$ent: special label is \c(red)\Q($txt). []
else
a->$ent: label is \Q($txt).;
$ent->$$~c [label=aa];
if $note then {
defstyle note [text.bgcolor=red];
note [label=$note];
};
if $note then note [label=$note];
};
defstyle kk [text.color=red];
a->b: h\s(kk)h\s()h;
replay xxx("h\s(kk)h\r(aa)", b);
replay xxx("c\s(kk)c", d);
replay xxx("hooray", d, "yesyes");
defproc errors($note)
{
if;
if note:aa;
if $note note: aa;
if $note;
if $note then;
if $note then note:aa []
else
if $note then note:aa []
else;
};
|
