FR
?left image?[left]

FR
?right image?[right]

FR
?output?[out]

; half.spi : given 2 images, creates a split image of left/right halves

; SIZES MUST BE THE SAME!

FI x11,x12
[left]
12,2

FI x21,x22
[right]
12,2

IF (x11.NE.x21) GOTO LB1
IF (x12.NE.x22) GOTO LB1

CP
[right]
_1

x32 = INT(x11/2) + 1

WI
[left]
_2
x32,x12
1,1

IN
_2   ; small
_1   ; large, overwritten
1,1

CP
_1
[out]

GOTO LB10
LB1
VM
echo 'Size mismatch: images must have the same dimensions'
LB10

RE