121 lines
2.4 KiB
Scheme
121 lines
2.4 KiB
Scheme
|
; test Layer methods of PDB
|
||
|
|
|
||
|
|
|
||
|
|
; setup
|
||
|
|
|
||
|
|
|
||
|
|
(define testImage (car (pika-image-new 21 22 RGB)))
|
||
|
|
|
||
|
|
(define testLayer
|
||
|
|
(car (pika-layer-new
|
||
|
|
testImage
|
||
|
|
21
|
||
|
|
22
|
||
|
|
RGB-IMAGE
|
||
|
|
"LayerNew"
|
||
|
|
50.0
|
||
|
|
LAYER-MODE-NORMAL)))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; new layer is not in the image until inserted
|
||
|
|
(assert `(= (car (pika-image-get-layers ,testImage))
|
||
|
|
0))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; attributes of new layer
|
||
|
|
|
||
|
|
; defaulted attributes
|
||
|
|
|
||
|
|
; apply-mask default false
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-apply-mask ,testLayer))
|
||
|
|
0))
|
||
|
|
|
||
|
|
; blend-space default LAYER-COLOR-SPACE-AUTO
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-blend-space ,testLayer))
|
||
|
|
LAYER-COLOR-SPACE-AUTO))
|
||
|
|
|
||
|
|
; composite-mode default LAYER-COMPOSITE-AUTO
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-composite-mode ,testLayer))
|
||
|
|
LAYER-COMPOSITE-AUTO))
|
||
|
|
|
||
|
|
; composite-space default LAYER-COLOR-SPACE-AUTO
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-composite-space ,testLayer))
|
||
|
|
LAYER-COLOR-SPACE-AUTO))
|
||
|
|
|
||
|
|
; edit-mask default false
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-edit-mask ,testLayer))
|
||
|
|
0))
|
||
|
|
|
||
|
|
; lock-alpha default false
|
||
|
|
; deprecated? pika-layer-get-preserve-trans
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-lock-alpha ,testLayer))
|
||
|
|
0))
|
||
|
|
|
||
|
|
; mask not exist, ID -1
|
||
|
|
; deprecated? pika-layer-mask
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-mask ,testLayer))
|
||
|
|
-1))
|
||
|
|
|
||
|
|
; mode default LAYER-MODE-NORMAL
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-mode ,testLayer))
|
||
|
|
LAYER-MODE-NORMAL))
|
||
|
|
|
||
|
|
; show-mask default false
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-show-mask ,testLayer))
|
||
|
|
0))
|
||
|
|
|
||
|
|
; visible default true
|
||
|
|
; FIXME doc says default false
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-visible ,testLayer))
|
||
|
|
1))
|
||
|
|
|
||
|
|
; is-floating-sel default false
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-is-floating-sel ,testLayer))
|
||
|
|
0))
|
||
|
|
|
||
|
|
; !!! No get-offsets
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; attributes are as given when created
|
||
|
|
|
||
|
|
; name is as given
|
||
|
|
(assert `(string=? (car (pika-layer-get-name ,testLayer))
|
||
|
|
"LayerNew"))
|
||
|
|
|
||
|
|
; opacity is as given
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-opacity ,testLayer))
|
||
|
|
50.0))
|
||
|
|
|
||
|
|
|
||
|
|
; generated attributes
|
||
|
|
|
||
|
|
; tattoo
|
||
|
|
; tattoo is generated unique within image?
|
||
|
|
(assert `(=
|
||
|
|
(car (pika-layer-get-tattoo ,testLayer))
|
||
|
|
2))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
