Hallo, Gast
Du musst dich registrieren bevor du auf unserer Seite Beiträge schreiben kannst.

Benutzername
  

Passwort
  





Durchsuche Foren

(Erweiterte Suche)

Foren-Statistiken
» Mitglieder: 138
» Neuestes Mitglied: Tolgagraiz
» Foren-Themen: 294
» Foren-Beiträge: 2.633

Komplettstatistiken

Benutzer Online
Momentan sind 35 Benutzer online
» 0 Mitglieder
» 32 Gäste
Bing, Google, Yandex

Aktive Themen
Text hintergrund transpar...
Forum: Questions & Answers
Letzter Beitrag: xp^tsa
03.01.2026, 01:44
» Antworten: 2
» Ansichten: 335
screen hintergrund
Forum: Questions & Answers
Letzter Beitrag: xp^tsa
31.12.2025, 04:32
» Antworten: 2
» Ansichten: 379
Schöne Weihnachten und gu...
Forum: Off Topic
Letzter Beitrag: xp^tsa
27.12.2025, 20:26
» Antworten: 23
» Ansichten: 74.806
RedPill - Game Constructi...
Forum: Projects
Letzter Beitrag: HelmutH
06.12.2025, 14:04
» Antworten: 46
» Ansichten: 145.479
North Engine 2
Forum: Projects
Letzter Beitrag: HelmutH
09.11.2025, 14:16
» Antworten: 14
» Ansichten: 5.899
AmiBlitz3: Amiga 40 Editi...
Forum: News
Letzter Beitrag: HelmutH
09.11.2025, 13:59
» Antworten: 0
» Ansichten: 643
AmiBlitz3 – Entwickler ID...
Forum: Tutorials
Letzter Beitrag: HelmutH
03.11.2025, 21:28
» Antworten: 0
» Ansichten: 711
North Engine 1
Forum: Projects
Letzter Beitrag: HelmutH
10.09.2025, 20:19
» Antworten: 7
» Ansichten: 4.951
BlitzFonts ohne diskfont....
Forum: AB³ Development
Letzter Beitrag: hackball
28.08.2025, 20:31
» Antworten: 0
» Ansichten: 1.157
Amos2Blitz?
Forum: Showcase
Letzter Beitrag: hackball
24.08.2025, 20:01
» Antworten: 11
» Ansichten: 61.537

 
Smile Tetris!
Geschrieben von: hackball - 04.02.2022, 23:52 - Forum: Showcase - Keine Antworten

Wie ihr alle wißt, sollte man auf jeden Fall mal ein Tetris selbst programmiert haben.

Darum hier meine Version davon. Big Grin von 1996!  Blush

Das ist jetzt natürlich noch kein richtiges Spiel, nur ein ProofOfConcept oder so.

ist schon etwas älter, ich hab es heute nochmal neu kompiliert, vorher nochmal durchgesehen wegen Bugs und so, war aber größtenteils schonmal revidiert irgendwann 2000-2003 oder so. Tongue
Sounds hängen hinterher, aber sonst... Angel

   

Joystick in Port 1 zur Steuerung, P für Pause, Q oder ESC für Ende.

Das Spiel macht einen PAL Screen auf.



Angehängte Dateien
.lha   mytetris.lha (Größe: 55,26 KB / Downloads: 1)
Drucke diesen Beitrag

  GadTools Gadgets: Fonts
Geschrieben von: hackball - 14.11.2021, 21:48 - Forum: Basics & Manual - Keine Antworten

Manchmal will man verschiedene Fonts für diverse Gadgets verwenden, z.B. weil man in einem Listview lieber alles nett untereinander gelistet haben will und man sich mit Charakter-Spalten begnügt.

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
   

Drucke diesen Beitrag

  Text Scrolling in Fenstern.
Geschrieben von: hackball - 24.10.2021, 03:13 - Forum: Basics & Manual - Antworten (1)

Dies ist eigentlich ein einfaches Thema, aber erscheint irgendwie 'schwierig wegen Basic' oder so.


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



Angehängte Dateien Thumbnail(s)
   
Drucke diesen Beitrag

Wink BlitzMode Interlace
Geschrieben von: hackball - 15.10.2021, 23:57 - Forum: Basics & Manual - Antworten (1)

Es scheint immer mal wieder die Frage aufzutauchen, wie man ein Interlace-Display aufbaut. Dabei steht es doch in der Anleitung.

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:
   

Drucke diesen Beitrag

  amiblitz etwas abspecken
Geschrieben von: xp^tsa - 01.09.2021, 09:26 - Forum: Questions & Answers - Antworten (1)

hab wieder eine meiner speziellen fragen Wink

kann man amiblitz etwas abspecken, das es nur sagen wir mal 3-4 mb ram braucht

hintergrund ist der:
hab mir nen a500 geholt und nen ram-hack gemacht
hab nun 1mb chip und 1,5 slow

will nun etwas weiter aufpeppen, hab mich wohl für die terriblefire entschieden
dummerweise hat die tf nur 4mb fast
(die aka500+ hätte zwar 8, aber zu wenig leistung im speed,
den anderen kram brauch ich nich, nen kick3.1 hab ich eingebaut
und nen ide-adapter is an der tf auch drann)

mein endziel ist es, games zu coden die so ein system
auch benutzen, also trotz nur ecs/ocs aber 30/40 mhz

dafür hab ich ins purebasic amiga eine c2p engine eingebaut
die 6 bitplanes hat (auf echter hardware nicht getestet)
und hab noch eine für 4 bpl

unter amiblitz würd ich die normalen ecs-screen mit display-library
benutzen eventuell mit nen paar coppertrix
und das ganze blitting in 32 farben per cpu aus dem fastram

damit wäre so ne configuration auch mal benutzt



nun das problem:
im emu mit 2mb chip und 8mb fast nimmt amiblitz 7mb fast
das würde dann wohl auf meinem 1+5.5 mb nicht laufen

...hab auch irgendwie nicht so den drang des budget zu erhöhen
um mir ne tf mit 64mb ram zu holen, soll wohl dann auch
nen besseres netzteil brauchen und so weiter...

dann lieber amiblitz etwas abspecken

Drucke diesen Beitrag

  allgemeine frage grafikkarten
Geschrieben von: xp^tsa - 27.08.2021, 23:49 - Forum: Off Topic - Antworten (3)

hallo,

hab da mal ne allgemeine frage zu amiga grafikkarten

werden die auflösungen 320x256 oder eben 320x240 in 8 bit von allen
unterstützt?

und

was ist die kleineste auflösung, die alle gfx karten haben
zu 256 farben?


---------

die sache ist, habe schon einiges an grafiken und eben auch handgepixeltes
ist/war für amiga aga 320x256.

ein "hochrechnen" und /oder nochmal nachpixeln damits auf 640x480
toll aussieht ist nicht, dafür ists zu viel

würde halt gern die beschleunigung der grafikkarte nutzen und kann mir
das ewige hin und hergefrickel mit den farben und gemache, welche sachen mit in die sprites
müssen, was wird ab wo geblittet , nur um das halbwegs beste rauszuholen, alles sparen

Drucke diesen Beitrag

  pfad ändern
Geschrieben von: xp^tsa - 24.08.2021, 11:50 - Forum: Questions & Answers - Antworten (3)

hallo

gibt es bei blitz2 irgendeinen befehl
um den "arbeitspfad" festzulegen

auch ein compilat ins gewünschte verzeichnis brachte nichts

es wäre dumm absolute pfade "work:testkram/gfx/da-sprite.iff"
statt "gfx/da-sprite.iff" angeben zu müssen

Drucke diesen Beitrag

  Tokenizing
Geschrieben von: xp^tsa - 23.08.2021, 15:00 - Forum: Questions & Answers - Antworten (1)

hab da mal ne frage

wann wird endlich dieses alberne tokenizing abgeschafft?

es war vielleicht mal gut angedacht, weil sich jeder ein anderes lib-set zusammengestellt hat,
aber es ist einfach nur nervig.

ich programmiere auf uae und öffne die quelltexte mit nem texteditor, jedesmal das
als asci exportieren und importieren ist doch albern

..aber fürchte schon, das wird nicht gehen

Drucke diesen Beitrag

  AmiBlitz3 Deutsche Dokumentation?
Geschrieben von: HelmutH - 11.07.2021, 12:32 - Forum: Questions & Answers - Antworten (2)

Hallo in die Runder der AmiBlitz3 Benutzer
Gibt es irgendwo eine Deutsche Dokumentation von AmiBlitz3 ?
Wenn nicht, gäbe es interesse daran?

Drucke diesen Beitrag

  TK Player - Multiformat AHI Player
Geschrieben von: HelmutH - 04.07.2021, 18:16 - Forum: Projects - Antworten (1)

10.10.2005 TK Player V1.5

Multiformat AHI Player (MP3, AIFF, WAV, MOD, MAUD, 8SVX) von Thilo Köhler

Dies ist ein sehr kleiner Player für Audiodateien. 
Er ist so konzipiert, dass er sich in die Defizite der unterstützten Audioformate einfügt. 
Er öffnet keine große und teure GUI, sondern spielt die Audiodatei nur schnell ab.
Er hört auf zu spielen, wenn Sie das kleine Fenster schließen, das den Titel und die laufende Zeit anzeigt.

Benötigt wird ein:
- Amiga mit 4MB Fast-RAM.
- OS3.0+
- AHI V4+



Angehängte Dateien Thumbnail(s)
   
Drucke diesen Beitrag