File: ex29

package info (click to toggle)
pmw 1%3A5.22-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,884 kB
  • sloc: ansic: 32,919; sh: 501; makefile: 389; fortran: 1
file content (23 lines) | stat: -rw-r--r-- 427 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
unfinished
nocheck
notime
notespacing *1.2

draw blip
  linegapx linegapy moveto
  0 linegapx 2 mul lineto
  linegapx neg linegapy neg lineto
  0.3 setlinewidth stroke
enddraw  

draw ped
  0 0 moveto "\**163\ " show
enddraw  

*define ped  [line/=P/b/h/ol/d4 linegap/h0/w30/draw ped]   
*define blip [linegap/=P/draw blip] 
*define ep   [endline/=P]

[stave 1 bass 0]
r- &ped %a &blip b-_; b-; e &blip a`-_ |
a`- G` &ep r-r |