summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/doc/woodchips.m4
blob: e792c135085969ccd1f9fa0fd1b50af534c1bb10 (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
divert(-1)
# `woodchips.m4'

define(`grid',`[
  psset_(linecolor=lightgray)
  B: box invis wid 1.0 ht 0.3
  d = 0.08
  for x=B.ht to B.wid by d do {
    line from B.nw+(x,0) thick 0.4 down B.ht left B.ht }
  psset_(linecolor=black)
 ]')

divert(0)dnl
.PS
sinclude(Circuit_macros.dim)
s_init(woodchips)

  G: grid
  f_box(Wood chips) with .w at G

  f_box(color "lightgray" thickness 2 rad 2pt__,"\huge$n^{%g}$",4-1) \
   with .w at G.e+(1.2,0)

.PE