Jump to content
Sign in to follow this  
Lavalamp

Atari Artist BASIC image loader?

Recommended Posts

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

post-7778-0-86656700-1508529923.png

Edited by Irgendwer

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...