summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/slideshow/sshowex.mp
blob: dc1414ced8eb0965f1bdb79f4d1a01241214c886 (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
 input slideshow;
 pair points[];
 nextfig;
   points0 = (.5lawidth, .9laheight);
   ypart points1 = ypart points2 = .1laheight;
   xpart points1 = lawidth - xpart points2 = .3lawidth;

   pickup thin nib;

   draw points1..points0 withcolor textcolour;
   hyperdest("start");
 endfig;
 
 % build on previous slide for next few
 continue;
 nextfig;
   pickup thin nib;

   draw points0..points2 withcolor textcolour;
 endfig;
 nextfig;
   pickup thin nib;

   draw points2..points1 withcolor textcolour;
 endfig;

 nextfig;
   blabel.top("A", points0);
 endfig;
 nextfig;
   blabel.lft("B", points1);
 endfig;
 nextfig;
   blabel.rt("C", points2);
 endfig;

 % new sequence of slides ...
 discontinue;
 nextfig;
   hyperlabel("The End" infont defaultfont scaled magstep 2, (.5lawidth, .5laheight), "start");
 endfig;
 end