They simply need copying out and typing up... and obvs inserting into everyone's Blitter folder

Which issue is that ?EstTeeEfEm wrote:The3 Blitter extension has docs in the ST format magazine with the disk for the blitter extension.
They simply need copying out and typing up... and obvs inserting into everyone's Blitter folder
Thanks, I will take a look tomorrow and get it typed upEstTeeEfEm wrote:Issue 33, its on disk 33a aptly named - Another STOS extension lol.
The actual commands listing is on page 12 at the bottom.
I cant screenshot but Its there lol..enjoy!
Code: Select all
10 key off : curs off : click off : hide on : mode 0 : auto back off : update off : mouseoff : break off
20 rem**********************
30 reserve as screen 5 : cls 5
40 dim SCR(255),X1(255),Y1(255) : SCRL=0 : for X=0 to 255 : SCR(X)=7 : next X
50 restore 420 : read I$ : P=0 : dac speed 1 : dac stereo : dac loop on
60 for Y=0 to 191 step 48
70 for X=0 to 287 step 48
80 J$=mid$(I$,P+1,1) : I=asc(J$)
90 inc P
100 SCR(I)=6 : X1(I)=X : Y1(I)=Y
110 next X
120 next Y
130 for Y=0 to 191 step 48
140 for X=0 to 287 step 48
150 J$=mid$(I$,P+1,1) : I=asc(J$)
160 X1(I)=X : Y1(I)=Y
170 inc P : next X
180 next Y
190 set stars 70,1,0,0,319,199,8,15 : wipe stars on
191 e colour 8,$FFF : e colour 9,$DDD : e colour 10,$BBB : e colour 11,$999 : e colour 12,$777 : e colour 13,$555 : e colour 14,$333 : e colour 15,$111
200 rem******************
210 logic=back : get palette (6)
220 dim ARRAY(720) : wait vbl : for X=8 to 15 : e colour X,X*$111 : next X
230 for X=1 to 720 : ANG#=rad(X)
240 ARRAY(X)=sin(ANG#)*20 : next X
250 rem************************
260 SCRL=1 : read X$ : V=varptr(X$) : dac stereo : dac speed 1 : dac loop on : dac raw start(10),start(10)+length(10) : Y=0
270 for Z=1 to 360 step 18
280 if SCRL>47 then SCRL=0 : inc SCRL1 : ST=peek(V+SCRL1) : if ST<>32 and ST<>42 then blit copy SCR(ST),X1(ST),Y1(ST),X1(ST)+47,Y1(ST)+47,start(5),269,0,3
290 go stars 1,0,logic
300 blit copy SCR(69),X1(69),Y1(69),X1(69)+47,Y1(69)+47,logic,159-ARRAY(Z)*3,99-ARRAY(4*Y+Z)*2,7
301 blit copy SCR(83),X1(83),Y1(83),X1(83)+47,Y1(83)+47,logic,159+ARRAY(Z)*3,99+ARRAY(4*Y+Z)*2,7
310 for Y=0 to 48 step 2
320 blit copy 5,0,Y,271,Y,logic,30+ARRAY(4*Y+Z),147-Y,7
330 next Y
340 blit copy 5,0,0,271,47,logic,24,51,7
350 blit copy 5,16,0,319,47,5,12,0,3
360 SCRL=SCRL+4
370 if SCRL1>len(X$)-1 then SCRL1=0
380 if hardkey<>57 then screen swap : wait vbl : next Z : goto 270
400 wipe stars off : default : mouseon : dac stop : end
410 rem
420 data "ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789.,-: ! () ?0 "
430 rem
440 data " HELLO TO THE ATARI SCENE THIS IS A VERY OLD STOS DEMO FROM ABOUT 1994, MUSIC IS BY THUNDER. "
Code: Select all
my extension setup is as follows but I am not using tracker here:-
22/04/1987 00:06 3,865 BLITTER.EXG
20/11/1985 00:36 1,648 COMPACT.EXA
22/04/1987 00:19 589 COMPILER.EXC
01/01/1990 00:02 968 EDITOR.ENV
19/01/2008 21:47 21,415 LINK1.EXQ
19/01/2008 21:47 22,710 LINK2.EXR
19/01/2008 21:47 10,851 LINK3.EXS
19/01/2008 21:47 10,752 MISTY.ECM
19/01/2008 21:47 12,359 MISTY.EXM
19/01/2008 21:47 4,096 STARS.EXH
19/01/2008 21:47 4,839 STE_EXTN.EXF
13/03/1995 22:20 82,842 TRACKER.EXT