summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/fake-transparency.mp
blob: dfe7086052f6715c5cc5959e5cb8562cb99b58cd (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
\documentclass[border=5mm]{standalone}
\usepackage{luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
beginfig(1);
% parameters
u = 1cm;
ymax = xmax = 2.75;
xmin = ymin = -1.75;

% make a plain grid
path xx, yy;
xx = ((xmin,0) -- (xmax,0)) scaled u;
yy = ((0,ymin) -- (0,ymax)) scaled u;

drawoptions(dashed withdots scaled 1/4 withcolor 3/4 white);
for i = ceiling ymin upto floor ymax: draw xx shifted (0,i*u); endfor
for i = ceiling xmin upto floor xmax: draw yy shifted (i*u,0); endfor

drawoptions(withpen pencircle scaled .7);
xx := xx scaled 1.05;
yy := yy scaled 1.05;
drawarrow xx;
drawarrow yy;
drawoptions();

label.urt("A" infont defaultfont scaled 8, origin) withcolor 1/4 green;

% draw the "transparent" superellipse box
path se; 
%se = unitsquare shifted 1/2 down shifted 1/4 left scaled 3cm;
se = (superellipse(right, up, left, down, 0.81)) 
shifted 1/2 right scaled 30 rotated 30;

alpha = 5/8;  % alpha: 0=invisible, 1=opaque
color filler; filler = .95[red,white];
picture fg, bg;
bg = currentpicture;
fg = image( 
  for e within bg:
    draw e withcolor alpha[colorpart e, filler];
  endfor
  draw se withpen pencircle scaled 2 withcolor 3/4;
  draw subpath (2.718, 3.1415) of se
      shifted - center se scaled 7/8 shifted + center se
      withpen pencircle scaled 2 withcolor white;

);
clip fg to se; 

fill se withcolor filler; 
draw fg;
draw se withcolor 3/4 blue;
endfig;
\end{mplibcode}
\end{document}