OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [mmix.mp] - Blame information for rev 54

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 15 hellwig
% illustrations for mmix.w
2
 
3
beginfig(1)
4
numeric r; r=.5in; % radius of circle
5
numeric rr; rr=.9in; % radius of arc
6
 
7
pickup pencircle scaled .6pt;
8
draw (r,0){up}...(0,r){left}...(-r,0){down}...(0,-r){right}...cycle;
9
pickup pencircle scaled .3pt;
10
for a=-45, 30, 180:
11
  z[a]=(r+10pt,0) rotated (a+10);
12
  draw ((r-4pt,0)--(r+20pt,0)) rotated a;
13
endfor
14
label.rt(btex $\alpha$ etex,z[-45]-(2pt,6pt));
15
label.rt(btex $\beta$ etex,z[30]+(0,2pt));
16
label.lft(btex $\gamma$ etex,z[180]);
17
 
18
drawdblarrow ((rr,0) rotated-45){dir 45}...((rr,0) rotated 30){dir 120};
19
label.rt(btex $L$ etex,(rr+8pt,0) rotated -10);
20
endfig;
21
 
22
bye.
23
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.