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 5 lines
General Information \\
Author: Peter Finzel \\
Language: ACTION!\\
Compiler/Interpreter: ACTION!\\
Published: ATARI Magazin #1 (01/02-87), ACTION! Center 1\\
!!! Schnelle Vektoren in ACTION!
General Information
Author: Peter Finzel
Language: ACTION!
Compiler/Interpreter: ACTION!
Published: ATARI Magazin, ACTION! Center 1
[{Image src='vektoreninaction.gif'}]
At line 7 removed 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)|ACTION noch schneller] 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) 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 added one line
ANMERKUNG: Da der Scan relativ schlecht ist, können Fehler im Listing enthalten sein!!!
At line 70 changed one line
BYTE rowl=row, rowh=row+1
BYTE row1=row, rowh=row+1
At line 88 changed one line
BYTE Wrkh = Wrk+1 ;Screen (Wrkh int MSB)
BYTE Wrkh = Wrk+1 ;Screen (Hrkh int MSB)
At line 123 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 126 changed one line
[ $85 $A0 $86 $A1 ]
[ $85 $A0 $86 $A1 ]
At line 128 changed 3 lines
IF Y<96 THEN
rowl=adrl(y)
rowh=adrh(y)+wrkh
IF Y<96 THEN
rowl=adrl(y) rouh=adrh(y)+wrkh
At line 133 changed one line
FI
Fl
At line 151 changed one line
dy=ynow-y:yf=$FF
dy=ynow—y:yf=$FF
At line 191 changed one line
Lms=Vram1
Lms=Vraml
At line 213 changed one line
scr=0
scr=0
At line 215 changed one line
Wrk=Vram2
Hrk=Vram2
At line 225 changed one line
BYTE i
BYTE i
At line 239 changed one line
LineTo(X,Y)
LineTD(X,Y)