This page (revision-13) was last changed on 03-Feb-2023 15:21 by Gromit 

This page was created on 19-Dec-2010 21:01 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
13 03-Feb-2023 15:21 14 KB Gromit to previous
12 28-Jan-2011 11:05 13 KB Gromit to previous | to last
11 28-Jan-2011 11:03 13 KB Gromit to previous | to last
10 26-Jan-2011 11:20 13 KB Gromit to previous | to last
9 25-Jan-2011 15:54 13 KB Gromit to previous | to last
8 21-Jan-2011 15:01 13 KB Gromit to previous | to last
7 21-Jan-2011 14:36 13 KB Gromit to previous | to last
6 21-Jan-2011 14:34 13 KB Gromit to previous | to last
5 21-Jan-2011 14:19 13 KB Gromit to previous | to last
4 21-Jan-2011 14:18 13 KB Gromit to previous | to last
3 21-Jan-2011 12:57 9 KB Gromit to previous | to last
2 19-Dec-2010 21:02 188 bytes Carsten Strotmann to previous | to last
1 19-Dec-2010 21:01 133 bytes Carsten Strotmann to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 1 changed 7 lines
!!! Schnelle Vektoren in ACTION!
General Information
Author: Peter Finzel
Language: ACTION!
Compiler/Interpreter: ACTION!
Published: ATARI Magazin, ACTION! Center 1
[{Image src='vektoreninaction.gif'}]
General Information \\
Author: Peter Finzel \\
Language: ACTION!\\
Compiler/Interpreter: ACTION!\\
Published: ATARI Magazin #1 (01/02-87), ACTION! Center 1\\
At line 7 added 2 lines
!!! Blitzschnelle Vektoren
!!Dieses erste Action!-Center befasst sich mit Grafikanimation auf den 8-Bit-Ataris.
At line 13 changed one line
Wo soviel Licht ist, dar natürlich ein wenig Schatten auch nicht fehlen. Sicherlich der negativste Aspekt an Action! ist der hohe Anschaffungspreis, der immerhin in der Größenordung eines neuen 800XL liegt. Die Programme sollen nur mit eingestecktem Action!-Modul laufen, doch glücklicherweise haben Handbücher nicht immer recht, und es gibt eine Anzahl von Tricks, mit denen man Action!-Programme vom Modul unabhängig macht. Wer meine Assemblerecke in der Zeitschrift CK-Computer Kontakt (6-7/86) verfolgt hat, weiß bereits Bescheid.
Wo soviel Licht ist, dar natürlich ein wenig Schatten auch nicht fehlen. Sicherlich der negativste Aspekt an Action! ist der hohe Anschaffungspreis, der immerhin in der Größenordung eines neuen 800XL liegt. Die Programme sollen nur mit eingestecktem Action!-Modul laufen, doch glücklicherweise haben Handbücher nicht immer recht, und es gibt eine Anzahl von Tricks, mit denen man Action!-Programme vom Modul unabhängig macht. Wer meine [Assemblerecke in der Zeitschrift CK-Computer Kontakt (6-7/86)|ACTION noch schneller] verfolgt hat, weiß bereits Bescheid.
At line 48 changed one line
Die LineTo()-Routine stammt aus dem Programm "View 3D" von Paul Chabot (Antic 6/85). Sie ist sehr schnell, da nur Additionen und Subtraktionen und die Fast_Plot()-Routine benutzt werden. die Prozedur Graphic_Init() aktiviert die Display-List und bereitet Adresstabelle und das Video-RAM vor, während Screen_Switch() zwischen den beiden Bildschirmen (die übrigens bei Adresse $8000 bzw. $8800 beginnen) hin- und herschalten kann.
Die LineTo()-Routine stammt aus dem Programm "[View 3D]" von Paul Chabot (Antic 6/85). Sie ist sehr schnell, da nur Additionen und Subtraktionen und die Fast_Plot()-Routine benutzt werden. die Prozedur Graphic_Init() aktiviert die Display-List und bereitet Adresstabelle und das Video-RAM vor, während Screen_Switch() zwischen den beiden Bildschirmen (die übrigens bei Adresse $8000 bzw. $8800 beginnen) hin- und herschalten kann.
At line 52 removed one line
ANMERKUNG: Da der Scan relativ schlecht ist, können Fehler im Listing enthalten sein!!!
At line 71 changed one line
BYTE row1=row, rowh=row+1
BYTE rowl=row, rowh=row+1
At line 89 changed one line
BYTE Wrkh = Wrk+1 ;Screen (Hrkh int MSB)
BYTE Wrkh = Wrk+1 ;Screen (Wrkh int MSB)
At line 124 changed 2 lines
BYTE X=$A0, Y=$A1
BYTE xb=$A2, Xr=$A3
BYTE X=$A0, Y=$A1
BYTE xb=$A2, Xr=$A3
At line 127 changed one line
[ $85 $A0 $86 $A1 ]
[ $85 $A0 $86 $A1 ]
At line 129 changed 2 lines
IF Y<96 THEN
rowl=adrl(y) rouh=adrh(y)+wrkh
IF Y<96 THEN
rowl=adrl(y)
rowh=adrh(y)+wrkh
At line 133 changed 2 lines
Fl
FI
At line 152 changed one line
dy=ynow—y:yf=$FF
dy=ynow-y:yf=$FF
At line 192 changed one line
Lms=Vraml
Lms=Vram1
At line 214 changed one line
scr=0
scr=0
At line 216 changed one line
Hrk=Vram2
Wrk=Vram2
At line 226 changed one line
BYTE i
BYTE i
At line 240 changed one line
LineTD(X,Y)
LineTo(X,Y)