Handbook
Glossary
draw-text1 ( canvas line -- canvas )
Vocabulary
pdf
.
canvas
Inputs
canvas
an
object
line
an
object
Outputs
canvas
an
object
Definition
USING:
accessors
kernel
math
pdf.text
ui.text
;
IN:
pdf.canvas
:
draw-text1
( canvas line -- canvas )
[
draw-background
]
[
text-start
over
font>>
text-size
over
foreground>>
[
foreground-color
]
when*
over
[
x
]
[
y
]
[
metrics>>
ascent>>
-
]
tri
text-location
over
dup
font>>
pick
text-width
inc-x
text-write
text-end
]
2bi
;