summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Region.m4
blob: e4cde3549170d417220a45fabd464da084a0bc96 (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
.PS
# Region.m4
# https://tex.stackexchange.com/questions/606088/how-can-i-plot-in-latex
gen_init

  grsize = 3.3
  maxaxis = 4.5
  define Grid { (($1+maxaxis)/(2*maxaxis)*grsize-grsize/2,\
                 ($2+maxaxis)/(2*maxaxis)*grsize-grsize/2) }

thinlines_
  box wid grsize ht grsize with .c at (0,0)
  tic = 0.05
  for x=-maxaxis to maxaxis by 0.5 do {
    line up tic from Grid(x,-maxaxis)
    y = abs(x)
    { if y/2 == int(y/2+0.5) then { sprintf("%g",x) at last line.start below } }
    line down tic from Grid(x,maxaxis)
    line right tic from Grid(-maxaxis,x)
    { if y/2 == int(y/2+0.5) then { sprintf("%g",x) at last line.start rjust } }
    line left tic from Grid(maxaxis,x)
    }
thicklines_

  n = 10
  ylim = 3
  for i=0 to n do { y = i/n*ylim
    P[i]: Grid(sqrt(1+y^2),y) 
    P[-i]:( P[i].x,-P[i].y)
    Q[i]: (-P[i].x, P[i].y)
    Q[-i]:(-P[i].x,-P[i].y) }
  rgbfill(0.6,0.6,0.8,
    fitcurve(P,n,,-n)
    line to (P[n].x,P[n].x) then to (Q[-n].x,Q[-n].x) then to Q[-n]
    fitcurve(Q,n,,-n)
    line to (Q[n].x,-Q[n].x) then to (P[-n].x,-P[-n].x) then to P[-n] )
  
.PE