HudLac

abcm2ps – Operadores PostScript

Operadores PostScript de abcm2ps


Operadores PostScript de abcm2ps


abcm2ps-5.9.6

IR PARA O ÍNDICE IR PARA O INÍCIO


!


	Abreviação para `bind def'
/!{bind def}bind def

IR PARA O ÍNDICE IR PARA O INÍCIO


bdef


	Abreviação para `bind def'.

Ver também `!'
/bdef{bind def}!

IR PARA O ÍNDICE IR PARA O INÍCIO


T


	Abreviação para `translate'.
/T/translate load def

IR PARA O ÍNDICE IR PARA O INÍCIO


M


	Abreviação para `moveto'.
/M/moveto load def

IR PARA O ÍNDICE IR PARA O INÍCIO


RM


	Abreviação para `rmoveto'.

/RM/rmoveto load def

IR PARA O ÍNDICE IR PARA O INÍCIO


RL


	Abreviação para `rlineto'.
/RL/rlineto load def

IR PARA O ÍNDICE IR PARA O INÍCIO


RC


	Abreviação para `rcurveto'.
/RC/rcurveto load def

IR PARA O ÍNDICE IR PARA O INÍCIO


SLW


	Abreviação para `setlinewidth'.
	(Introduzido com abcm2ps-4.8.3)

/SLW/setlinewidth load def

IR PARA O ÍNDICE IR PARA O INÍCIO


defl


	Sinalizador para decorações (deco flags). Retorna um número
	que armazena informação sobre o estado de uma decoração longa
	(início/fim) e a direção da haste da nota (abaixo/acima).
	
	- O bit menos significativo indica se uma decoração longa está
	começando (0) ou é uma continuação (1) [extremidade esquerda];

	- O segundo bit menos significativo indica se uma decoração
	longa está terminando (0) ou será continuada (1) [extremidade
	direita];

	- O terceiro bit indica se a haste da nota está para baixo (0)
	ou para cima (1).
	
	(Introduzido com abcm2ps-4.8.0)
	(O código abaixo é apenas para inicialização.)
	(Ver exemplos de uso: `cresc' e `dim')

- defl n
/defl 0 def

IR PARA O ÍNDICE IR PARA O INÍCIO


dlw


	Usa (define) a espessura de linha default.
/dlw{0.7 SLW}!

IR PARA O ÍNDICE IR PARA O INÍCIO


languagelevel

/languagelevel where{pop}{/languagelevel 1 def}ifelse
languagelevel 1 eq{
 /rectstroke{
	4 2 roll M 1 index 0 RL 0 exch RL neg 0 RL closepath
	stroke}!
 /rectfill{
	4 2 roll M 1 index 0 RL 0 exch RL neg 0 RL closepath
	fill}!
 /selectfont{exch findfont exch dup
	type/arraytype eq{makefont}{scalefont}ifelse setfont}!
 /product where{pop}{/product()def}ifelse
 }if

IR PARA O ÍNDICE IR PARA O INÍCIO


creator


	Armazena o número da versão de abcm2ps.
	(Novo em abc2ps-5.2.3)
/creator [(abcm2ps) 5 9 6] def

IR PARA O ÍNDICE IR PARA O INÍCIO


xymove


	Move para o ponto especificado e salva suas coordenadas nas
	variáveis `x' e `y'.

x y xymove
/xymove{/x 2 index def/y 1 index def M}!

IR PARA O ÍNDICE IR PARA O INÍCIO


showc


	Imprime texto centralizado no ponto corrente.

str showc

/showc{dup stringwidth pop .5 mul neg 0 RM show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


showr


	Imprime texto alinhado à direita.

str showr
/showr{dup stringwidth pop neg 0 RM show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


showb


	Imprime texto em uma caixa.

str showb
/showb{	dup currentpoint 3 -1 roll show
	.6 SLW
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


tclef


	Clave de sol (treble clef)

x y tclef

/tclef{	M
	-1.9 3.7 RM
	-3.3 1.9 -3.1 6.8 2.4 8.6 RC
	7 0 9.8 -8 4.1 -11.7 RC
	-5.2 -2.4 -12.5 0 -13.3 6.2 RC
	-0.7 6.4 4.15 10.5 10 15.3 RC
	4 4 3.6 6.1 2.8 9.6 RC
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 RC
	0.8 -12.2 3.4 -17.3 3.5 -26.3 RC
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 RC
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 RC
	3.9 1.9 6.1 -4.6 1.4 -4.8 RC
	0.7 -1.2 4.6 -0.8 4.2 4.2 RC
	-0.2 10.3 -3 15.7 -3.5 28.3 RC
	0 4.1 0.6 7.4 5 10.6 RC
	2.3 -3.2 2.9 -10 1 -12.7 RC
	-2.4 -4.3 -11.5 -10.3 -11.8 -15 RC
	0.4 -7 6.9 -8.5 11.7 -6.1 RC
	3.9 3 1.3 8.8 -3.7 8.1 RC
	-4 -0.2 -4.8 -3.1 -2.7 -5.7 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


stclef


	Clave de sol em tamanho pequeno
/stclef{gsave T .85 dup scale 0 0 tclef grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


octu


	Indicação de 8a. acima para claves

x y octu
/octu{/Times-Roman 12 selectfont M -1.5 36 RM(8)show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


octl


	Indicação de 8a. abaixo para claves

x y octl

/octl{/Times-Roman 12 selectfont M -3.5 -19 RM(8)show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


bclef


	Clave de fá (bass clef)

x y bclef
/bclef{	M
	-8.8 3.5 RM
	6.3 1.9 10.2 5.6 10.5 10.8 RC
	0.3 4.9 -0.5 8.1 -2.6 8.8 RC
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 RC
	1.8 3.1 6.1 -0.6 3.1 -3 RC
	-3 -1.4 -5.7 2.3 -1.9 7 RC
	2.6 2.3 11.4 0.6 10.1 -8 RC
	-0.1 -4.6 -5 -10.2 -13.3 -11.5 RC
	16 17.5 RM currentpoint 1.1 0 360 arc
	-1.1 -6 RM currentpoint 1.1 0 360 arc
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sbclef


	Clave de fá em tamanho pequeno
/sbclef{gsave T .85 dup scale 0 3 bclef grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


cchalf


	Elemento de composição para clave de dó

/cchalf{0 12 M
	2.6 5 RL
	2.3 -5.8 5.2 -2.4 4.7 1.6 RC
	0.4 3.9 -3 6.7 -5.1 4 RC
	4.1 0.5 0.9 -5.3 -0.9 -1.4 RC
	-0.5 3.4 6.5 4.3 7.8 -0.8 RC
	1.9 -5.6 -4.1 -9.8 -6 -5.4 RC
	-1.6 -3 RL
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


cclef


	Clave de dó

x y cclef
/cclef{	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.5 0 3 24 rectfill
	-0.5 0 M 0 24 RL 0.7 SLW stroke grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


scclef


	Clave de dó em tamanho pequeno
/scclef{gsave T .85 dup scale 0 2 cclef grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


pclef


	Clave de percussão

x y pclef

/pclef{	exch 2.7 sub exch 2 add 5.4 20
	1.4 SLW rectstroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


spclef


	Clave de percussão em tamanho pequeno
/spclef{pclef}!

IR PARA O ÍNDICE IR PARA O INÍCIO


bm


	Travessão (beam)

Desenha um travessão com profundidade t.

t dx dy x y bm
/bm{	M 3 copy RL neg 0 exch RL
	neg exch neg exch RL 0 exch RL fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


bnum


	Imprime número/proporção de quiálteras.

str x y num

/bnum{M/Times-Italic 12 selectfont showc}!

IR PARA O ÍNDICE IR PARA O INÍCIO


bnumb


	Imprime número/proporção de quiálteras em um fundo
	transparente.

str x y bnumb
/bnumb{	currentgray/Times-Italic 12 selectfont
	3 index stringwidth pop 4 add
	dup .5 mul neg 4 index add 3 index 3 -1 roll 8
	1.0 setgray rectfill setgray M showc}!

IR PARA O ÍNDICE IR PARA O INÍCIO


tubr


	Imprime colchete de quiáltera (acima).

dx dy x y tubr
/tubr{3 sub M 0 3 RL RL 0 -3 RL dlw stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


tubrl


	Imprime colchete de quiáltera (abaixo).

dx dy x y tubrl

/tubrl{3 add M 0 -3 RL RL 0 3 RL dlw stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r00


	Pausa de longa

x y r00
/r00{	xymove
	-1.5 -6 RM currentpoint 3 12 rectfill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r0


	Pausa de breve

x y r0
/r0{	xymove
	-1.5 0 RM currentpoint 3 6 rectfill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r1


	Pausa de semibreve

x y r1

/r1{	xymove
	-3.5 3 RM currentpoint 7 3 rectfill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r2


	Pausa de mínima

x y r2
/r2{	xymove
	-3.5 0 RM currentpoint 7 3 rectfill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r4


	Pausa de semínima

x y r4
/r4{	xymove
	-1 8.5 RM
	3.6 -5.1 RL
	-2.1 -5.2 RL
	2.2 -4.3 RL
	-2.6 2.3 -5.1 0 -2.4 -2.6 RC
	-4.8 3 -1.5 6.9 1.4 4.1 RC
	-3.1 4.5 RL
	1.9 5.1 RL
	-1.5 3.5 RL
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r8e


	Elemento de composição para pausas de colcheia, semicolcheia,
	etc.

/r8e{	-1.5 -1.5 -2.4 -2 -3.6 -2 RC
	2.4 2.8 -2.8 4 -2.8 1.2 RC
	0 -2.7 4.3 -2.4 5.9 -0.6 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r8


	Pausa de colcheia

x y r8
/r8{	xymove
	.5 SLW 3.3 4 RM
	-3.4 -9.6 RL stroke
	x y M 3.4 4 RM r8e}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r16


	Pausa de semicolcheia

x y r16
/r16{	xymove
	.5 SLW 3.3 4 RM
	-4 -15.6 RL stroke
	x y M 3.4 4 RM r8e
	x y M 1.9 -2 RM r8e}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r32


	Pausa de fusa

x y r32

/r32{	xymove
	.5 SLW 4.8 10 RM
	-5.5 -21.6 RL stroke
	x y M 4.9 10 RM r8e
	x y M 3.4 4 RM r8e
	x y M 1.9 -2 RM r8e}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r64


	Pausa de semifusa

x y r64
/r64{	xymove
	.5 SLW 4.8 10 RM
	-7 -27.6 RL stroke
	x y M 4.9 10 RM r8e
	x y M 3.4 4 RM r8e
	x y M 1.9 -2 RM r8e
	x y M 0.4 -8 RM r8e}!

IR PARA O ÍNDICE IR PARA O INÍCIO


r128


	Pausa de quartifusa

x y r128
/r128{	xymove
	.5 SLW 5.8 16 RM
	-8.5 -33.6 RL stroke
	x y M 5.9 16 RM r8e
	x y M 4.4 10 RM r8e
	x y M 2.9 4 RM r8e
	x y M 1.4 -2 RM r8e
	x y M -0.1 -8 RM r8e}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dt


	Ponto relativo à cabeça da nota

	(Até abcm2ps-4.11.0 era usado com apenas com deslocamento
	vertical: x dy dt)

dx dy dt

/dt{x y M RM currentpoint 1.2 0 360 arc fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hld


	Fermata

x y hld
/hld{	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 RM
	0 11.5 15 11.5 15 0 RC
	-0.25 0 RL
	-1.25 9 -13.25 9 -14.5 0 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dnb


	Arco para baixo

x y dnb
/dnb{	dlw M -3.2 2 RM
	0 7.2 RL
	6.4 0 RM
	0 -7.2 RL
	currentpoint stroke M
	-6.4 4.8 RM
	0 2.4 RL
	6.4 0 RL
	0 -2.4 RL
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


upb


	Arco para cima

x y upb

/upb{	dlw M -2.6 9.4 RM
	2.6 -8.8 RL
	2.6 8.8 RL
	stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


grm


	Ornamento: ~ (gracing mark)

x y grm
/grm{	M -5 2.5 RM
	5 8.5 5.5 -4.5 10 2 RC
	-5 -8.5 -5.5 4.5 -10 -2 RC fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


stc


	Staccato

x y stc
/stc{3 add M currentpoint 1.2 0 360 arc fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


emb


	Tenuto (emphasis bar)

x y emb

/emb{	1.2 SLW 1 setlinecap M
	-2.5 3 RM 5 0 RL stroke 0 setlinecap}!

IR PARA O ÍNDICE IR PARA O INÍCIO


cpu


	Roll acima da nota

x y cpu
/cpu{	M -6 0 RM
	0.4 7.3 11.3 7.3 11.7 0 RC
	-1.3 6 -10.4 6 -11.7 0 RC fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sld


	Slide

x y sld
/sld{	M -7.2 -4.8 RM
	1.8 -0.7 4.5 0.2 7.2 4.8 RC
	-2.1 -5 -5.4 -6.8 -7.6 -6 RC fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


trl


	Trilo (tr)

x y trl

/trl{	/Times-BoldItalic 16 selectfont
	M -4 2 RM(tr)show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


umrd


	Mordente superior

x y umrd
/umrd{	4 add M
	2.2 2.2 RL 2.1 -2.9 RL 0.7 0.7 RL
	-2.2 -2.2 RL -2.1 2.9 RL -0.7 -0.7 RL
	-2.2 -2.2 RL -2.1 2.9 RL -0.7 -0.7 RL
	2.2 2.2 RL 2.1 -2.9 RL 0.7 0.7 RL fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


lmrd


	Mordente inferior

x y lmrd
/lmrd{	2 copy umrd 8 add M
	.6 SLW 0 -8 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


fng


	Imprime número de dedilhado.

str x y fng

/fng{/Bookman-Demi 8 selectfont M -3 1 RM show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dacs


	Imprime D.C. ou D.S.

str x y dacs
/dacs{/Times-Roman 16 selectfont 3 add M showc}!

IR PARA O ÍNDICE IR PARA O INÍCIO


brth


	Cesura (breath)

Imprime uma vírgula.

x y brth
/brth{/Times-BoldItalic 30 selectfont 6 add M(,)show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


pf


	Imprime sinal de dinâmica (p, mf, f etc.)

str x y pf

/pf{/Times-BoldItalic 16 selectfont 5 add M show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sfz


	Sforzando (sfz)

(str não é utilizada)
str x y sfz
/sfz{	M -7 5 RM pop
	/Times-Italic 14 selectfont(s)show
	/Times-BoldItalic 16 selectfont(f)show
	/Times-Italic 14 selectfont(z)show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


coda


	Coda

x y coda
/coda{	1 SLW 2 add 2 copy M 0 20 RL
	2 copy M -10 10 RM 20 0 RL stroke
	10 add 6 0 360 arc 1.7 SLW stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sgno


	Segno

x y sgno

/sgno{	M 0 3 RM currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3 3.7 RC
	-10.4 7.8 -8 10.6 -6.5 11.9 RC
	4 1.9 5.9 -1.7 4.2 -2.6 RC
	-1.3 -0.7 -2.9 1.3 -0.7 2 RC
	-1.5 1.7 -6.4 -0.3 -3 -3.7 RC
	10.4 -7.8 8 -10.6 6.5 -11.9 RC
	-4 -1.9 -5.9 1.7 -4.2 2.6 RC
	1.3 0.7 2.9 -1.3 0.7 -2 RC
	fill
	M 0.8 SLW -6 1.2 RM 12.6 12.6 RL stroke
	7 add exch 6 sub exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


cresc


	Sinal de crescendo (<)

w x y cresc
/cresc{	1 SLW M dup 5 RM
	defl 1 and 0 eq
	{dup neg 4 RL 4 RL}
	{dup neg 2.2 RL 0 3.6 RM 2.2 RL}
	ifelse stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dim


	Sinal de diminuendo (>)

w x y dim
/dim{	1 SLW 5 add M
	defl 2 and 0 eq
	{dup 4 RL neg 4 RL}
	{dup 2.2 RL 0 3.6 RM neg 2.2 RL}
	ifelse stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dplus



	Decoração `+'

x y dplus
/dplus{	1.2 SLW 0.5 add M 0 6 RL
	-3 -3 RM 6 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


accent


	Acento `>'

x y accent
/accent{1.2 SLW M -4 2 RM
	8 2 RL -8 2 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


turn


	Grupeto (turn)

x y turn
/turn{	M 5.2 8 RM
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 RC
	-4.8 3.5 RL
	-3 2 -5.8 -1.8 -3.6 -4.4 RC
	1 -1.1 2 -0.8 2.1 0.1 RC
	0.1 0.9 -0.7 1.2 -1.9 0.6 RC
	-1.4 0.5 -0.9 4.8 2.2 2.8 RC
	4.8 -3.5 RL
	3 -2 5.8 1.8 3.6 4.4 RC
	-1 1.1 -2 0.8 -2.1 -0.1 RC
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


turnx


	Grupeto (turn) cortado por um traço vertical

x y turnx
/turnx{	2 copy turn M
	.6 SLW 0 1.5 RM 0 9 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


lphr


	Decoração `longphrase'

x y lphr

/lphr{1.2 SLW M 0 -18 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


mphr


	Decoração `mediumphrase'

x y mphr
/mphr{1.2 SLW M 0 -12 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sphr


	Decoração `shortphrase'

x y sphr
/sphr{1.2 SLW M 0 -6 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ltr


	Trilo longo (long trill)

len x y ltr

/ltr{	gsave 4 add T
	0 6 3 -1 roll{
		0 1 1{
			0 0.4 M
			2 1.9 3.4 2.3 3.9 0 curveto
			2.1 0 lineto
			1.9 0.8 1.4 0.7 0 -0.4 curveto
			fill
			pop 180 rotate -6 0 T
		}for
		pop 6 0 T
	}for
	grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


arp


	Arpejo (arpeggio)

len x ylow arp
/arp{gsave 90 rotate exch neg ltr grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


wedge


	Decoração `wedge'

x y wedge
/wedge{1 add M -1.5 5 RL 3 0 RL -1.5 -5 RL fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


opend


	Decoração `open' (corda solta ou harmônico natural)

x y opend

/opend{dlw M currentpoint 3 add 2.5 -90 270 arc stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


snap


	Decoração `snap'

x y snap
/snap{	dlw 2 copy M -3 6 RM
	0 5 6 5 6 0 RC
	0 -5 -6 -5 -6 0 RC
	5 add M 0 -6 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


thumb


	Decoração `thumb'

x y thumb
/thumb{	dlw 2 copy M -2.5 7 RM
	0 6 5 6 5 0 RC
	0 -6 -5 -6 -5 0 RC
	2 add M 0 -4 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


trem


	Tremolo sobre uma nota.
	(abcm2ps-5.9.0 em diante.)

n x y trem

/trem{	M -4.5 0 RM{
		currentpoint
		9 3 RL 0 -3 RL -9 -3 RL 0 3 RL
		fill 5.4 sub M
	}repeat}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hl


	Linha suplementar.
	Até abcm2ps-5.7.3 só usava argumento y.

x y hl
/hl{	.8 SLW M -6 0 RM 12 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hl1


	Linha suplementar um pouco larga.
	Até abcm2ps-5.7.3 só usava argumento y.

x y hl1
/hl1{	.8 SLW M -7 0 RM 14 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hl2


	Linha suplementar bastante larga
	(Para breve ou longa).
	Até abcm2ps-5.7.3 só usava argumento y.

x y hl2

/hl2{	.7 SLW M -9 0 RM 18 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sh0


	Sustenido

x y sh0
/sh0{	gsave T .9 SLW
	-1.2 -8.4 M 0 15.4 RL
	1.4 -7.2 M 0 15.4 RL stroke
	-2.6 -3 M 5.4 1.6 RL 0 -2.2 RL -5.4 -1.6 RL 0 2.2 RL fill
	-2.6 3.4 M 5.4 1.6 RL 0 -2.2 RL -5.4 -1.6 RL 0 2.2 RL fill
	grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ft0


	Bemol

x y ft0
/ft0{	gsave T .8 SLW
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 RC
	4.6 3.9 4.5 7.6 0 5.7 RC
	currentpoint fill M
	0 7.1 RM 0 -12.6 RL stroke
	grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


nt0


	Bequadro (natural)

x y nt0

/nt0{	gsave T .5 SLW
	-2 -4.3 M 0 12.2 RL
	1.3 -7.8 M 0 12.2 RL stroke
	2.1 SLW
	-2 -2.9 M 3.3 0.6 RL
	-2 2.4 M 3.3 0.6 RL stroke
	grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dsh0


	Dobrado sustenido

x y dsh0
/dsh0{	2 copy M .7 SLW
	-2 -2 RM 4 4 RL
	-4 0 RM 4 -4 RL stroke
	.5 SLW 2 copy M 1.3 -1.3 RM
	2 -0.2 RL 0.2 -2 RL -2 0.2 RL -0.2 2 RL fill
	2 copy M 1.3 1.3 RM
	2 0.2 RL 0.2 2 RL -2 -0.2 RL -0.2 -2 RL fill
	2 copy M -1.3 1.3 RM
	-2 0.2 RL -0.2 2 RL 2 -0.2 RL 0.2 -2 RL fill
	M -1.3 -1.3 RM
	-2 -0.2 RL -0.2 -2 RL 2 0.2 RL 0.2 2 RL fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ftx


	Bemol estreito

x y ftx
/ftx{	-1.4 2.7 RM
	5.7 3.1 5.7 -3.6 0 -6.7 RC
	3.9 4 4 7.6 0 5.8 RC
	currentpoint fill M
	dlw 0 7.1 RM 0 -12.4 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dft0


	Dobrado bemol

x y dft0

/dft0{2 copy M -2.5 0 RM ftx M 1.5 0 RM ftx}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gsc


	Função auxiliar para acidentes em notinhas (grace notes)
/gsc{gsave y T .7 dup scale 0 0}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sh1


	Sustenido de 1/4 de tom

x y sh1
/sh1{	gsave T .9 SLW
	0 -7.8 M 0 15.4 RL stroke
	-1.8 -2.7 M 3.6 1.1 RL 0 -2.2 RL -3.6 -1.1 RL 0 2.2 RL fill
	-1.8 3.7 M 3.6 1.1 RL 0 -2.2 RL -3.6 -1.1 RL 0 2.2 RL fill
	grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sh513


	Sustenido de 3/4 de tom

x y sh513

/sh513{	gsave T .8 SLW
	-2.5 -8.7 M 0 15.4 RL
	0 -7.8 M 0 15.4 RL
	2.5 -6.9 M 0 15.4 RL stroke
	-3.7 -3.1 M 7.4 2.2 RL 0 -2.2 RL -7.4 -2.2 RL 0 2.2 RL fill
	-3.7 3.2 M 7.4 2.2 RL 0 -2.2 RL -7.4 -2.2 RL 0 2.2 RL fill
	grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ft1


	Bemol de 1/4 de tom

x y ft1
/ft1{gsave -1 1 scale exch neg exch ft0 grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ft513


	Bemol de 3/4 de tom

x y ft513
/ft513{2 copy gsave -1 1 scale exch neg 3 add exch M ftx grestore
	M 1.5 0 RM ftx}!

IR PARA O ÍNDICE IR PARA O INÍCIO


accfont

/accfont{
	/CharStrings CharStrings dup length 3 add dict copy def
	FontMatrix 0 get 1 eq{
	 CharStrings/sharpchar{pop
		.60 0 0 -.10 .60 .75 setcachedevice
		.056 dup scale 5.8 6 sh0}bind put
	 CharStrings/flatchar{pop
		.60 0 0 0 .60 .78 setcachedevice
		.056 dup scale 5.8 5 ft0}bind put
	 CharStrings/natchar{pop
		.60 0 0 -.10 .60 .75 setcachedevice
		.056 dup scale 5.8 6 nt0}bind put
	 CharStrings/dsharpchar{pop
		.60 0 0 -.10 .60 .75 setcachedevice
		.056 dup scale 5.8 6 dsh0}bind put
	 CharStrings/dflatchar{pop
		.60 0 0 0 .60 .78 setcachedevice
		.056 dup scale 5.8 5 dft0}bind put
	}{
	 CharStrings/sharpchar{pop
		600 0 0 -100 600 750 setcachedevice
		56 dup scale 5.8 6 sh0}bind put
	 CharStrings/flatchar{pop
		600 0 0 0 600 780 setcachedevice
		56 dup scale 5.8 5 ft0}bind put
	 CharStrings/natchar{pop
		600 0 0 -100 600 750 setcachedevice
		56 dup scale 5.8 6 nt0}bind put
	 CharStrings/dsharpchar{pop
		600 0 0 -100 600 750 setcachedevice
		56 dup scale 5.8 6 dsh0}bind put
	 CharStrings/dflatchar{pop
		600 0 0 0 600 780 setcachedevice
		56 dup scale 5.8 5 dft0}bind put
	 }ifelse
	product(RoPS)eq FontType 3 eq and{
		/TTBuildChar/BuildChar load def
		/BuildChar{1 index begin
			dup Encoding exch get
			CharStrings exch get
			end
			dup type/integertype eq{
				pop 1 index/TTBuildChar get exec
			}{
				exec pop
			}ifelse
		}bind def
	}if
	}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gcshow


	Imprime acorde cifrado (guitar chord).

str gcshow
/gcshow{show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


box


	Traça uma `caixa' (retângulo).

x y larg alt box
/box{.6 SLW rectstroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


find

/find{search{pop 3 -1 roll 1 add 3 1 roll}{pop exit}ifelse}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gxshow


	Imprime acordes cifrados (gchords), expandindo tabulações
	(TAB) para distribuir vários acordes sobre uma única nota.

str gxshow
/gxshow{1 index stringwidth pop
	sub 0 2 index(	){find}loop div
	0 9 4 -1 roll widthshow}!

IR PARA O ÍNDICE IR PARA O INÍCIO


anshow


	Imprime anotação (annotation).

str anshow

/anshow{show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


wln


	Linha usada em letras (lyrics): sílaba prolongada (_)

l x y wln
/wln{M .8 SLW 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hyph


	Preenche espaço entre sílabas (em lyrics) com hífens.
	A distância entre os hífens pode ser personalizada
	substituindo-se o valor `40' (na segunda linha) por outro
	valor.

l x y hyph
/hyph{	.8 SLW 3 add M
	dup cvi 40 idiv 1 add 1 index exch div
	dup 3 sub 3 1 roll
	dup .5 mul dup 1.5 sub 0 RM
	exch 3 -1 roll
	{pop 3 0 RL dup 0 RM}for stroke pop}!

IR PARA O ÍNDICE IR PARA O INÍCIO


lyshow


	Imprime letra (lyrics).

str lyshow

/lyshow{show}!

IR PARA O ÍNDICE IR PARA O INÍCIO


bar


	Barra de compasso

h x y bar
/bar{M dlw 0 exch RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dotbar


	Barra de compasso pontilhada (tracejada)

h x y dotbar
/dotbar{[5] 0 setdash bar [] 0 setdash}!

IR PARA O ÍNDICE IR PARA O INÍCIO


thbar


	Barra de compasso grossa (thick bar)

h x y thbar

/thbar{3 -1 roll 3 exch rectfill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


rdots


	Pontos usados em ritornello (repeat dots)

x y rdots
/rdots{	2 copy 9 add M currentpoint 1.2 0 360 arc
	15 add M currentpoint 1.2 0 360 arc fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


csig


	Metro `C' (C time signature)

x y csig
/csig{	M
	1 17.3 RM
	0.9 0 2.3 -0.7 2.4 -2.2 RC
	-1.2 2 -3.6 -0.1 -1.6 -1.7 RC
	2 -1 3.8 3.5 -0.8 4.7 RC
	-2 0.4 -6.4 -1.3 -5.8 -7 RC
	0.4 -6.4 7.9 -6.8 9.1 -0.7 RC
	-2.3 -5.6 -6.7 -5.1 -6.8 0 RC
	-0.5 4.4 0.7 7.5 3.5 6.9 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ctsig


	Metro `C|' (C| time signature)

x y ctsig

/ctsig{dlw 2 copy csig 4 add M 0 16 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


pmsig


	Indicação métrica antiga (perfeito/imperfeito, maior/menor).
	(abcm2ps-5.4.1 em diante.)

x y xxsig
/pmsig{0.3 SLW 12 add M currentpoint 5 0 360 arc stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


pMsig


	Indicação métrica antiga (perfeito/imperfeito, maior/menor).
	(abcm2ps-5.4.1 em diante.)

x y xxsig
/pMsig{2 copy pmsig 12 add M currentpoint 1.3 0 360 arc fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


imsig


	Indicação métrica antiga (perfeito/imperfeito, maior/menor).
	(abcm2ps-5.4.1 em diante.)

x y xxsig

/imsig{0.3 SLW 12 add 2 copy 5 add M 5 90 270 arc stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


iMsig


	Indicação métrica antiga (perfeito/imperfeito, maior/menor).
	(abcm2ps-5.4.1 em diante.)

x y xxsig
/iMsig{2 copy imsig 12 add M currentpoint 1.3 0 360 arc fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


tsig


	Imprime fórmula de compasso (time signature). (top) e (bot)
	são respectivamente o ``numerador'' e o ``denominador''.

(top) (bot) x y tsig
/tsig{	M gsave/Times-Bold 16 selectfont 1.2 1 scale
	0 1 RM currentpoint 3 -1 roll showc
	12 add M showc grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


stsig


	Imprime metro simples (single time signature), constituído
	apenas por um número no meio da pauta.

(meter) x y stsig

/stsig{	M gsave/Times-Bold 18 selectfont 1.2 1 scale
	0 7 RM showc grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


staff


	Pauta com `n' linhas e largura `l'.
	(O argumento `n' foi introduzido com abcm2ps-4.8.6: l y n staff)
	(abcm2ps-5.2.2 altera parâmetros)

l n x y staff
/staff{	dlw M{dup 0 RL dup neg 6 RM}repeat
	pop stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sep0


	Separador (%%sep)

Traço horizontal centralizado.

x1 x2 sep0
/sep0{dlw 0 M 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hbrce


	Função usada por `brace'

/hbrce{	-2.5 1 RM
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 RC
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 RC
	7.4 2.4 7.3 14.2 3.5 29.5 RC
	-2.7 9.5 -1.5 16.2 3 21.5 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


brace


	Chave `{' para conectar pautas em um sistema

h x y brace
/brace{	gsave T 0 0 M .01 mul 1 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


bracket


	Colchete `[' para conectar pautas em um sistema

h x y bracket
/bracket{M dlw -5 2 RM currentpoint
	-1.7 2 RM 10.5 -1 12 4.5 12 3.5 RC
	0 -1 -3.5 -5.5 -8.5 -5.5 RC fill
	3 SLW M 0 2 RM
	0 exch neg 8 sub RL currentpoint stroke
	dlw M -1.7 0 RM
	10.5 1 12 -4.5 12 -3.5 RC
	0 1 -3.5 5.5 -8.5 5.5 RC fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


mrest


	Pausa de vários compassos

(nb_measures deve ser uma string)

nb_measures x y mrest

/mrest{	gsave T 1 SLW
	-20 6 M 0 12 RL 20 6 M 0 12 RL stroke
	5 SLW -20 12 M 40 0 RL stroke
	/Times-Bold 15 selectfont 0 28 M showc grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


mrep


	Sinal de repetição de compasso

x y mrep
/mrep{	2 copy 2 copy
	M -5 15 RM currentpoint 1.4 0 360 arc
	M 5 9 RM currentpoint 1.4 0 360 arc
	M -7 6 RM 11 12 RL 3 0 RL -11 -12 RL -3 0 RL
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


mrep2


	Sinal de repetição de 2 compassos

x y mrep2
/mrep2{	2 copy 2 copy
	M -5 18 RM currentpoint 1.4 0 360 arc
	M 5 6 RM currentpoint 1.4 0 360 arc fill
	M 1.8 SLW
	-7 4 RM 14 10 RL -14 -4 RM 14 10 RL
	stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


srep


	Sinal de repetição de seqüência de notas/pausas
	(abcm2ps-5.4.3)

x y srep

/srep{	M -1 6 RM 11 12 RL 3 0 RL -11 -12 RL -3 0 RL
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


repbra


	Colchete para repetição (casa 1, casa 2 etc.)

str bracket_type dx x y repbra
/repbra{gsave dlw T 0 -20 M
	0 20 3 index 1 ne{RL}{RM}ifelse 0 RL 0 ne{0 -20 RL}if stroke
	4 exch M show grestore}!

IR PARA O ÍNDICE IR PARA O INÍCIO


SL


	Ligadura (slur/tie)

pp2x pp1x p1 pp1 pp2 p2 p1 SL
/SL{M curveto RL curveto closepath fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


dSL


	Ligadura pontilhada (tracejada)

pp2x pp1x p1 pp1 pp2 p2 p1 dSL

/dSL{	M [4] 0 setdash .8 SLW
	curveto stroke [] 0 setdash
	pop pop pop pop pop pop pop pop}!

IR PARA O ÍNDICE IR PARA O INÍCIO


strw

/strw{stringwidth pop w add/w exch def}!

IR PARA O ÍNDICE IR PARA O INÍCIO


jshow

/jshow{w 0 32 4 -1 roll widthshow}!

IR PARA O ÍNDICE IR PARA O INÍCIO


hd


	Cabeça de nota preenchida (para semínima e figuras mais
	curtas)

x y hd
/hd{	xymove
	3.5 2 RM
	-2 3.5 -9 -0.5 -7 -4 RC
	2 -3.5 9 0.5 7 4 RC fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


Hd


	Cabeça de mínima (aberta)

x y Hd
/Hd{	xymove
	3 1.6 RM
	-1 1.8 -7 -1.4 -6 -3.2 RC
	1 -1.8 7 1.4 6 3.2 RC
	0.5 0.3 RM
	2 -3.8 -5 -7.6 -7 -3.8 RC
	-2 3.8 5 7.6 7 3.8 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


HD


	(Cabeça de) semibreve

x y HD

/HD{	xymove
	-2.7 1.4 RM
	1.5 2.8 6.9 0 5.3 -2.7 RC
	-1.5 -2.8 -6.9 0 -5.3 2.7 RC
	8.3 -1.4 RM
	0 1.5 -2.2 3 -5.6 3 RC
	-3.4 0 -5.6 -1.5 -5.6 -3 RC
	0 -1.5 2.2 -3 5.6 -3 RC
	3.4 0 5.6 1.5 5.6 3 RC
	fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


HDD


	Breve (forma redonda)

x y HDD
/HDD{	dlw HD
	x y M -6 -4 RM 0 8 RL
	12 0 RM 0 -8 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


breve


	Breve (forma quadrada)

x y breve
/breve{	xymove
	2.5 SLW -6 -2.7 RM 12 0 RL
	0 5.4 RM -12 0 RL stroke
	dlw x y M -6 -5 RM 0 10 RL
	12 0 RM 0 -10 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


longa


	Longa

x y longa

/longa{	xymove
	2.5 SLW -6 -2.7 RM 12 0 RL
	0 5.4 RM -12 0 RL stroke
	dlw x y M -6 -5 RM 0 10 RL
	12 0 RM 0 -16 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


pshhd


	Cabeça de nota para percussão (x)
	(percussion sharp head)
	(Nota sustenida quando clef=perc)

x y pshhd
/pshhd{/x 2 index def/y 1 index def dsh0}!

IR PARA O ÍNDICE IR PARA O INÍCIO


pfthd


	Cabeça de nota para percussão (x circulado)
	(percussion flat head)
	(Nota bemolizada quando clef=perc)

x y pflhd
/pfthd{/x 2 index def/y 1 index def dsh0
	.7 SLW x y 4 0 360 arc stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ghd


	Cabeça para notinhas (grace notes)

x y ghd

/ghd{	xymove
	1.7 1 RM
	-1 1.7 -4.5 -0.2 -3.4 -2 RC
	1 -1.7 4.5 0.2 3.4 2 RC fill}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gua


	Acciaccatura - corte em notinhas com haste para cima.

dx dy gua
/gua{x y M -1 4 RM RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gda


	Acciaccatura - corte em notinhas com haste para baixo.

dx dy gda
/gda{x y M -5 -4 RM RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ghl


	Linha suplementar para notinha
	Até abcm2ps-5.7.3 só usava argumento y.

x y ghl

/ghl{	.6 SLW M -3 0 RM 6 0 RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gsl


	Ligadura para notinhas

x1 y2 x2 y2 x3 y3 x0 y0 gsl
/gsl{dlw M curveto stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


showerror


	Desenha um círculo vermelho para marcar erros (quando a opção
	de linha de comando '-i' é utilizada).

	Introduzido com abcm2ps-5.2.1.
/showerror{	gsave 1 0.7 0.7 setrgbcolor 2.5 SLW 2 copy newpath
	30 0 360 arc stroke grestore}!
0 setlinecap 0 setlinejoin

IR PARA O ÍNDICE IR PARA O INÍCIO


su


	Haste para cima (stem up)

len su

/su{dlw x y M 3.5 1.0 RM 1.0 sub 0 exch RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sd


	Haste para baixo (stem down)

len sd
/sd{dlw x y M -3.5 -1.0 RM 1.0 add 0 exch RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sfu


	Haste e `n' bandeirolas para cima (len > 0)

n len sfu
/sfu{	dlw x y M 3.5 1.0 RM
	1.0 sub 0 exch RL currentpoint stroke
	M dup 1 eq{
		pop
		0.6 -5.6 9.6 -9 5.6 -18.4 RC
		1.6 6 -1.3 11.6 -5.6 12.8 RC
		fill
	  }{
		1 sub{	currentpoint
			0.9 -3.7 9.1 -6.4 6 -12.4 RC
			1 5.4 -4.2 8.4 -6 8.4 RC
			fill 5.4 sub M
		}repeat
		1.2 -3.2 9.6 -5.7 5.6 -14.6 RC
		1.6 5.4 -1 10.2 -5.6 11.4 RC
		fill
	  }ifelse}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sfd


	Haste e `n' bandeirolas para baixo (len < 0)

n len sfd
/sfd{	dlw x y M -3.5 -1.0 RM
	1.0 add 0 exch RL currentpoint stroke
	M dup 1 eq{
		pop
		0.6 5.6 9.6 9 5.6 18.4 RC
		1.6 -6 -1.3 -11.6 -5.6 -12.8 RC
		fill
	  }{
		1 sub{	currentpoint
			0.9 3.7 9.1 6.4 6 12.4 RC
			1 -5.4 -4.2 -8.4 -6 -8.4 RC
			fill 5.4 add M
		}repeat
		1.2 3.2 9.6 5.7 5.6 14.6 RC
		1.6 -5.4 -1 -10.2 -5.6 -11.4 RC
		fill
	  }ifelse}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sfs


	Haste e `n' bandeirolas retas
	(Direção ajustada conforme `len' positivo ou negativo)

n len sfs

/sfs{	dup 0 lt{
		dlw x y M -3.5 -1.0 RM
		1.0 add 0 exch RL currentpoint stroke
		M{	currentpoint
			7 3.2 RL
			0 3.2 RL
			-7 -3.2 RL
			fill 5.4 add M
		}repeat
	}{
		dlw x y M 3.5 1.0 RM
		1.0 sub 0 exch RL currentpoint stroke
		M{	currentpoint
			7 -3.2 RL
			0 -3.2 RL
			-7 3.2 RL
			fill 5.4 sub M
		}repeat
	}ifelse}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gu


	Haste de notinha (grace note) para cima

len gu
/gu{	.6 SLW x y M
	1.6 0 RM 0 exch RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


gd


	Haste de notinha (grace note) para baixo

len gd
/gd{	.6 SLW x y M
	-1.6 0 RM 0 exch RL stroke}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sgu


	Haste e `n' bandeirolas para notinha

n len sgu

/sgu{	.6 SLW x y M 1.6 0 RM
	0 exch RL currentpoint stroke
	M dup 1 eq{
		pop
		0.6 -3.4 5.6 -3.8 3 -10 RC
		1.2 4.4 -1.4 7 -3 7 RC
		fill
	  }{
		{	currentpoint
			1 -3.2 5.6 -2.8 3.2 -8 RC
			1.4 4.8 -2.4 5.4 -3.2 5.2 RC
			fill 3.5 sub M
		}repeat
	  }ifelse}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sgd


	Haste e `n' bandeirolas para notinha

n len sgd
/sgd{	.6 SLW x y M -1.6 0 RM
	0 exch RL currentpoint stroke
	M dup 1 eq{
		pop
		0.6 3.4 5.6 3.8 3 10 RC
		1.2 -4.4 -1.4 -7 -3 -7 RC
		fill
	  }{
		{	currentpoint
			1 3.2 5.6 2.8 3.2 8 RC
			1.4 -4.8 -2.4 -5.4 -3.2 -5.2 RC
			fill 3.5 add M
		}repeat
	  }ifelse}!

IR PARA O ÍNDICE IR PARA O INÍCIO


sgs


	Haste e `n' bandeirolas para notinha

n len sgs
/sgs{	.6 SLW x y M 1.6 0 RM
	0 exch RL currentpoint stroke
	M{	currentpoint
		3 -1.5 RL 0 -2 RL -3 1.5 RL
		closepath fill 3 sub M
	}repeat}!

IR PARA O ÍNDICE IR PARA O INÍCIO


ISOLatin0Encoding

/ISOLatin0Encoding ISOLatin1Encoding dup length array copy def
ISOLatin0Encoding dup 8#201/sharpchar put
dup 8#202/flatchar put
dup 8#203/natchar put
dup 8#204/dsharpchar put
8#205/dflatchar put

IR PARA O ÍNDICE IR PARA O INÍCIO


mkfontext0

/mkfontext0{
	findfont dup length
	product(RoPS)eq{1 add}if
	dict begin
		{1 index/FID ne{def}{pop pop}ifelse}forall
		/Encoding ISOLatin0Encoding def
		accfont
		currentdict
	end
	definefont pop}!

IR PARA O ÍNDICE IR PARA O INÍCIO


Helvetica0

/Helvetica0/Helvetica mkfontext0

IR PARA O ÍNDICE IR PARA O INÍCIO


F0

/F0{dup .8 mul/fh exch def/Helvetica0 exch selectfont}!

IR PARA O ÍNDICE IR PARA O INÍCIO


Times-Italic0

/Times-Italic0/Times-Italic mkfontext0

IR PARA O ÍNDICE IR PARA O INÍCIO


F1

/F1{dup .8 mul/fh exch def/Times-Italic0 exch selectfont}!

IR PARA O ÍNDICE IR PARA O INÍCIO


Times-Roman0

/Times-Roman0/Times-Roman mkfontext0

IR PARA O ÍNDICE IR PARA O INÍCIO


F2

/F2{dup .8 mul/fh exch def/Times-Roman0 exch selectfont}!

IR PARA O ÍNDICE IR PARA O INÍCIO


Times-Bold0

/Times-Bold0/Times-Bold mkfontext0

IR PARA O ÍNDICE IR PARA O INÍCIO


F3

/F3{dup .8 mul/fh exch def/Times-Bold0 exch selectfont}!

IR PARA O ÍNDICE IR PARA O INÍCIO


MICROTONS


        - Alturas microtonais são indicadas por uma fração depois de
          um acidente, como "^3/4c". Quando omitido, o numerador é
          definido como 1 e o denominador como 2 ("^/c" é o mesmo que
          "^1/2c"). O numerador e o denominador não podem ser maiores
          que 256. Existe suporte para sustenidos e bemóis 1/2 e
          3/2. Para outros valores, funções PostScript devem ser
          definidas (através de %%postscript).
          O nome de uma tal função é:
                <accidental_type><micro_value>
          onde
                  - <accidental_type> é:
		    "sh" (sustenido) ou
		    "ft" (bemol)
                    (ou ainda "nt", "dsh" ou "dft" !)
                  - <micro_value> é computado da fração como:
                        ( <numerador> - 1 ) * 256 + <denominador> - 1

/MICROTONS

IR PARA O ÍNDICE IR PARA O INÍCIO


ESPECIAIS


	Operadores criados/redefinidos dentro das peças de música.

	x		Coord. horizontal de uma nota
	y		Coord. vertical de uma nota
	y0, y1, y2 etc. 
			Torna relativo a uma das pautas um valor
			de posição vertical. Por exemplo,
				0 y0
			é a altura da primeira pauta do sistema (de
			cima para baixo).
	defl		Consulte `defl' neste arquivo.
	dlsym
	strop
	w
	str
	scst
/ESPECIAIS

IR PARA O ÍNDICE IR PARA O INÍCIO


Índice


! | accent | accfont | anshow | arp |
bar | bclef | bdef | bm | bnum | bnumb |
box | brace | bracket | breve | brth | cchalf |
cclef | coda | cpu | creator | cresc | csig |
ctsig | dacs | defl | dft0 | dim | dlw |
dnb | dotbar | dplus | dsh0 | dSL | dt |
emb | ESPECIAIS | F0 | F1 | F2 | F3 |
find | fng | ft0 | ft1 | ft513 | ftx |
gcshow | gd | gda | ghd | ghl | grm |
gsc | gsl | gu | gua | gxshow | hbrce |
hd | Hd | HD | HDD | Helvetica0 | hl |
hl1 | hl2 | hld | hyph | imsig | iMsig |
ISOLatin0Encoding | jshow | languagelevel | lmrd | longa | lphr |
ltr | lyshow | M | MICROTONS | mkfontext0 | mphr |
mrep | mrep2 | mrest | nt0 | octl | octu |
opend | pclef | pf | pfthd | pmsig | pMsig |
pshhd | r0 | r00 | r1 | r128 | r16 |
r2 | r32 | r4 | r64 | r8 | r8e |
RC | rdots | repbra | RL | RM | sbclef |
scclef | sd | sep0 | sfd | sfs | sfu |
sfz | sgd | sgno | sgs | sgu | sh0 |
sh1 | sh513 | showb | showc | showerror | showr |
SL | sld | SLW | snap | spclef | sphr |
srep | staff | stc | stclef | strw | stsig |
su | T | tclef | thbar | thumb | Times-Bold0 |
Times-Italic0 | Times-Roman0 | trem | trl | tsig | tubr |
tubrl | turn | turnx | umrd | upb | wedge |
wln | xymove

(163 tópicos)

IR PARA O ÍNDICE IR PARA O INÍCIO


Copyright (C) 2004-2009 Hudson Lacerda

This document is based on abcm2ps:
Copyright (C) 1998-2009 Jean-François Moine, adapted from

abc2ps-1.2.5: Copyright (C) 1996,1997 Michael Methfessel.
Released under the terms of the GNU General Public License, Version 2.

Este documento é baseado em abcm2ps:
Copyright (C) 1998-2009 Jean-François Moine, por sua vez adaptado de abc2ps-1.2.5:
Copyright (C) 1996,1997 Michael Methfessel.
Distribuído segundo os termos da Licença Pública Geral do GNU, Versão 2.

(Hudson Lacerda)



Anúncios

Deixe um comentário »

Nenhum comentário ainda.

RSS feed for comments on this post.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Crie um website ou blog gratuito no WordPress.com.