Updated with upstream update
This commit is contained in:
@ -135,9 +135,10 @@
|
||||
(define testLayer (vector-ref (cadr (pika-image-get-layers testImage ))
|
||||
0))
|
||||
(define testSelection (car (pika-image-get-selection testImage)))
|
||||
(define testFont (car (pika-context-get-font)))
|
||||
(define
|
||||
testTextLayer
|
||||
(car (pika-text-fontname
|
||||
(car (pika-text-font
|
||||
testImage
|
||||
-1 ; drawable. -1 means NULL means create new text layer
|
||||
0 0 ; coords
|
||||
@ -145,8 +146,7 @@
|
||||
1 ; border size
|
||||
1 ; antialias true
|
||||
31 ; fontsize
|
||||
PIXELS ; size units. !!! See UNIT-PIXEL
|
||||
"fontName" )))
|
||||
testFont )))
|
||||
(define testChannel (car (pika-channel-new
|
||||
testImage ; image
|
||||
23 24 ; width, height
|
||||
|
Reference in New Issue
Block a user