<![CDATA[AmiBlitz³ - Basics & Manual]]> https://www.amiblitz.de/community/ Wed, 13 May 2026 11:48:35 +0000 MyBB <![CDATA[english BlitzBasic Book]]> https://www.amiblitz.de/community/thread-287.html Thu, 15 Aug 2024 13:34:54 +0200 https://www.amiblitz.de/community/thread-287.html
It was written by Neil Wright, and recently "rediscovered" by EAB user Havie.


Originaly it was distributed on F1 Software disks.

origin:
https://eab.abime.net/showthread.php?p=1...ost1700795

http://mbergmann-sh.de/ab3/bbguide.pdf
https://aminet.net/package/dev/blitz/Gui..._Basic.pdf

.pdf   bbguide.pdf (Größe: 6,33 MB / Downloads: 0) ]]>
It was written by Neil Wright, and recently "rediscovered" by EAB user Havie.


Originaly it was distributed on F1 Software disks.

origin:
https://eab.abime.net/showthread.php?p=1...ost1700795

http://mbergmann-sh.de/ab3/bbguide.pdf
https://aminet.net/package/dev/blitz/Gui..._Basic.pdf

.pdf   bbguide.pdf (Größe: 6,33 MB / Downloads: 0) ]]> <![CDATA[Chunky Display]]> https://www.amiblitz.de/community/thread-279.html Sat, 20 Jan 2024 16:19:25 +0100 https://www.amiblitz.de/community/thread-279.html
It's not the most efficient way to do this but it will help setting up such a display i hope.

I left the comments in, no harms.


Code:
;test of new chunky commands
;(c)1997 by frank brandis
;
;as part of a demo written for software failure/airsoft
;SetErr:End:End SetErr

DEFTYPE.l

BitMap0,320,256,1
BitMap1,320,200,8
;LoadPalette1,"blitz2:execs/copplist.pal"
InitPalette1,256
Gosub setpal

InitCopList 1,144,100,$10008,8,256,-$f

InitChunky1,320,200,2


VWait50
BLITZ

Statement bmtochunk {t$,dx.w,dy.w}
 BitMapOutput0
 ln.w=Len(t$)*8
 Locate 0,0:Print t$
 Use BitMap0
 For y=0To7
   yy.w=y+y
   For x=0To ln
     If Point(x,y)
        xx.w=x+x
        GPlot 1,xx+dx+1,yy+dy+1,240
        GPlot 1,xx+dx,yy+dy+1,240
        GPlot 1,xx+dx+1,yy+dy,240
        GPlot 1,xx+dx,yy+dy,240
     EndIf
   Next x
 Next y
End Statement

CreateDisplay1
DisplayBitMap1,1
DisplayPalette1,1


Restore tdats
Read tanz.w
Dim t$(tanz)
For a=1To tanz
 Read t$(a)
Next

Gosub dofire

BitMapOutput1
Colour100:Locate 0,0:Print "ready.click mouse."
MouseWait

End
NoCli:CloseEd

dofire:
 max_=280:may=20
 count.w=1
 tn.w=1
 fadedelay.w=40
Repeat
 Gosub chtext
 Gosub calcfire
 ChunkyToBitMap1,1

Until tn>tanz AND count<=1
Return

.chtext
 count.w-1
 If count=0
   bmtochunk {t$(tn),60,5}
   count=fadedelay:tn+1
 EndIf
Return

.calcfire
newc.l=0
For y=2To may-1
For x=20To max_-1
  newc=GPoint(1,x,y-1)
  newc+GPoint(1,x,y+1)
  newc+GPoint(1,x-1,y)
  newc+GPoint(1,x+1,y)
  newc LSR 2
  If newc<2 Then newc=0
  GPlot 1,x,y,newc
Next x
Next y
Return
;
tdats:
Data.w 4
Data$ " HACKBALL"
Data$ " PRESENTS"
Data$ "  A DEMO"
Data$ "  CALLED"
Even

setpal:
 Restore firepal
 For a=0To255
    Read rr.w,gg.w,bb.w
    AGAPalRGB1,(255-a),rr,gg,bb
 Next a
Return

firepal:
; Copperlist RamDisk:firepal1.bb - basic include file m1
; done with bb2 coped v1.8 (C)opyright 1996 by Frank Brandis

;Data.w 255  ; lines
; red , green , blue
Data.w 000,000,255
Data.w 000,012,255
Data.w 000,025,255
Data.w 000,038,255
Data.w 000,051,255
Data.w 000,063,255
Data.w 000,076,255
Data.w 000,089,255
Data.w 000,102,255
Data.w 000,114,255
Data.w 000,127,255
Data.w 000,140,255
Data.w 000,153,255
Data.w 000,165,255
Data.w 000,178,255
Data.w 000,191,255
Data.w 000,204,255
Data.w 000,216,255
Data.w 000,229,255
Data.w 000,242,255
Data.w 000,255,255
Data.w 025,255,229
Data.w 051,255,204
Data.w 076,255,178
Data.w 102,255,153
Data.w 127,255,127
Data.w 153,255,102
Data.w 178,255,076
Data.w 204,255,051
Data.w 229,255,025
Data.w 255,255,000
Data.w 255,251,000
Data.w 255,247,000
Data.w 255,244,000
Data.w 255,240,000
Data.w 255,236,000
Data.w 255,233,000
Data.w 255,229,000
Data.w 255,225,000
Data.w 255,222,000
Data.w 255,218,000
Data.w 255,214,000
Data.w 255,211,000
Data.w 255,207,000
Data.w 255,204,000
Data.w 255,200,000
Data.w 255,196,000
Data.w 255,193,000
Data.w 255,189,000
Data.w 255,185,000
Data.w 255,182,000
Data.w 255,178,000
Data.w 255,174,000
Data.w 255,171,000
Data.w 255,167,000
Data.w 255,163,000
Data.w 255,160,000
Data.w 255,156,000
Data.w 255,153,000
Data.w 255,149,000
Data.w 255,145,000
Data.w 255,142,000
Data.w 255,138,000
Data.w 255,134,000
Data.w 255,131,000
Data.w 255,127,000
Data.w 255,123,000
Data.w 255,120,000
Data.w 255,116,000
Data.w 255,112,000
Data.w 255,109,000
Data.w 255,105,000
Data.w 255,102,000
Data.w 255,098,000
Data.w 255,094,000
Data.w 255,091,000
Data.w 255,087,000
Data.w 255,083,000
Data.w 255,080,000
Data.w 255,076,000
Data.w 255,072,000
Data.w 255,069,000
Data.w 255,065,000
Data.w 255,061,000
Data.w 255,058,000
Data.w 255,054,000
Data.w 255,051,000
Data.w 255,047,000
Data.w 255,043,000
Data.w 255,040,000
Data.w 255,036,000
Data.w 255,032,000
Data.w 255,029,000
Data.w 255,025,000
Data.w 255,021,000
Data.w 255,018,000
Data.w 255,014,000
Data.w 255,010,000
Data.w 255,007,000
Data.w 255,003,000
Data.w 255,000,000
Data.w 253,000,000
Data.w 251,000,000
Data.w 250,000,000
Data.w 248,000,000
Data.w 246,000,000
Data.w 245,000,000
Data.w 243,000,000
Data.w 241,000,000
Data.w 240,000,000
Data.w 238,000,000
Data.w 236,000,000
Data.w 235,000,000
Data.w 233,000,000
Data.w 231,000,000
Data.w 230,000,000
Data.w 228,000,000
Data.w 227,000,000
Data.w 225,000,000
Data.w 223,000,000
Data.w 222,000,000
Data.w 220,000,000
Data.w 218,000,000
Data.w 217,000,000
Data.w 215,000,000
Data.w 213,000,000
Data.w 212,000,000
Data.w 210,000,000
Data.w 208,000,000
Data.w 207,000,000
Data.w 205,000,000
Data.w 204,000,000
Data.w 202,000,000
Data.w 200,000,000
Data.w 199,000,000
Data.w 197,000,000
Data.w 195,000,000
Data.w 194,000,000
Data.w 192,000,000
Data.w 190,000,000
Data.w 189,000,000
Data.w 187,000,000
Data.w 185,000,000
Data.w 184,000,000
Data.w 182,000,000
Data.w 180,000,000
Data.w 179,000,000
Data.w 177,000,000
Data.w 176,000,000
Data.w 174,000,000
Data.w 172,000,000
Data.w 171,000,000
Data.w 169,000,000
Data.w 167,000,000
Data.w 166,000,000
Data.w 164,000,000
Data.w 162,000,000
Data.w 161,000,000
Data.w 159,000,000
Data.w 157,000,000
Data.w 156,000,000
Data.w 154,000,000
Data.w 153,000,000
Data.w 151,000,000
Data.w 149,000,000
Data.w 148,000,000
Data.w 146,000,000
Data.w 144,000,000
Data.w 143,000,000
Data.w 141,000,000
Data.w 139,000,000
Data.w 138,000,000
Data.w 136,000,000
Data.w 134,000,000
Data.w 133,000,000
Data.w 131,000,000
Data.w 129,000,000
Data.w 128,000,000
Data.w 126,000,000
Data.w 125,000,000
Data.w 123,000,000
Data.w 121,000,000
Data.w 120,000,000
Data.w 118,000,000
Data.w 116,000,000
Data.w 115,000,000
Data.w 113,000,000
Data.w 111,000,000
Data.w 110,000,000
Data.w 108,000,000
Data.w 106,000,000
Data.w 105,000,000
Data.w 103,000,000
Data.w 102,000,000
Data.w 100,000,000
Data.w 098,000,000
Data.w 097,000,000
Data.w 095,000,000
Data.w 093,000,000
Data.w 092,000,000
Data.w 090,000,000
Data.w 088,000,000
Data.w 087,000,000
Data.w 085,000,000
Data.w 083,000,000
Data.w 082,000,000
Data.w 080,000,000
Data.w 078,000,000
Data.w 077,000,000
Data.w 075,000,000
Data.w 074,000,000
Data.w 072,000,000
Data.w 070,000,000
Data.w 069,000,000
Data.w 067,000,000
Data.w 065,000,000
Data.w 064,000,000
Data.w 062,000,000
Data.w 060,000,000
Data.w 059,000,000
Data.w 057,000,000
Data.w 055,000,000
Data.w 054,000,000
Data.w 052,000,000
Data.w 051,000,000
Data.w 049,000,000
Data.w 047,000,000
Data.w 046,000,000
Data.w 044,000,000
Data.w 042,000,000
Data.w 041,000,000
Data.w 039,000,000
Data.w 037,000,000
Data.w 036,000,000
Data.w 034,000,000
Data.w 032,000,000
Data.w 031,000,000
Data.w 029,000,000
Data.w 027,000,000
Data.w 026,000,000
Data.w 024,000,000
Data.w 023,000,000
Data.w 021,000,000
Data.w 019,000,000
Data.w 018,000,000
Data.w 016,000,000
Data.w 014,000,000
Data.w 013,000,000
Data.w 011,000,000
Data.w 009,000,000
Data.w 008,000,000
Data.w 006,000,000
Data.w 004,000,000
Data.w 003,000,000
Data.w 001,000,000
Data.w 000,000,000

Even
;
]]>
It's not the most efficient way to do this but it will help setting up such a display i hope.

I left the comments in, no harms.


Code:
;test of new chunky commands
;(c)1997 by frank brandis
;
;as part of a demo written for software failure/airsoft
;SetErr:End:End SetErr

DEFTYPE.l

BitMap0,320,256,1
BitMap1,320,200,8
;LoadPalette1,"blitz2:execs/copplist.pal"
InitPalette1,256
Gosub setpal

InitCopList 1,144,100,$10008,8,256,-$f

InitChunky1,320,200,2


VWait50
BLITZ

Statement bmtochunk {t$,dx.w,dy.w}
 BitMapOutput0
 ln.w=Len(t$)*8
 Locate 0,0:Print t$
 Use BitMap0
 For y=0To7
   yy.w=y+y
   For x=0To ln
     If Point(x,y)
        xx.w=x+x
        GPlot 1,xx+dx+1,yy+dy+1,240
        GPlot 1,xx+dx,yy+dy+1,240
        GPlot 1,xx+dx+1,yy+dy,240
        GPlot 1,xx+dx,yy+dy,240
     EndIf
   Next x
 Next y
End Statement

CreateDisplay1
DisplayBitMap1,1
DisplayPalette1,1


Restore tdats
Read tanz.w
Dim t$(tanz)
For a=1To tanz
 Read t$(a)
Next

Gosub dofire

BitMapOutput1
Colour100:Locate 0,0:Print "ready.click mouse."
MouseWait

End
NoCli:CloseEd

dofire:
 max_=280:may=20
 count.w=1
 tn.w=1
 fadedelay.w=40
Repeat
 Gosub chtext
 Gosub calcfire
 ChunkyToBitMap1,1

Until tn>tanz AND count<=1
Return

.chtext
 count.w-1
 If count=0
   bmtochunk {t$(tn),60,5}
   count=fadedelay:tn+1
 EndIf
Return

.calcfire
newc.l=0
For y=2To may-1
For x=20To max_-1
  newc=GPoint(1,x,y-1)
  newc+GPoint(1,x,y+1)
  newc+GPoint(1,x-1,y)
  newc+GPoint(1,x+1,y)
  newc LSR 2
  If newc<2 Then newc=0
  GPlot 1,x,y,newc
Next x
Next y
Return
;
tdats:
Data.w 4
Data$ " HACKBALL"
Data$ " PRESENTS"
Data$ "  A DEMO"
Data$ "  CALLED"
Even

setpal:
 Restore firepal
 For a=0To255
    Read rr.w,gg.w,bb.w
    AGAPalRGB1,(255-a),rr,gg,bb
 Next a
Return

firepal:
; Copperlist RamDisk:firepal1.bb - basic include file m1
; done with bb2 coped v1.8 (C)opyright 1996 by Frank Brandis

;Data.w 255  ; lines
; red , green , blue
Data.w 000,000,255
Data.w 000,012,255
Data.w 000,025,255
Data.w 000,038,255
Data.w 000,051,255
Data.w 000,063,255
Data.w 000,076,255
Data.w 000,089,255
Data.w 000,102,255
Data.w 000,114,255
Data.w 000,127,255
Data.w 000,140,255
Data.w 000,153,255
Data.w 000,165,255
Data.w 000,178,255
Data.w 000,191,255
Data.w 000,204,255
Data.w 000,216,255
Data.w 000,229,255
Data.w 000,242,255
Data.w 000,255,255
Data.w 025,255,229
Data.w 051,255,204
Data.w 076,255,178
Data.w 102,255,153
Data.w 127,255,127
Data.w 153,255,102
Data.w 178,255,076
Data.w 204,255,051
Data.w 229,255,025
Data.w 255,255,000
Data.w 255,251,000
Data.w 255,247,000
Data.w 255,244,000
Data.w 255,240,000
Data.w 255,236,000
Data.w 255,233,000
Data.w 255,229,000
Data.w 255,225,000
Data.w 255,222,000
Data.w 255,218,000
Data.w 255,214,000
Data.w 255,211,000
Data.w 255,207,000
Data.w 255,204,000
Data.w 255,200,000
Data.w 255,196,000
Data.w 255,193,000
Data.w 255,189,000
Data.w 255,185,000
Data.w 255,182,000
Data.w 255,178,000
Data.w 255,174,000
Data.w 255,171,000
Data.w 255,167,000
Data.w 255,163,000
Data.w 255,160,000
Data.w 255,156,000
Data.w 255,153,000
Data.w 255,149,000
Data.w 255,145,000
Data.w 255,142,000
Data.w 255,138,000
Data.w 255,134,000
Data.w 255,131,000
Data.w 255,127,000
Data.w 255,123,000
Data.w 255,120,000
Data.w 255,116,000
Data.w 255,112,000
Data.w 255,109,000
Data.w 255,105,000
Data.w 255,102,000
Data.w 255,098,000
Data.w 255,094,000
Data.w 255,091,000
Data.w 255,087,000
Data.w 255,083,000
Data.w 255,080,000
Data.w 255,076,000
Data.w 255,072,000
Data.w 255,069,000
Data.w 255,065,000
Data.w 255,061,000
Data.w 255,058,000
Data.w 255,054,000
Data.w 255,051,000
Data.w 255,047,000
Data.w 255,043,000
Data.w 255,040,000
Data.w 255,036,000
Data.w 255,032,000
Data.w 255,029,000
Data.w 255,025,000
Data.w 255,021,000
Data.w 255,018,000
Data.w 255,014,000
Data.w 255,010,000
Data.w 255,007,000
Data.w 255,003,000
Data.w 255,000,000
Data.w 253,000,000
Data.w 251,000,000
Data.w 250,000,000
Data.w 248,000,000
Data.w 246,000,000
Data.w 245,000,000
Data.w 243,000,000
Data.w 241,000,000
Data.w 240,000,000
Data.w 238,000,000
Data.w 236,000,000
Data.w 235,000,000
Data.w 233,000,000
Data.w 231,000,000
Data.w 230,000,000
Data.w 228,000,000
Data.w 227,000,000
Data.w 225,000,000
Data.w 223,000,000
Data.w 222,000,000
Data.w 220,000,000
Data.w 218,000,000
Data.w 217,000,000
Data.w 215,000,000
Data.w 213,000,000
Data.w 212,000,000
Data.w 210,000,000
Data.w 208,000,000
Data.w 207,000,000
Data.w 205,000,000
Data.w 204,000,000
Data.w 202,000,000
Data.w 200,000,000
Data.w 199,000,000
Data.w 197,000,000
Data.w 195,000,000
Data.w 194,000,000
Data.w 192,000,000
Data.w 190,000,000
Data.w 189,000,000
Data.w 187,000,000
Data.w 185,000,000
Data.w 184,000,000
Data.w 182,000,000
Data.w 180,000,000
Data.w 179,000,000
Data.w 177,000,000
Data.w 176,000,000
Data.w 174,000,000
Data.w 172,000,000
Data.w 171,000,000
Data.w 169,000,000
Data.w 167,000,000
Data.w 166,000,000
Data.w 164,000,000
Data.w 162,000,000
Data.w 161,000,000
Data.w 159,000,000
Data.w 157,000,000
Data.w 156,000,000
Data.w 154,000,000
Data.w 153,000,000
Data.w 151,000,000
Data.w 149,000,000
Data.w 148,000,000
Data.w 146,000,000
Data.w 144,000,000
Data.w 143,000,000
Data.w 141,000,000
Data.w 139,000,000
Data.w 138,000,000
Data.w 136,000,000
Data.w 134,000,000
Data.w 133,000,000
Data.w 131,000,000
Data.w 129,000,000
Data.w 128,000,000
Data.w 126,000,000
Data.w 125,000,000
Data.w 123,000,000
Data.w 121,000,000
Data.w 120,000,000
Data.w 118,000,000
Data.w 116,000,000
Data.w 115,000,000
Data.w 113,000,000
Data.w 111,000,000
Data.w 110,000,000
Data.w 108,000,000
Data.w 106,000,000
Data.w 105,000,000
Data.w 103,000,000
Data.w 102,000,000
Data.w 100,000,000
Data.w 098,000,000
Data.w 097,000,000
Data.w 095,000,000
Data.w 093,000,000
Data.w 092,000,000
Data.w 090,000,000
Data.w 088,000,000
Data.w 087,000,000
Data.w 085,000,000
Data.w 083,000,000
Data.w 082,000,000
Data.w 080,000,000
Data.w 078,000,000
Data.w 077,000,000
Data.w 075,000,000
Data.w 074,000,000
Data.w 072,000,000
Data.w 070,000,000
Data.w 069,000,000
Data.w 067,000,000
Data.w 065,000,000
Data.w 064,000,000
Data.w 062,000,000
Data.w 060,000,000
Data.w 059,000,000
Data.w 057,000,000
Data.w 055,000,000
Data.w 054,000,000
Data.w 052,000,000
Data.w 051,000,000
Data.w 049,000,000
Data.w 047,000,000
Data.w 046,000,000
Data.w 044,000,000
Data.w 042,000,000
Data.w 041,000,000
Data.w 039,000,000
Data.w 037,000,000
Data.w 036,000,000
Data.w 034,000,000
Data.w 032,000,000
Data.w 031,000,000
Data.w 029,000,000
Data.w 027,000,000
Data.w 026,000,000
Data.w 024,000,000
Data.w 023,000,000
Data.w 021,000,000
Data.w 019,000,000
Data.w 018,000,000
Data.w 016,000,000
Data.w 014,000,000
Data.w 013,000,000
Data.w 011,000,000
Data.w 009,000,000
Data.w 008,000,000
Data.w 006,000,000
Data.w 004,000,000
Data.w 003,000,000
Data.w 001,000,000
Data.w 000,000,000

Even
;
]]> <![CDATA[GadTools Gadgets: Fonts]]> https://www.amiblitz.de/community/thread-257.html Sun, 14 Nov 2021 20:48:07 +0100 https://www.amiblitz.de/community/thread-257.html
Dann hilft der einfache Trick, den IntuiFont zu wechseln während des Erstellens der Gadget-List:


Code:
FindScreen1

NEWTYPE.listv
 a.w
 text.s
End NEWTYPE

Dim List lv.listv(10)

AddItem lv():lv()\text="list item 1"
AddItem lv():lv()\text="list item 2"
AddItem lv():lv()\text="list item 3"

LoadFont 1,"topaz.font",11
LoadFont 2,"times.font",11

Use IntuiFont1
GTButton 1,1,5,5,250,15,"topaz testbutton",0

Use IntuiFont2
GTButton 1,2,5,25,250,15,"times testbutton",0

Use IntuiFont1
GTListView 1,3,5,45,250,100,"",0,lv()

Window 1,100,50,300,200,$140F,"gt fonts test",2,1

AttachGTList1,1

Repeat

Until WaitEvent=$200

End

.png   ListViewFont.png (Größe: 7,09 KB / Downloads: 13) ]]>
Dann hilft der einfache Trick, den IntuiFont zu wechseln während des Erstellens der Gadget-List:


Code:
FindScreen1

NEWTYPE.listv
 a.w
 text.s
End NEWTYPE

Dim List lv.listv(10)

AddItem lv():lv()\text="list item 1"
AddItem lv():lv()\text="list item 2"
AddItem lv():lv()\text="list item 3"

LoadFont 1,"topaz.font",11
LoadFont 2,"times.font",11

Use IntuiFont1
GTButton 1,1,5,5,250,15,"topaz testbutton",0

Use IntuiFont2
GTButton 1,2,5,25,250,15,"times testbutton",0

Use IntuiFont1
GTListView 1,3,5,45,250,100,"",0,lv()

Window 1,100,50,300,200,$140F,"gt fonts test",2,1

AttachGTList1,1

Repeat

Until WaitEvent=$200

End

.png   ListViewFont.png (Größe: 7,09 KB / Downloads: 13) ]]> <![CDATA[Text Scrolling in Fenstern.]]> https://www.amiblitz.de/community/thread-256.html Sun, 24 Oct 2021 03:13:36 +0200 https://www.amiblitz.de/community/thread-256.html

Code:
LoadFont1,"topaz.font",11
FindScreen1

WBStartup
SetErr:End:End SetErr

DEFTYPE.l

DEFTYPE.w y,stp,tpos

Window1,0,0,ScreenWidth,ScreenHeight,$140F,"win scroll test",2,1

Gosub refwin

ttext$="  Evil Midan, tyrant of the highest order, lies hidden deep within his underground lair. Allied security forces demand"
ttext$+" his reign to cease. one man is needed. that man is YOU.           "

Repeat
  ev=Event   ;we don't wait...
  Delay_1    ;...here we do!
  Gosub winscroll
  If ev=$2 Then Gosub refwin

Until ev=$200
End

.winscroll:
 WScroll 1,y.w,InnerWidth,y+12,1,0,0:stp+1

;note: the Topaz font has a width of 8 pixl for each char
 If stp>7   ;fonts char with-1
   stp=0
   tpos.w+1:If tpos>Len(ttext$) Then tpos=0

   tchar$=Mid$(ttext$,tpos,1)
;   WLocate InnerWidth-8,y:Print tchar$
 Else
   WLocate InnerWidth-stp,y:Print tchar$
 EndIf

Return

.refwin
    WCls

    y=InnerHeight/2

    Wline 0,y-2,InnerWidth,y-2,1
    Wline 0,y+14,InnerWidth,y+14,1

    stp.w=0
    tpos.w=0

Return


.jpg   PSX_20211024_031153.jpg (Größe: 24,96 KB / Downloads: 14) ]]>

Code:
LoadFont1,"topaz.font",11
FindScreen1

WBStartup
SetErr:End:End SetErr

DEFTYPE.l

DEFTYPE.w y,stp,tpos

Window1,0,0,ScreenWidth,ScreenHeight,$140F,"win scroll test",2,1

Gosub refwin

ttext$="  Evil Midan, tyrant of the highest order, lies hidden deep within his underground lair. Allied security forces demand"
ttext$+" his reign to cease. one man is needed. that man is YOU.           "

Repeat
  ev=Event   ;we don't wait...
  Delay_1    ;...here we do!
  Gosub winscroll
  If ev=$2 Then Gosub refwin

Until ev=$200
End

.winscroll:
 WScroll 1,y.w,InnerWidth,y+12,1,0,0:stp+1

;note: the Topaz font has a width of 8 pixl for each char
 If stp>7   ;fonts char with-1
   stp=0
   tpos.w+1:If tpos>Len(ttext$) Then tpos=0

   tchar$=Mid$(ttext$,tpos,1)
;   WLocate InnerWidth-8,y:Print tchar$
 Else
   WLocate InnerWidth-stp,y:Print tchar$
 EndIf

Return

.refwin
    WCls

    y=InnerHeight/2

    Wline 0,y-2,InnerWidth,y-2,1
    Wline 0,y+14,InnerWidth,y+14,1

    stp.w=0
    tpos.w=0

Return


.jpg   PSX_20211024_031153.jpg (Größe: 24,96 KB / Downloads: 14) ]]> <![CDATA[BlitzMode Interlace]]> https://www.amiblitz.de/community/thread-255.html Fri, 15 Oct 2021 23:57:17 +0200 https://www.amiblitz.de/community/thread-255.html
Ok, die Anleitung ist nicht immer fehlerfrei und AGA macht gelegentlich einen Strich durch die Rechnung, aber was soll's.

Interlace erfordert normalerweise eine besondere Behandlung der Copperliste, aus der das Display aufgebaut ist.

Da das Display nur noch halb so schnell aufgebaut wird (immer erst ein Halbbild, gerade, dann das andere, ungerade), und der Vblank Interrupt dies auch bei jedem Wechsel anzeigt, können wir dies benutzen, um das jeweilige Halbbild anzuzeigen. Damit das funktioniert, muß aber das angezeigte Halbbild natürlich jede zweite Zeile überspringen.
Das erreichen wir, indem wir die Zeilenbreite (Modulo, was übersprungen wird, um die nächste Zeile anzusteuern), die das Display (Slice) erwartet, verdoppeln. Die unnütze nächste Zeile verschwindet quasi rechts von der aktuellen im Nichts. Wink

Slice 0,44,`1,`2 / 2,$fff8,`3,8,32,`1+`1,`1+`1

Außerdem müssen wir das LACE Bit setzen in einem Spezialregister.
Dafür hat Blitz2 eine Abkürzung eingebaut: SetBplcon0.

Hier ist der Sourcecode im Beispiel. Macro benutzt, einfach mal so.

Code:
Macro laceblitz  ;w, h, d

 BitMap0,`1,`2,`3

 VWait50

 SetBPLCON0 4   ;set lace bit!

 BLITZ
                    ;$fff9 for HiRes
 Slice0,44,`1,`2 / 2,$fff8,`3,8,32,`1+`1,`1+`1


 SetInt5   ;VBI

   ;If Peek.w($dff004)<0 Show 0,0,0 Else Show 0,0,1  ;doesn't work on AGA??
   lfr.b=1-lfr     ;swap lace frame#
   Show 0,0,lfr    ;lace frame# becomes y offset to show

 End SetInt

Use BitMap0:BitMapOutput0


End Macro


!laceblitz {320,400,2}

RGB 0,1,2,5
RGB 1,15,14,13

NPrint""
NPrint "hello world!"


Circle 160,200,90,180,1

Line   70,380,250,20,1


MouseWait


ClrInt5    ;kill VBI

SetBPLCON0 0

VWait 50

End


Beispiel Screenshot:

.jpg   bmodelace_sshot.jpg (Größe: 389,62 KB / Downloads: 19) ]]>
Ok, die Anleitung ist nicht immer fehlerfrei und AGA macht gelegentlich einen Strich durch die Rechnung, aber was soll's.

Interlace erfordert normalerweise eine besondere Behandlung der Copperliste, aus der das Display aufgebaut ist.

Da das Display nur noch halb so schnell aufgebaut wird (immer erst ein Halbbild, gerade, dann das andere, ungerade), und der Vblank Interrupt dies auch bei jedem Wechsel anzeigt, können wir dies benutzen, um das jeweilige Halbbild anzuzeigen. Damit das funktioniert, muß aber das angezeigte Halbbild natürlich jede zweite Zeile überspringen.
Das erreichen wir, indem wir die Zeilenbreite (Modulo, was übersprungen wird, um die nächste Zeile anzusteuern), die das Display (Slice) erwartet, verdoppeln. Die unnütze nächste Zeile verschwindet quasi rechts von der aktuellen im Nichts. Wink

Slice 0,44,`1,`2 / 2,$fff8,`3,8,32,`1+`1,`1+`1

Außerdem müssen wir das LACE Bit setzen in einem Spezialregister.
Dafür hat Blitz2 eine Abkürzung eingebaut: SetBplcon0.

Hier ist der Sourcecode im Beispiel. Macro benutzt, einfach mal so.

Code:
Macro laceblitz  ;w, h, d

 BitMap0,`1,`2,`3

 VWait50

 SetBPLCON0 4   ;set lace bit!

 BLITZ
                    ;$fff9 for HiRes
 Slice0,44,`1,`2 / 2,$fff8,`3,8,32,`1+`1,`1+`1


 SetInt5   ;VBI

   ;If Peek.w($dff004)<0 Show 0,0,0 Else Show 0,0,1  ;doesn't work on AGA??
   lfr.b=1-lfr     ;swap lace frame#
   Show 0,0,lfr    ;lace frame# becomes y offset to show

 End SetInt

Use BitMap0:BitMapOutput0


End Macro


!laceblitz {320,400,2}

RGB 0,1,2,5
RGB 1,15,14,13

NPrint""
NPrint "hello world!"


Circle 160,200,90,180,1

Line   70,380,250,20,1


MouseWait


ClrInt5    ;kill VBI

SetBPLCON0 0

VWait 50

End


Beispiel Screenshot:

.jpg   bmodelace_sshot.jpg (Größe: 389,62 KB / Downloads: 19) ]]> <![CDATA[AmigaOS 3.2 Support]]> https://www.amiblitz.de/community/thread-247.html Sun, 06 Jun 2021 22:29:49 +0200 https://www.amiblitz.de/community/thread-247.html
Ich hänge hier unten schonmal die wichtigsten Libs dran, aber seid gewarnt:
Wenn ihr nicht die gleichen Libnumbers habt in eurer Installation, dann gibt es Probleme!

Im Prinzip müßt ihr vor dem Update eure Libs scannen, entweder mit einem speziellen Tool oder dem LibMan. Dort seht ihr dann, welche Libnummern ihr verwenden müßt, damit alles so weiter funktioniert wie bisher. Ihr solltet NICHT NEUE FREIE NUMMERN VERWENDEN, sondern die 'alten'!

Die Libs brauchen z.T. zwei Sub-Libs, wegen der Token-Anzahl, darum gibt es auch manchmal zwei Libnums! Siehe im Screenshot dos.library1+2.

.png   libman_deflibs.png (Größe: 22,08 KB / Downloads: 13)

Meine Libnums hier mal als Beispiel:

Code:
; AMIGA LIBRARIES

#intuition-lib1               = 255
#graphics-lib1                = 254
#exec-lib1                    = 253
#dos-lib1                     = 252
#diskfont-lib1                = 251
#graphics-lib2                = 250
#dos-lib2                     = 249
#amigaguide-lib1              = 248
#asl-lib1                     = 247
#battclock-lib1               = 246
#battmem-lib1                 = 245
#bullet-lib1                  = 244
#card-lib1                    = 243
#ciaa-lib1                    = 242
#ciab-lib1                    = 241
#commodities-lib1             = 240
#datatypes-lib1               = 239
#disk-lib1                    = 238
#expansion-lib1               = 237
#gadtools-lib1                = 236
#icon-lib1                    = 235
#iffparse-lib1                = 234
#keymap-lib1                  = 233
#layers-lib1                  = 232
#locale-lib1                  = 231
#mathffp-lib1                 = 230
#mathieeedoubbas-lib1         = 229
#mathieeedoubtrans-lib1       = 228
#mathieeesingbas-lib1         = 227
#mathieeesingtrans-lib1       = 226
#mathtrans-lib1               = 225
#misc-lib1                    = 224
#potgo-lib1                   = 223
#rexxsyslib-lib1              = 222
#utility-lib1                 = 221
#colorwheel-lib1              = 219 ; CLASH(1x:)!; RESERVED FOR: #cdtvlib
#xfa-lib1                     = 218
#boards-lib1                  = 217
#workbench39-lib1             = 216

; BASIC LIBRARIES

#Bbgtlib                      = 141
#Gadgetslib                   = 140
#Windowslib                   = 138
#Bbasllib                     =  80

; OTHER LIBRARIES

#LotanWord                    = 196
#LotanMemExt                  = 173
#LotanMem                     = 172
#cd32lib                      = 113
#ElmoreIncLib                 = 111
#ElmoreDosLib                 = 109
#ElmoreSysLib                 = 107
#ElmoreMathLib                = 105
#ElmoreHardwareLib            = 103
#ElmoreFuncsLib               = 101
#RomulusCrunchLib             =  74
#RomulusPrtLib                =  70
#RomulusRequestLib            =  69
#RomulusLocaleLib             =  68
#RomulusConsoleLib            =  67
#AaronsIconLib                =  62
#NeilsCIATrackerLib           =  56
#NeilsIndicatorLib            =  55
#NeilsReqToolsLib             =  54
#RomulusAmigaLib              =  47

; RI(LES/RWE) LIBRARIES

#Riarexxlib                   = 133
#Rievallib                    = 121
#Rifnslib                     =  93
#RITrackDiskLib               =  91
#Ricommoditieslib             =  89
#RIReqLib                     =  79
#RIAmosFuncLib                =  75
#Ripacklib                    =  73
#Rifxlib                      =  66
#Rigfxlib                     =  65
#Rizonejoylib                 =  64
#Riapplib                     =  61
#Ritooltypeslib               =  59
#Rianimlib                    =  57
#Riencryptlib                 =  52
#Ridebuglib                   =  51
#RIDisAsm                     =  50
#RIShapesLib                  =  46
#Risoundlib                   =  45
#Rigtmenulib                  =  37
#Rifastseriallib              =  36
#Ridoslib                     =  33
#Ridatatypeslib               =  25
#Ristcdecrunchlib             =  18
#Ristonecrackerlib            =  17
#Ricompactdisklib             =  14
#RISortLib                    =  13
#RIListLib                    =  12
#Ricopperfxlib                =  11

; USER LIBRARIES

#EMLLib                       =  60
#MazFpuLib                    =  35
#QuickLib                     =  19
#dbaselib                     =  10
#BDGfxLib                     =   9
#XBaudiolib                   =   4

; NEW (OTHER USER) LIBRARIES

#nWbStartup                   = 199
#nDrawing                     = 188
#nPicture                     = 183
#nMenu                        = 181
#nGadTools                    = 179
#nDos                         = 174
#nFont                        = 170
#nScreen                      = 169
#nWindow                      = 168
#nMisc                        = 167
#nString                      = 166
#nMemory                      = 165
#nToolType                    = 151
#nTagList                     = 149
#nOS                          = 145
#nPalette                     = 139
#nLocale                      = 137
#nSort                        = 131
#nFile                        =  41

; USER(CODER/BETA) LIBRARIES

#disassembler-lib1            = 215
#nonvolatile-lib1             = 214
#Picasso96API-lib1            = 213
#i2c_v40-lib                  = 212
#RayToolsLib                  =  44
#RayPixLib                    =  34
#RayDosLib                    =  23
#RayAreaLib                   =  22
#RayMathLib                   =  20
#EFMUILib                     =   8

; DEACTIVATED LIBS

#workbench-lib1               = 220
#boards-lib1_OLD              = 217 ; CLASH(1x:)!
#Rimisclib                    =  47 ; CLASH(1x:)!
#Rinonvolatilelib             =  35 ; CLASH(1x:)!
#Rwemathlib                   =  23 ; CLASH(1x:)!


; WARNING! 5 LIBRARY CLASH(S) (=doubles/triples etc.) FOUND !


; FREE library numbers(122):

;    1    2    3    5    6    7

;   15   16   21   24   26   27   28   29   30   31   32   38   39   40   42
;   43   48   49   53   58   63   76   77   78   81   82   83   85   88   90
;   92   94   95   96   97   98   99

;  100  102  104  106  108  110  112  114  115  116  117  118  119  120  122
;  123  124  125  126  127  128  129  130  132  134  135  136  142  143  144
;  146  147  148  150  152  153  154  155  156  157  158  159  160  161  162
;  163  164  171  175  176  177  178  180  182  184  185  186  187  189  190
;  191  192  193  194  195  197  198

;  200  201  202  203  204  205  206  207  208  209  210  211
Ganz oben sieht man die dos.lib zweimal, mit unterschiedlichen Nummern!! Wichtig! Aufschreiben!
Mit den neuen Amigalibs müßt ihr natürlich auch noch testen, ob die Tokens erkannt werden:

.png   newlibs_test.png (Größe: 13,65 KB / Downloads: 19)
Yep! Big Grin

.lha   AOS32_AmigaLibs.lha (Größe: 10,91 KB / Downloads: 2) ]]>
Ich hänge hier unten schonmal die wichtigsten Libs dran, aber seid gewarnt:
Wenn ihr nicht die gleichen Libnumbers habt in eurer Installation, dann gibt es Probleme!

Im Prinzip müßt ihr vor dem Update eure Libs scannen, entweder mit einem speziellen Tool oder dem LibMan. Dort seht ihr dann, welche Libnummern ihr verwenden müßt, damit alles so weiter funktioniert wie bisher. Ihr solltet NICHT NEUE FREIE NUMMERN VERWENDEN, sondern die 'alten'!

Die Libs brauchen z.T. zwei Sub-Libs, wegen der Token-Anzahl, darum gibt es auch manchmal zwei Libnums! Siehe im Screenshot dos.library1+2.

.png   libman_deflibs.png (Größe: 22,08 KB / Downloads: 13)

Meine Libnums hier mal als Beispiel:

Code:
; AMIGA LIBRARIES

#intuition-lib1               = 255
#graphics-lib1                = 254
#exec-lib1                    = 253
#dos-lib1                     = 252
#diskfont-lib1                = 251
#graphics-lib2                = 250
#dos-lib2                     = 249
#amigaguide-lib1              = 248
#asl-lib1                     = 247
#battclock-lib1               = 246
#battmem-lib1                 = 245
#bullet-lib1                  = 244
#card-lib1                    = 243
#ciaa-lib1                    = 242
#ciab-lib1                    = 241
#commodities-lib1             = 240
#datatypes-lib1               = 239
#disk-lib1                    = 238
#expansion-lib1               = 237
#gadtools-lib1                = 236
#icon-lib1                    = 235
#iffparse-lib1                = 234
#keymap-lib1                  = 233
#layers-lib1                  = 232
#locale-lib1                  = 231
#mathffp-lib1                 = 230
#mathieeedoubbas-lib1         = 229
#mathieeedoubtrans-lib1       = 228
#mathieeesingbas-lib1         = 227
#mathieeesingtrans-lib1       = 226
#mathtrans-lib1               = 225
#misc-lib1                    = 224
#potgo-lib1                   = 223
#rexxsyslib-lib1              = 222
#utility-lib1                 = 221
#colorwheel-lib1              = 219 ; CLASH(1x:)!; RESERVED FOR: #cdtvlib
#xfa-lib1                     = 218
#boards-lib1                  = 217
#workbench39-lib1             = 216

; BASIC LIBRARIES

#Bbgtlib                      = 141
#Gadgetslib                   = 140
#Windowslib                   = 138
#Bbasllib                     =  80

; OTHER LIBRARIES

#LotanWord                    = 196
#LotanMemExt                  = 173
#LotanMem                     = 172
#cd32lib                      = 113
#ElmoreIncLib                 = 111
#ElmoreDosLib                 = 109
#ElmoreSysLib                 = 107
#ElmoreMathLib                = 105
#ElmoreHardwareLib            = 103
#ElmoreFuncsLib               = 101
#RomulusCrunchLib             =  74
#RomulusPrtLib                =  70
#RomulusRequestLib            =  69
#RomulusLocaleLib             =  68
#RomulusConsoleLib            =  67
#AaronsIconLib                =  62
#NeilsCIATrackerLib           =  56
#NeilsIndicatorLib            =  55
#NeilsReqToolsLib             =  54
#RomulusAmigaLib              =  47

; RI(LES/RWE) LIBRARIES

#Riarexxlib                   = 133
#Rievallib                    = 121
#Rifnslib                     =  93
#RITrackDiskLib               =  91
#Ricommoditieslib             =  89
#RIReqLib                     =  79
#RIAmosFuncLib                =  75
#Ripacklib                    =  73
#Rifxlib                      =  66
#Rigfxlib                     =  65
#Rizonejoylib                 =  64
#Riapplib                     =  61
#Ritooltypeslib               =  59
#Rianimlib                    =  57
#Riencryptlib                 =  52
#Ridebuglib                   =  51
#RIDisAsm                     =  50
#RIShapesLib                  =  46
#Risoundlib                   =  45
#Rigtmenulib                  =  37
#Rifastseriallib              =  36
#Ridoslib                     =  33
#Ridatatypeslib               =  25
#Ristcdecrunchlib             =  18
#Ristonecrackerlib            =  17
#Ricompactdisklib             =  14
#RISortLib                    =  13
#RIListLib                    =  12
#Ricopperfxlib                =  11

; USER LIBRARIES

#EMLLib                       =  60
#MazFpuLib                    =  35
#QuickLib                     =  19
#dbaselib                     =  10
#BDGfxLib                     =   9
#XBaudiolib                   =   4

; NEW (OTHER USER) LIBRARIES

#nWbStartup                   = 199
#nDrawing                     = 188
#nPicture                     = 183
#nMenu                        = 181
#nGadTools                    = 179
#nDos                         = 174
#nFont                        = 170
#nScreen                      = 169
#nWindow                      = 168
#nMisc                        = 167
#nString                      = 166
#nMemory                      = 165
#nToolType                    = 151
#nTagList                     = 149
#nOS                          = 145
#nPalette                     = 139
#nLocale                      = 137
#nSort                        = 131
#nFile                        =  41

; USER(CODER/BETA) LIBRARIES

#disassembler-lib1            = 215
#nonvolatile-lib1             = 214
#Picasso96API-lib1            = 213
#i2c_v40-lib                  = 212
#RayToolsLib                  =  44
#RayPixLib                    =  34
#RayDosLib                    =  23
#RayAreaLib                   =  22
#RayMathLib                   =  20
#EFMUILib                     =   8

; DEACTIVATED LIBS

#workbench-lib1               = 220
#boards-lib1_OLD              = 217 ; CLASH(1x:)!
#Rimisclib                    =  47 ; CLASH(1x:)!
#Rinonvolatilelib             =  35 ; CLASH(1x:)!
#Rwemathlib                   =  23 ; CLASH(1x:)!


; WARNING! 5 LIBRARY CLASH(S) (=doubles/triples etc.) FOUND !


; FREE library numbers(122):

;    1    2    3    5    6    7

;   15   16   21   24   26   27   28   29   30   31   32   38   39   40   42
;   43   48   49   53   58   63   76   77   78   81   82   83   85   88   90
;   92   94   95   96   97   98   99

;  100  102  104  106  108  110  112  114  115  116  117  118  119  120  122
;  123  124  125  126  127  128  129  130  132  134  135  136  142  143  144
;  146  147  148  150  152  153  154  155  156  157  158  159  160  161  162
;  163  164  171  175  176  177  178  180  182  184  185  186  187  189  190
;  191  192  193  194  195  197  198

;  200  201  202  203  204  205  206  207  208  209  210  211
Ganz oben sieht man die dos.lib zweimal, mit unterschiedlichen Nummern!! Wichtig! Aufschreiben!
Mit den neuen Amigalibs müßt ihr natürlich auch noch testen, ob die Tokens erkannt werden:

.png   newlibs_test.png (Größe: 13,65 KB / Downloads: 19)
Yep! Big Grin

.lha   AOS32_AmigaLibs.lha (Größe: 10,91 KB / Downloads: 2) ]]> <![CDATA[Blitz2 auf einem A500, 1MB, Floppy]]> https://www.amiblitz.de/community/thread-233.html Sat, 06 Mar 2021 23:07:10 +0100 https://www.amiblitz.de/community/thread-233.html
Dazu muß man sich eine Bootdiskette herrichten, die noch etwas Platz frei hat für Sourcecodes.

.png   Blitz2_v15_001.png (Größe: 63,03 KB / Downloads: 15)
So kann man zwar keine größeren Projekte starten, aber zum Reinschnuppern ist es allemal gut genug! ?

In meinem Fall ist es die 1.0 bzw. 1.5.

.png   Blitz2_v15_003.png (Größe: 41,16 KB / Downloads: 11)

About Window, plus 'hidden' Thanx:

.png   Blitz2_v15_004.png (Größe: 61,79 KB / Downloads: 7)
.png   Blitz2_v15_005.png (Größe: 92,13 KB / Downloads: 8) ]]>
Dazu muß man sich eine Bootdiskette herrichten, die noch etwas Platz frei hat für Sourcecodes.

.png   Blitz2_v15_001.png (Größe: 63,03 KB / Downloads: 15)
So kann man zwar keine größeren Projekte starten, aber zum Reinschnuppern ist es allemal gut genug! ?

In meinem Fall ist es die 1.0 bzw. 1.5.

.png   Blitz2_v15_003.png (Größe: 41,16 KB / Downloads: 11)

About Window, plus 'hidden' Thanx:

.png   Blitz2_v15_004.png (Größe: 61,79 KB / Downloads: 7)
.png   Blitz2_v15_005.png (Größe: 92,13 KB / Downloads: 8) ]]> <![CDATA[GUI-Example: WB-like BorderScrollbars]]> https://www.amiblitz.de/community/thread-229.html Sat, 27 Feb 2021 15:40:17 +0100 https://www.amiblitz.de/community/thread-229.html
Es wird aktuell noch nichts gescrollt, das kann man implementieren, wie man mag; also Superbitmap oder eine eigene Liste usw..
Code:
; BorderGadgets Example BlitzBasic2
; by F.Brandis


FindScreen1

;We Use a GZZ Window Type, therefore we have our own
; Rastport we can draw upon inside the window`s frame
; with origin 0,0

;note the negative coords!
; the winborder gadgets have a relative size
;    to the windows dimensions

;don`t forget special GZZ flags all around
;Note:
;to be really font-sensitive we should get the screen's Barheight for setting the correct y-pos of the right scrollbar

PropGadget 2,-13,16,$11000|16|2|128|256,1, 11,-50 ;right vert
PropGadget 2,  3,-7,$18000|8|4|64|256  ,2,-54,6   ;botm horiz
SetVProp   2,  1,0,1
SetHProp   2,  2,0,1

;here too,
;relativity flags are req. for positioning:

;%10 = rel. to bottom edge (if window is resizable)
;% 1 = dito right edge

;so all x,y are negative as relative to the right/bottom
;   from their dimensions

ArrowGadget2,3,$B,-17,-31,%11,1   ;up
ArrowGadget2,4,$D,-17,-20,%11,1   ;down

ArrowGadget2,5,$A,-49,- 9,%11,1   ;left
ArrowGadget2,6,$C,-33,- 9,%11,1   ;right

;note:                   x400 for GZZ window
Window 2,140,90,200,100,$14FF,"scroll me",0,2,2


Repeat

Until WaitEvent=$200
End

.jpg   BB2-scrollertestWin.JPG (Größe: 26,33 KB / Downloads: 34) ]]>
Es wird aktuell noch nichts gescrollt, das kann man implementieren, wie man mag; also Superbitmap oder eine eigene Liste usw..
Code:
; BorderGadgets Example BlitzBasic2
; by F.Brandis


FindScreen1

;We Use a GZZ Window Type, therefore we have our own
; Rastport we can draw upon inside the window`s frame
; with origin 0,0

;note the negative coords!
; the winborder gadgets have a relative size
;    to the windows dimensions

;don`t forget special GZZ flags all around
;Note:
;to be really font-sensitive we should get the screen's Barheight for setting the correct y-pos of the right scrollbar

PropGadget 2,-13,16,$11000|16|2|128|256,1, 11,-50 ;right vert
PropGadget 2,  3,-7,$18000|8|4|64|256  ,2,-54,6   ;botm horiz
SetVProp   2,  1,0,1
SetHProp   2,  2,0,1

;here too,
;relativity flags are req. for positioning:

;%10 = rel. to bottom edge (if window is resizable)
;% 1 = dito right edge

;so all x,y are negative as relative to the right/bottom
;   from their dimensions

ArrowGadget2,3,$B,-17,-31,%11,1   ;up
ArrowGadget2,4,$D,-17,-20,%11,1   ;down

ArrowGadget2,5,$A,-49,- 9,%11,1   ;left
ArrowGadget2,6,$C,-33,- 9,%11,1   ;right

;note:                   x400 for GZZ window
Window 2,140,90,200,100,$14FF,"scroll me",0,2,2


Repeat

Until WaitEvent=$200
End

.jpg   BB2-scrollertestWin.JPG (Größe: 26,33 KB / Downloads: 34) ]]> <![CDATA[Inhalt hier (WIP)]]> https://www.amiblitz.de/community/thread-227.html Sat, 27 Feb 2021 15:25:50 +0100 https://www.amiblitz.de/community/thread-227.html threads:
handbuch beispiele +
Hb disks spiele, bum spiele(?)
bui's
bum 1-10
developer disks


IDE:
Revisions-Header, compiletime, buildnr etc.

Macros - Bsp. SimpleBlitz, Seterr-Handling, versionsstring

File i/O - BB2 & Amigalib.res

Requests/Requesters
FileRequest - BB2, ASL, ReqTools
EZRequest, Request_()
Screenrequest, FontRequest
ARP?

GUI - Bordergadgets, Superbmap

GadToolsBox2 - GUI2BB2

MUI?

Sorting - BubbleSort, Quicksort ...; Highscore (bum10a examples)
Timing

Spiele:
Insectoids2
Defender
Buzzbar

Extras:
Debugger Historie?

DeveloperDocs einfügen?

optimierungen
prozeduren, exit
if then nesting
and or
multi vs shift]]> threads:
handbuch beispiele +
Hb disks spiele, bum spiele(?)
bui's
bum 1-10
developer disks


IDE:
Revisions-Header, compiletime, buildnr etc.

Macros - Bsp. SimpleBlitz, Seterr-Handling, versionsstring

File i/O - BB2 & Amigalib.res

Requests/Requesters
FileRequest - BB2, ASL, ReqTools
EZRequest, Request_()
Screenrequest, FontRequest
ARP?

GUI - Bordergadgets, Superbmap

GadToolsBox2 - GUI2BB2

MUI?

Sorting - BubbleSort, Quicksort ...; Highscore (bum10a examples)
Timing

Spiele:
Insectoids2
Defender
Buzzbar

Extras:
Debugger Historie?

DeveloperDocs einfügen?

optimierungen
prozeduren, exit
if then nesting
and or
multi vs shift]]>