AminetAminet
Search:
82087 packages online
About
Recent
Browse
Search
Upload
Setup
Services

dev/m2/M2Pica.lha

Mirror:Random
Showing:m68k-amigaosppc-amigaosppc-morphosi386-arosi386-amithlonppc-warpupppc-powerupgeneric
No screenshot available
Short:Use the picasso gfxboard with Modula-2
Author:C.Wartmann at GANDALF.berlinet.de
Uploader:C Wartmann GANDALF berlinet de
Type:dev/m2
Architecture:m68k-amigaos
Date:1995-08-23
Download:http://aminet.net/dev/m2/M2Pica.lha - View contents
Readme:http://aminet.net/dev/m2/M2Pica.readme
Downloads:797
Use your Picasso II with Modula-2 ! Every function of vilintuisup.library
avaible via Modula-2 + fast ML Line-routines. Lots of demo programms.

FREEWARE, but please send me your suggestions/enhancements etc. via E-Mail.



Dokumentatation zu den Modula-2 Schnittstellenmodulen für die
Picasso Grafikkarte von VillageTronic.

*******************************************************************************
 : Program.         VilIntuiSupL.def
 : Author.          Carsten Wartmann (Crazy Video)
 : Address.         Wutzkyallee 83, 12353 Berlin
 : Phone.           030/6614776 
 : E-Mail           C.WARTMANN at GANDALF.berlinet.de
                    Carsten_Wartmann at tfh-berlin.de
 : Version.         0.99c (0.99b)
 : Date.            21.08.1995 (16.11.1994) (24.8.94) (22.Feb.1994) 
 : Copyright.       Freeware
 : Language.        Modula-2
 : Compiler.        M2Amiga V4.3d
 : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
 : Contents.        Programmierer nutzbar.
*******************************************************************************)


Folgende Routinen stellt die VilIntuiSup.library zur Verfügung :

DEFINITION MODULE VilIntuiSupL{"vilintuisup.library",2} ;


FROM SYSTEM     IMPORT ADDRESS,BYTE ;
FROM ExecD      IMPORT ListPtr ;
FROM IntuitionD IMPORT ScreenPtr,RememberPtr ;
FROM UtilityD   IMPORT TagItemPtr,Tag ;

IMPORT vil:VilIntuiSupD,R ;



(* Old function, do not use in future !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
PROCEDURE OpenVillageScreen(mode{R.A0} : vil.DimensionPtr) : ScreenPtr ; 
          CODE -30 ;

PROCEDURE OpenVillageScreenTagList(tags{R.A0} : TagItemPtr) : ScreenPtr ; 
          CODE -114 ;

PROCEDURE CloseVillageScreen(screen{R.A0} : ScreenPtr) ; 
          CODE -36 ;
     
PROCEDURE LockVillageScreen(screen{R.A0}   : ScreenPtr) : ADDRESS ; 
          CODE -42 ;
PROCEDURE UnLockVillageScreen(screen{R.A0} : ScreenPtr) ; 
          CODE -48 ;

PROCEDURE GetMemSize(screen{R.A0} : ScreenPtr) : LONGCARD ;
          CODE -72 ;

PROCEDURE VillageScreenData(screen{R.A0} : ScreenPtr ;
                            tag{R.D0}    : Tag) : LONGCARD ; 
          CODE -120 ;

PROCEDURE IsVillageScreen(screen{R.A0} : ScreenPtr) : BOOLEAN ; 
          CODE -66 ;

PROCEDURE VillageRectFill(screen{R.A0}  : ScreenPtr ;
                          fillrec{R.A1} : vil.VilFillRecordPtr) : LONGINT ; 
                          CODE -78 ;

PROCEDURE VillageBlitCopy(screen{R.A0} : ScreenPtr ;
                          record{R.A1} : vil.VilCopyRecordPtr) ;
          CODE -54 ;

PROCEDURE WaitVillageBlit ;
          CODE -60 ;

PROCEDURE VillageModeRequest(tags{R.A0} : TagItemPtr) : LONGCARD ;
          CODE -84 ;
PROCEDURE VillageModeList(memorykey{R.A0} : RememberPtr ;
                          tags{R.A1}      : TagItemPtr) : ListPtr ;
          CODE -90 ;
PROCEDURE VillageBestModeID(tags{R.A0} : TagItemPtr) : LONGCARD ;
          CODE -108 ;

PROCEDURE VillageGetBufAddr(screen{R.A0} : ScreenPtr ;
                            num{R.D0}    : LONGCARD) : ADDRESS ;
          CODE -126 ;
PROCEDURE VillageSetDisplayBuf(screen{R.A0} : ScreenPtr ;
                               num{R.D0}    : LONGCARD) ;
          CODE -132 ;


PROCEDURE VillageSetSegment(segnum{R.D0} : LONGCARD) ;
          CODE -96 ;
PROCEDURE VillageGetSegment ;
          CODE -102 ;


END VilIntuiSupL.lib2





Ansonsten ist noch VilIntuiSupD.def aufschlussreich.

(*******************************************************************************
 : Program.         VilIntuiSupD.def  : Author.          Carsten Wartmann (Crazy
Video)
 : Address.         Wutzkyallee 83, 12353 Berlin
 : Phone.           030/6614776
 : E-Mail           C.Wartmann at GANDALF.berlinet.de (bevorzugt)
 : E-Mail           Carsten_Wartmann at tfh-berlin.de
 : Version.         1.0
 : Date.            21.08.1995 (16.Nov.1994)
 : Copyright.       Freeware
 : Language.        Modula-2
 : Compiler.        M2Amiga V4.3d
 : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
 : Contents.        Programmierer nutzbar.
 : Contents.        Enthält Die Definitionen der Tags, Const. etc. für
 : Contents.        die VilIntuiSup.library
*******************************************************************************)

DEFINITION MODULE VilIntuiSupD ;


FROM ExecD      IMPORT Node ;

FROM IntuitionD IMPORT ScreenPtr ;

FROM UtilityD   IMPORT tagUser ;

FROM SYSTEM     IMPORT ADDRESS,BYTE ;

IMPORT R;

[...]  Definitionen gelöscht !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

(* Support *)

(* Setze PP für 68000er *)
PROCEDURE SetPackedPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3} : CARDINAL ;
                                                 color{R.D4} : CARDINAL) ;

(* Setze TrueColorPixel *)

PROCEDURE SetTrueColorPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         :
CARDINAL ;                                                    
r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;

(* Setze 15(6)BitPixel *)

PROCEDURE Set15BitPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         :
CARDINAL ;                                                
r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;

PROCEDURE Set16BitPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         :
CARDINAL ;                                                
r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;

(* Linienroutinen *)

(* In Assembler aber mit Sicherheitsabfrage *)
PROCEDURE LinePacked(scr{R.A0} : ScreenPtr ; x1{R.D5},y1{R.D6},                 
                             x2{R.D2},y2{R.D3},color{R.D4} : LONGINT) ;         
                                    color{R.D4} : INTEGER) ;

PROCEDURE LineTrueColor(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;

PROCEDURE Line15Bit(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;

PROCEDURE Line16Bit(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;

(* Hi-Color Support*)

PROCEDURE Get15FromRGB(r{R.D4},g{R.D5},b{R.D6} : CARDINAL) : CARDINAL ;
PROCEDURE Get16FromRGB(r{R.D4},g{R.D5},b{R.D6} : CARDINAL) : CARDINAL ;

PROCEDURE Kreis(scr : ScreenPtr ; x,y,r,col : INTEGER) ;

PROCEDURE ClearScreen(scr : ScreenPtr) ;

PROCEDURE ClearBuf(scr : ScreenPtr ; bufadr : ADDRESS) ;


END VilIntuiSupD .




Hier nun eine detailiertere Beschreibung :


Tja, ist noch in Arbeit... Man schaue sich die Demos an.
Ansonsten wäre da noch die Doku von VT zur Vilintui, die Unterschiede
der Bezeichner erkennt man aus den defs etc.

Also *mir* reichen die Schnittstellen so wie sie jetzt sind. Wenn keine
Reaktion kommt ist das auch die letzte Veröffentlichung. Ohne
Anregungen/Kritik mache ich nicht weiter.
Ich bitte jeden mir eine E-Mail zu schreiben, der diese Soft benutzt.

(*
Zu sagen wäre noch, das anscheinend in der Software von VillageTronic noch
einige "Käfer" sind, so funktioniert z.B. das Blitten vom System-Mem ins
Graphic-Mem nicht (naja, wenn Enforcer läuft gehts manchmal...)
*)
Das funktioniert jetzt. Obwohl ich mehrmals VT auf diesen Fehler
hingewiesen habe kam keine Reaktion. Nach dem letzten Update der
Picasso-Soft ging es plötzlich !


Die Punktsetzroutinen und die Chunky-Pixelroutine sind in Assembler
implementiert und schneller als die C-Konstrukte von VT.


MfG Carsten.
============


Contents of dev/m2/M2Pica.lha
 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                  526    1276  41.2% -lh5- 6ae7 Aug 21  1995 M2Pica/obj/Timer2.ob3
[generic]                  526    1280  41.1% -lh5- d8d8 Apr 21  1995 M2Pica/obj/Timer2.ob8
[generic]                  592    1520  38.9% -lh5- 5f4d May 23  1995 M2Pica/obj/Timer2.obj
[generic]                 1685    5352  31.5% -lh5- 71f8 Apr 21  1995 M2Pica/obj/VilIntuiSupD.ob8
[generic]                 1716    5400  31.8% -lh5- c657 Nov 16  1994 M2Pica/obj/VilIntuiSupD.obj
[generic]                  232     416  55.8% -lh5- 0975 Aug 21  1995 M2Pica/obj/VilIntuiSupL.ob3
[generic]                  232     416  55.8% -lh5- 0975 Apr 21  1995 M2Pica/obj/VilIntuiSupL.ob8
[generic]                  232     416  55.8% -lh5- 0975 Nov 16  1994 M2Pica/obj/VilIntuiSupL.obj
[generic]                 1685    5352  31.5% -lh5- 604d Aug 21  1995 M2Pica/obj/VilIntuiSupD.ob3
[generic]                13091   21558  60.7% -lh5- dac4 Aug 17  1994 M2Pica/Pics/Galerie160.bmp
[generic]                  815    4918  16.6% -lh5- 9064 Aug 17  1994 M2Pica/Pics/Kugeln.bmp
[generic]                  772    4918  15.7% -lh5- 5106 Aug 19  1994 M2Pica/Pics/Kugeln1.bmp
[generic]                  426     896  47.5% -lh5- 5c92 Aug 19  1994 M2Pica/Pics/PAL.pal
[generic]                 2924   10906  26.8% -lh5- 8eb2 Aug 18  1994 M2Pica/Pics/Ship1.bmp
[generic]                 2875   10294  27.9% -lh5- 0be0 Aug 19  1994 M2Pica/Pics/Ship2.bmp
[generic]                19063  328758   5.8% -lh5- 8890 Aug 19  1994 M2Pica/Pics/Space1.bmp
[generic]                 6050   10188  59.4% -lh5- 3de2 Aug 21  1995 M2Pica/Space030
[generic]                  577    2102  27.5% -lh5- b5cc Aug 19  1994 M2Pica/Pics/Explosion.bmp
[generic]                  919    9526   9.6% -lh5- 84fc Aug 19  1994 M2Pica/Pics/Ufo.bmp
[generic]                  185     270  68.5% -lh5- 8ea8 Aug 21  1995 M2Pica/sym/Timer2.sym
[generic]                  249     798  31.2% -lh5- a5e8 Nov 16  1994 M2Pica/sym/Timer2.sym.info
[generic]                 8749   17110  51.1% -lh5- 98d5 Aug 21  1995 M2Pica/sym/VilIntuiSupD.sym
[generic]                  250     798  31.3% -lh5- 72ba Nov 16  1994 M2Pica/sym/VilIntuiSupD.sym.info
[generic]                 7952   14957  53.2% -lh5- 1284 Aug 21  1995 M2Pica/sym/VilIntuiSupL.sym
[generic]                  250     798  31.3% -lh5- 72ba Nov 16  1994 M2Pica/sym/VilIntuiSupL.sym.info
[generic]                 1440    2516  57.2% -lh5- 141e Aug  4  1995 M2Pica/sym/IFF.sym
[generic]                 1224    3298  37.1% -lh5- 6920 Aug 21  1995 M2Pica/Txt/DBuf.mod
[generic]                 1158    3727  31.1% -lh5- b63b Aug 21  1995 M2Pica/Txt/Picatest.mod
[generic]                 1209    3766  32.1% -lh5- 405b Aug 21  1995 M2Pica/Txt/picatest15.mod
[generic]                 3933   14712  26.7% -lh5- 8f28 Aug 21  1995 M2Pica/Txt/Space.mod
[generic]                 3928   14710  26.7% -lh5- fb24 Aug 21  1995 M2Pica/Txt/Space.modO
[generic]                 1305    3678  35.5% -lh5- 8bc4 Aug 21  1995 M2Pica/Txt/Styx.mod
[generic]                 1921    7195  26.7% -lh5- 483f Aug 21  1995 M2Pica/Txt/vilintuisupD.def
[generic]                 3481   17552  19.8% -lh5- 2bdc Aug 21  1995 M2Pica/Txt/VilIntuiSupD.mod
[generic]                 2297    3288  69.9% -lh5- dcd3 Nov 16  1994 M2Pica/DBuf
[generic]                  160     378  42.3% -lh5- 8ff2 Nov 16  1994 M2Pica/DBuf.info
[generic]                  258     628  41.1% -lh5- 3d4c Nov 16  1994 M2Pica/obj.info
[generic]                 3029    4528  66.9% -lh5- 6c1d Nov 16  1994 M2Pica/PicaTest
[generic]                  157     378  41.5% -lh5- 256d Nov 16  1994 M2Pica/PicaTest.info
[generic]                 1206    3730  32.3% -lh5- d6bf Aug 21  1995 M2Pica/Txt/picatest16.mod
[generic]                 1164    3713  31.3% -lh5- f068 Aug 21  1995 M2Pica/Txt/Picatest8.mod
[generic]                  458    1016  45.1% -lh5- ff66 Aug 21  1995 M2Pica/Txt/Timer2.def
[generic]                 1080    2435  44.4% -lh5- eab2 Aug 21  1995 M2Pica/Txt/Timer2.mod
[generic]                  911    2932  31.1% -lh5- 0347 Aug 21  1995 M2Pica/Txt/vilintuisupL.def
[generic]                 3090    4588  67.3% -lh5- 5cd4 Nov 16  1994 M2Pica/PicaTest15
[generic]                  161     378  42.6% -lh5- 434e Nov 16  1994 M2Pica/PicaTest15.info
[generic]                 3081    4564  67.5% -lh5- f67b Nov 16  1994 M2Pica/PicaTest16
[generic]                  158     378  41.8% -lh5- a283 Nov 16  1994 M2Pica/PicaTest16.info
[generic]                 2313    3748  61.7% -lh5- a8e5 Apr 21  1995 M2Pica/PicaTest8
[generic]                  161     378  42.6% -lh5- 70e9 Nov 16  1994 M2Pica/PicaTest8.info
[generic]                  258     628  41.1% -lh5- 40d0 Nov 16  1994 M2Pica/Pics.info
[generic]                  159     378  42.1% -lh5- e97a Nov 16  1994 M2Pica/Space030.info
[generic]                 2651    3944  67.2% -lh5- d41a Nov 16  1994 M2Pica/Styx
[generic]                  161     378  42.6% -lh5- dbf3 Nov 16  1994 M2Pica/Styx.info
[generic]                  260     628  41.4% -lh5- 9f2c Nov 16  1994 M2Pica/sym.info
[generic]                  581    2868  20.3% -lh5- 43c8 Aug 21  1995 M2Pica.info
[generic]                  259     628  41.2% -lh5- 7fb5 Nov 16  1994 M2Pica/Txt.info
[generic]                 2286    7278  31.4% -lh5- 3cde Aug 21  1995 M2Pica/VilIntuiSup.DOK
[generic]                  265     358  74.0% -lh5- 75a1 Aug 21  1995 M2Pica/VilIntuiSup.DOK.info
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total        59 files  118736  585525  20.3%            Aug 23  1995

Aminet © 1992-2017 Urban Müller and the Aminet team. Aminet contact address: <aminetaminet net>