File: woodchips.m4

package info (click to toggle)
circuit-macros 10.1.4-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 6,532 kB
  • sloc: makefile: 909; sh: 49
file content (24 lines) | stat: -rw-r--r-- 449 bytes parent folder | download | duplicates (6)
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