(* Modul : Render *) (* Projekt : FFEX *) (* Autor : Robert Brandner *) (* Funktion: INLINE-Prozeduren für Berechnungen, Grafik, Mauszeiger *) DEFINITION MODULE Render; FROM SYSTEM IMPORT ADDRESS; FROM Intuition IMPORT WindowPtr; (*** Prozeduren für Fraktalgrafik ************************************) PROCEDURE SetPixel(x{0},y{1},col{2},maxit{3}, maxcol{4}:LONGINT;plane0Ptr{8}:ADDRESS); PROCEDURE GetPixel(x{0},y{1},planes{2}:LONGINT; plane0Ptr{8}:ADDRESS):LONGINT; PROCEDURE FastIter32(cx,cy:LONGREAL;maxiter:LONGINT):LONGINT; PROCEDURE FastIter16(cx,cy:LONGREAL; maxiter:LONGINT):LONGINT; PROCEDURE LongRealIter(cx,cy:LONGREAL; maxiter:LONGINT):LONGINT; (*** Prozeduren für Mauszeiger ***************************************) PROCEDURE SetNormalPointer(win:WindowPtr); PROCEDURE SetZZZPointer(win:WindowPtr); PROCEDURE SetZoomPointer(win:WindowPtr); END Render.def