File: Rotbox.m4

package info (click to toggle)
texlive-base 2024.20250309-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 1,058,192 kB
  • sloc: perl: 44,903; sh: 5,008; makefile: 4,278; javascript: 3,034; ruby: 2,428; tcl: 2,131; xml: 1,874; python: 1,385; pascal: 1,249; cpp: 549; awk: 512; lisp: 447; ansic: 103; sed: 8
file content (17 lines) | stat: -rw-r--r-- 435 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
.PS
# Rotbox.m4
gen_init

  Point_(-10)
  rotbox(boxwid/2,,thick 2)
  Point_(30)
  rotbox(,,shaded "yellow" outlined "blue" thick 3,r=0.1) \
    at last [].se+vec_(boxwid,0)
  "r=0.1" at last []
  move to last [].ne
  Point_(0)
  [[]; for_(2,16,2, `rotbox(,,dashed,t=m4x/10) with .nw at \
    ifelse(m4x,10,`2nd [].sw+(0,-0.1)',`last [].ne+(boxwid*0.1,0)')
    sprintf("t=%g",m4x/10) at last []') ] with .sw at last [].se+(0.1,0)

.PE