Atari Artist BASIC image loader?

[Lavalamp]

Hi, has anyone got BASIC code to load or can supply the specs of the image format for the Atari Artist Tablet software? Cheers.

[+Allan]

http://www.atarimagazines.com/compute/issue76/Feedback_6.php

 

Allan

[Lavalamp]

http://www.atarimagazines.com/compute/issue76/Feedback_6.php

 

Allan

 

Fantastic, cheers!

[Irgendwer]

Hi, has anyone got BASIC code to load or can supply the specs of the image format for the Atari Artist Tablet software? Cheers.

 

I guess you like to load the native compressed "Micro Illustrator" ("PIC") format and not the 62 sector "Micro Painter" raw-images:

 

Boot the attached ATR in Basic.

RUN "D:PICLOAD.BAS"

after MC initialization and prompt enter

D:LADY.PIC

for a demo picture.

 

The code is a bit longer than necessary for XL/Es, since it "creates" "GRAPHICS 31" from "GRAPHICS 24" which wasn't available on the old 800 machines (lines 1000-1050).

The machine code is relocatable and in a string, so "Page 6" is still free!

5 REM * Micro Illustrator Bildlader
6 REM * in BASIC
7 REM * Peter Blinzer '86
10 DIM FN$ (15):GOSUB 32000:GOSUB 1000:POKE 106,PEEK (106)-34
20 TRAP 40000: TRAP 20: GRAPHICS 0:? "Geraet/Filename:";: INPUT FN$
30 CLOSE #1: OPEN #1,4,0,FN$
40 POKE 560,DLEL:POKE 561,DLEH: POKE 88,SCL:POKE 89,SCH 
50 JNK=USR(ADR(MILOAD$))
60 CLOSE #1:OPEN #1,4,0,"K:":GET #1,A
70 CLOSE #1:GRAPHICS 0: GOTO 20
1000 GRAPHICS 24
1010 DLEL=PEEK(560):DLEH=PEEK(561):SCL=PEEK(88):SCH=PEEK(89):DLP=DLEL+256*DLEH+3
1020 IF PEEK(DLP)=15 THEN POKE DLP,14
1030 IF PEEK(DLP)=79 THEN POKE DLP,78:DLP=DLP+2
1040 IF PEEK(DLP)<>65 THEN DLP=DLP+1:GOTO 1020
1050 RETURN
32000 DIM MILOAD$(275)
32010 FOR I=1TO 275:READ Z:MILOAD$(I,I)=CHR$(Z):SUM=SUM+Z:NEXT I
32020 IF SUM<>33490 THEN ? "FEHLERHAFTE DATA ZEILEN!":END
32030 RETURN
32040 DATA 104,162,16,169,7,157,66,3,160,1,132,213,169,0,157,72,3,157,73,3,32,86,228,164,213,192,8,208,2
32050 DATA 133,212,192,14,48,7,192,19,16,3,153,182,2,200,192,28,48,219,16,8,80,46,66,46,32,39,56,54,169,0
32060 DATA 133,219,133,220,165,88,133,215,133,217,165,89,133,216,133,218,169,0,133,214,157,72,3,157,73,3
32070 DATA 32,86,228,16,1,96,168,41,128,133,222,152,41,127,208,24,169,0,157,72,3,157,73,3,32,86,228,133
32080 DATA 214,169,0,157,72,3,157,73,3,32,86,228,133,213,169,0,157,72,3,157,73,3,32,86,228,133,221,160,0
32090 DATA 165,221,145,215,56,165,213,233,1,133,213,165,214,233,0,133,214,144,170,165,212,201,2,208,10,230
32100 DATA 215,208,73,230,216,208,69,144,219,230,220,24,165,215,105,80,133,215,144,2,230,216,169,96,197
32110 DATA 220,208,48,169,0,133,220,165,219,208,19,169,1,133,219,24,165,217,105,40,133,215,165,218,105,0
32120 DATA 133,216,144,21,169,0,133,219,24,165,217,105,1,133,215,133,217,165,218,105,0,133,216,133,218,165
32130 DATA 213,208,7,165,214,208,3,24,144,160,165,222,16,13,169,0,157,72,3,157,73,3,32,86,228,133,221,24
32140 DATA 144,156

Atari Artist Basic Loader.atr

Edited October 20, 2017 by Irgendwer

[+CharlieChaplin]

The fun (?) thing about Koala / Micro-Illustrator pictures is that they can be found in three variants:

- vertically compressed (smaller than 62 sectors)

- horizont(ic)ally compressed (smaller than 62 sectors)

- uncompressed (length with 26 Bytes Koala header = 63 sectors)

Most Koala/Micro-Illustrator programs do however only support one of these variants when loading or saving. Which variant is used can be found in the 26 Byte Koala header, byte 7 to be exact (zero = uncompressed, 1 = vertical, 2 = horizontal).

 

Luckily there are some picture converters from Antic or Analog that support at least all three variants when loading (by Charles Jackson afair). Vertical compression is mostly used (by Atari Artist, Koala, etc. since it is the best most of the time), but there are programs (e.g. the PD program Pixel Artist Deluxe) that save Koala with horizontal compression and pict. converters (e.g. Rapid Picture Converter) that save Koala without compression.

[Lavalamp]

Fantastic thanks!