summaryrefslogtreecommitdiff
path: root/language/swedish/slatex/macros/bezier.sst
blob: 1b805eea43aaa9153b44172498deeea4080e5b71 (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
!newcounter<@sc>
!newcounter<@scp>
!newcounter<@t>
!newlength<!@x>
!newlength<!@xa>
!newlength<!@xb>
!newlength<!@y>
!newlength<!@ya>
!newlength<!@yb>
!newsavebox<!@pt>
!def!bezier#1(#2,#3)(#4,#5)(#6,#7)<!c@@sc#1!relax
!c@@scp!c@@sc !advance!c@@scp!@ne
!@xb #4!unitlength !advance!@xb -#2!unitlength !multiply!@xb !tw@
!@xa #6!unitlength !advance!@xa -#2!unitlength
!advance!@xa -!@xb !divide!@xa!c@@sc
!@yb #5!unitlength !advance!@yb -#3!unitlength !multiply!@yb !tw@
!@ya #7!unitlength !advance!@ya -#3!unitlength
!advance!@ya -!@yb !divide!@ya!c@@sc
!setbox!@pt!hbox<!vrule height!@halfwidth depth!@halfwidth
width!@wholewidth>!c@@t!z@
!put(#2,#3)<!@whilenum<!c@@t!<!c@@scp>!do
<!@x!c@@t!@xa !advance!@x!@xb !divide!@x!c@@sc !multiply!@x!c@@t
!@y!c@@t!@ya !advance!@y!@yb !divide!@y!c@@sc !multiply!@y!c@@t
!raise !@y !hbox to !z@<!hskip !@x!unhcopy!@pt!hss>!advance!c@@t!@ne>>>