PROCEDURE gfa_m_shap64__(x__%,y__%,options__%,rows__%,screenadr__%,bufadr__%,memadr__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : M_SHAP64 ** ' ** ******** *** * *** Version : 1.1 14.12.1989 20:59 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Shaperoutine fr 64 Pixel breite Shapes der mittleren *** ' ** Aufl”sung. ** ' ** Parameter : 1.X-Koordinate 5.Bildschirmadresse ** ' ** 2.Y-Koordinate 6.Bufferadresse ** ' ** 3.Option == 0 = GETBACK/ 7.Shapeadresse ** ' ** SETSHAPE ** ' ** <> 0 = PUTBACK ** ' ** 4.H”he des Shapes in Zeilen ** ' ** Lib_rv__% : == 0 = Alles Ok == -1 = INLINE-Code nicht geladen ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** INLINE m_shap64mc__%,1538 IF BYTE{m_shap64mc__%}=&H48 IF options__%=0 ~C:m_shap64mc__%(W:x__%,W:y__%,W:0,W:rows__%,L:screenadr__%,L:bufadr__%,L:memadr__%) ~C:m_shap64mc__%(W:x__%,W:y__%,W:2,W:rows__%,L:screenadr__%,L:bufadr__%,L:memadr__%) ELSE ~C:m_shap64mc__%(W:x__%,W:y__%,W:1,W:rows__%,L:screenadr__%,L:bufadr__%,L:memadr__%) ENDIF lib_rv__%=0 ELSE lib_rv__%=-1 ENDIF RETURN