#
# Atari ST Degas Elite .PI1 (lowres 320x200 bitmap) exporter
# 32066 format
# A Multipaint internal script
#

XREM "Degas header"

XBYTE 0
XBYTE 0

XREM "Palette"

A=256
FOR I=0 TO 15
	R=PEEK A
	A=A+1
	G=PEEK A
	A=A+1
	B=PEEK A
	A=A+1

	R=R/32
	G=G/32
	B=B/32

	V=B
	M=G*16
	V=V+M
	M=R*256
	V=V+M
	XWORD V
NEXT I

XREM "Bitmap"

H=199
W=319/16

FOR Y=0 TO H
	FOR X=0 TO W
		T=$8000
		a=0
		b=0
		c=0
		d=0
		FOR B=0 TO 15
			P=GETPOINT X*16+B,Y
			M=P&1
			IF M<>0
				a=a+T
			ENDIF
			M=P&2
			IF M<>0
				b=b+T
			ENDIF
			M=P&4
			IF M<>0
				c=c+T
			ENDIF
			M=P&8
			IF M<>0
				d=d+T
			ENDIF
			T=T/2
		NEXT B
		XWORD a
		XWORD b
		XWORD c
		XWORD d			
	NEXT X
NEXT Y

XREM "Left color anim"

A=PEEK 240
XWORD A
A=PEEK 242
XWORD A
A=PEEK 244
XWORD A
A=PEEK 246
XWORD A

XREM "Right color anim"

A=PEEK 241
XWORD A
A=PEEK 243
XWORD A
A=PEEK 245
XWORD A
A=PEEK 247
XWORD A

XREM "Channel dir 0=left 1=none 2=right"

XWORD 0
XWORD 0
XWORD 0
XWORD 0

XREM "Channel delay ignored"

XWORD 64
XWORD 64
XWORD 64
XWORD 64

# Write to file

RECENT "in_stpi1.txt"

SAVE
