Short: Use the picasso gfxboard with Modula-2 Author: C.Wartmann@AMBO.in-berlin.de Uploader: C.Wartmann@AMBO.in-berlin.de Type: dev/m2 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@ambo.in-berlin.de : E-Mail C.WARTMANN@ambo.in-berlin.de Carsten_Wartmann@tfh-berlin.de : Version. 0.99b (0.99) : Date. 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@AMBO.in-berlin.de (bevorzugt) : E-Mail Carsten_Wartmann@tfh-berlin.de : Version. 1.0 : Date. 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. ============ ============================= Archive contents ============================= Original Packed Ratio Date Time Name -------- ------- ----- --------- -------- ------------- 8780 5551 36.7% 16-Nov-94 14:49:32 M2Picasso/BlitTest1 378 156 58.7% 16-Nov-94 14:49:32 M2Picasso/BlitTest1.info 10188 6057 40.5% 16-Nov-94 14:32:40 M2Picasso/Space030 378 159 57.9% 16-Nov-94 14:45:18 M2Picasso/Space030.info 7281 2284 68.6% 17-Nov-94 00:31:20 M2Picasso/VilIntuiSup.DOK 355 264 25.6% 16-Nov-94 14:45:18 M2Picasso/VilIntuiSup.DOK.info 3288 2297 30.1% 16-Nov-94 14:28:44 M2Picasso/DBuf 378 160 57.6% 16-Nov-94 14:45:18 M2Picasso/DBuf.info 4588 3090 32.6% 16-Nov-94 14:07:06 M2Picasso/PicaTest15 378 161 57.4% 16-Nov-94 14:45:18 M2Picasso/PicaTest15.info 4564 3081 32.4% 16-Nov-94 14:07:22 M2Picasso/PicaTest16 378 158 58.2% 16-Nov-94 14:45:18 M2Picasso/PicaTest16.info 4276 2901 32.1% 16-Nov-94 14:06:48 M2Picasso/PicaTest8 378 161 57.4% 16-Nov-94 14:45:18 M2Picasso/PicaTest8.info 3944 2651 32.7% 16-Nov-94 14:10:10 M2Picasso/Styx 378 161 57.4% 16-Nov-94 14:45:18 M2Picasso/Styx.info 628 258 58.9% 16-Nov-94 14:45:18 M2Picasso/obj.info 5400 1716 68.2% 16-Nov-94 14:06:20 M2Picasso/obj/VilIntuiSupD.obj 809 214 73.5% 16-Nov-94 14:06:20 M2Picasso/obj/VilIntuiSupD.obj.info 416 232 44.2% 16-Nov-94 14:06:14 M2Picasso/obj/VilIntuiSupL.obj 809 214 73.5% 16-Nov-94 14:06:14 M2Picasso/obj/VilIntuiSupL.obj.info 4528 3029 33.1% 16-Nov-94 14:06:28 M2Picasso/PicaTest 378 157 58.4% 16-Nov-94 14:45:18 M2Picasso/PicaTest.info 628 260 58.5% 16-Nov-94 14:45:18 M2Picasso/sym.info 270 183 32.2% 16-Nov-94 14:14:12 M2Picasso/sym/Timer2.sym 798 249 68.7% 16-Nov-94 14:14:12 M2Picasso/sym/Timer2.sym.info 17110 8751 48.8% 16-Nov-94 14:06:10 M2Picasso/sym/VilIntuiSupD.sym 798 250 68.6% 16-Nov-94 14:06:10 M2Picasso/sym/VilIntuiSupD.sym.info 14957 7954 46.8% 16-Nov-94 14:06:14 M2Picasso/sym/VilIntuiSupL.sym 798 250 68.6% 16-Nov-94 14:06:14 M2Picasso/sym/VilIntuiSupL.sym.info 628 259 58.7% 16-Nov-94 14:45:18 M2Picasso/Txt.info 6989 2314 66.8% 17-Nov-94 00:11:08 M2Picasso/Txt/BlitTest1.mod 3298 1224 62.8% 17-Nov-94 00:11:20 M2Picasso/Txt/DBuf.mod 3727 1158 68.9% 17-Nov-94 00:11:34 M2Picasso/Txt/Picatest.mod 3766 1209 67.8% 17-Nov-94 00:11:50 M2Picasso/Txt/picatest15.mod 14710 3928 73.2% 17-Nov-94 00:17:10 M2Picasso/Txt/Space.mod 3678 1305 64.5% 17-Nov-94 00:17:38 M2Picasso/Txt/Styx.mod 7180 1909 73.4% 17-Nov-94 00:19:10 M2Picasso/Txt/vilintuisupD.def 628 258 58.9% 16-Nov-94 14:45:18 M2Picasso/Pics.info 3730 1206 67.6% 17-Nov-94 00:12:02 M2Picasso/Txt/picatest16.mod 3713 1164 68.6% 17-Nov-94 00:12:20 M2Picasso/Txt/Picatest8.mod 11322 3306 70.8% 17-Nov-94 00:16:56 M2Picasso/Txt/RBMP.mod 1016 458 54.9% 16-Aug-94 19:12:04 M2Picasso/Txt/Timer2.def 2435 1080 55.6% 16-Aug-94 19:12:04 M2Picasso/Txt/Timer2.mod 17537 3467 80.2% 17-Nov-94 00:16:44 M2Picasso/Txt/VilIntuiSupD.mod 2917 899 69.1% 17-Nov-94 00:15:56 M2Picasso/Txt/vilintuisupL.def 21558 13091 39.2% 17-Aug-94 15:30:08 M2Picasso/Pics/Galerie160.bmp 4918 815 83.4% 17-Aug-94 22:06:36 M2Picasso/Pics/Kugeln.bmp 4918 772 84.3% 19-Aug-94 15:11:24 M2Picasso/Pics/Kugeln1.bmp 896 426 52.4% 19-Aug-94 15:08:10 M2Picasso/Pics/PAL.pal 10906 2924 73.1% 18-Aug-94 01:37:46 M2Picasso/Pics/Ship1.bmp 10294 2875 72.0% 19-Aug-94 15:10:14 M2Picasso/Pics/Ship2.bmp 328758 19063 94.2% 19-Aug-94 15:09:48 M2Picasso/Pics/Space1.bmp 9526 919 90.3% 19-Aug-94 15:10:52 M2Picasso/Pics/Ufo.bmp 2358 724 69.2% 12-Nov-94 20:56:34 M2Picasso/Pics/12345.bmp 2102 577 72.5% 19-Aug-94 15:51:12 M2Picasso/Pics/Explosion.bmp 6706 2562 61.7% 12-Nov-94 22:45:30 M2Picasso/Pics/sequenz/auto.0001 6706 2538 62.1% 12-Nov-94 22:57:10 M2Picasso/Pics/sequenz/auto.0002 6706 2387 64.4% 12-Nov-94 22:57:24 M2Picasso/Pics/sequenz/auto.0003 6706 2285 65.9% 12-Nov-94 22:57:42 M2Picasso/Pics/sequenz/auto.0004 6706 2289 65.8% 12-Nov-94 22:58:04 M2Picasso/Pics/sequenz/auto.0005 6706 2367 64.7% 12-Nov-94 22:58:22 M2Picasso/Pics/sequenz/auto.0006 6706 2302 65.6% 12-Nov-94 22:59:02 M2Picasso/Pics/sequenz/auto.0007 6706 2316 65.4% 12-Nov-94 22:59:16 M2Picasso/Pics/sequenz/auto.0008 6706 2301 65.6% 12-Nov-94 22:59:30 M2Picasso/Pics/sequenz/auto.0009 6706 2389 64.3% 12-Nov-94 22:59:46 M2Picasso/Pics/sequenz/auto.0010 628 269 57.1% 16-Nov-94 14:45:18 M2Picasso.info 628 251 60.0% 16-Nov-94 14:51:46 M2Picasso/Pics/sequenz.info 10160 6170 39.2% 23-Dec-91 16:12:12 M2Picasso/PPMore -------- ------- ----- --------- -------- 660221 150765 77.1% 02-Feb-95 18:49:56 69 files