111 lines
2.9 KiB
Scheme
111 lines
2.9 KiB
Scheme
|
; tests of methods re masks on layers
|
||
|
|
|
||
|
|
; masks are a separate class in Pika PikaLayerMask
|
||
|
|
; but the methods are named strangely,
|
||
|
|
; e.g. there is no pika-layer-mask-get-layer
|
||
|
|
|
||
|
|
|
||
|
|
; 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)))
|
||
|
|
; assert layer is not inserted in image
|
||
|
|
|
||
|
|
; assert layerMask not on the layer yet!!!
|
||
|
|
(define
|
||
|
|
testLayerMask (car (pika-layer-create-mask
|
||
|
|
testLayer
|
||
|
|
ADD-MASK-WHITE)))
|
||
|
|
|
||
|
|
|
||
|
|
; mask is not on layer until added.
|
||
|
|
; Getting the mask for the layer yields -1.
|
||
|
|
(assert `(= (car (pika-layer-mask ,testLayer))
|
||
|
|
-1))
|
||
|
|
|
||
|
|
; add layerMask created on a layer to that layer succeeds
|
||
|
|
(assert `(pika-layer-add-mask
|
||
|
|
,testLayer
|
||
|
|
,testLayerMask))
|
||
|
|
|
||
|
|
; add layerMask to layer was effective:
|
||
|
|
; Getting the mask for the layer yields layerMask ID
|
||
|
|
(assert `(= (car (pika-layer-mask ,testLayer))
|
||
|
|
,testLayerMask))
|
||
|
|
|
||
|
|
; and vice versa
|
||
|
|
(assert `(= (car (pika-layer-from-mask ,testLayerMask))
|
||
|
|
,testLayer))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; creating and adding second mask
|
||
|
|
|
||
|
|
; creating a second mask from layer succeeds
|
||
|
|
(define
|
||
|
|
testLayerMask2
|
||
|
|
(car (pika-layer-create-mask
|
||
|
|
testLayer
|
||
|
|
ADD-MASK-WHITE)))
|
||
|
|
|
||
|
|
|
||
|
|
; adding a second layerMask fails
|
||
|
|
(assert-error `(pika-layer-add-mask
|
||
|
|
,testLayer
|
||
|
|
,testLayerMask2)
|
||
|
|
(string-append
|
||
|
|
"Procedure execution of pika-layer-add-mask failed: "
|
||
|
|
"Unable to add a layer mask since the layer already has one."))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; mask removal
|
||
|
|
|
||
|
|
; remove-mask fails if the layer is not on image
|
||
|
|
(assert-error `(pika-layer-remove-mask
|
||
|
|
,testLayer
|
||
|
|
MASK-APPLY) ; removal mode
|
||
|
|
"Procedure execution of pika-layer-remove-mask failed on invalid input arguments: ")
|
||
|
|
; "Item 'LayerNew' (12) cannot be used because it has not been added to an image"))
|
||
|
|
|
||
|
|
; adding layer to image succeeds
|
||
|
|
(assert `(pika-image-insert-layer
|
||
|
|
,testImage
|
||
|
|
,testLayer
|
||
|
|
0 ; parent
|
||
|
|
0 )) ; position within parent
|
||
|
|
|
||
|
|
; remove-mask succeeds
|
||
|
|
; when layer is in image
|
||
|
|
(assert `(pika-layer-remove-mask
|
||
|
|
,testLayer
|
||
|
|
MASK-APPLY)) ; removal mode
|
||
|
|
|
||
|
|
; and is effective
|
||
|
|
; layer no longer has a mask
|
||
|
|
(assert `(= (car (pika-layer-mask ,testLayer))
|
||
|
|
-1))
|
||
|
|
|
||
|
|
; and now we can add the second mask
|
||
|
|
(assert `(pika-layer-add-mask
|
||
|
|
,testLayer
|
||
|
|
,testLayerMask2))
|
||
|
|
|
||
|
|
|
||
|
|
; fails when mask different size from layer?
|
||
|
|
|
||
|
|
; fails create layerMask when ADD-CHANNEL-MASK and no active channel
|
||
|
|
|
||
|
|
; create layerMask ADD-ALPHA-MASK works even when no alpha channel
|
||
|
|
|
||
|
|
; TODO many variations of create
|
