| Hallo, Gast |
Du musst dich registrieren bevor du auf unserer Seite Beiträge schreiben kannst.
|
| Benutzer Online |
Momentan sind 44 Benutzer online
» 0 Mitglieder
» 42 Gäste
Bing, Google
|
| Aktive Themen |
https://www.amiblitz.de
Forum: Off Topic
Letzter Beitrag: HelmutH
18.03.2025, 21:20
» Antworten: 5
» Ansichten: 762
|
AmiBlitz 3.10.0 veröffent...
Forum: News
Letzter Beitrag: HelmutH
14.03.2025, 23:27
» Antworten: 0
» Ansichten: 262
|
readserial fail (bug ?)
Forum: Questions & Answers
Letzter Beitrag: hackball
13.03.2025, 18:23
» Antworten: 14
» Ansichten: 1.595
|
ReadSerialMem example (al...
Forum: Questions & Answers
Letzter Beitrag: hackball
06.03.2025, 17:31
» Antworten: 4
» Ansichten: 732
|
Diff View (MUI)
Forum: Showcase
Letzter Beitrag: hackball
02.03.2025, 13:03
» Antworten: 0
» Ansichten: 323
|
Foren Statistik
Forum: Off Topic
Letzter Beitrag: plouf
14.02.2025, 11:48
» Antworten: 10
» Ansichten: 2.475
|
WriteSerialString fails....
Forum: Questions & Answers
Letzter Beitrag: hackball
11.02.2025, 18:34
» Antworten: 11
» Ansichten: 2.481
|
listview in Os1.3
Forum: Questions & Answers
Letzter Beitrag: hackball
09.02.2025, 21:07
» Antworten: 11
» Ansichten: 2.383
|
AmySequencer - MIDI- und ...
Forum: Projects
Letzter Beitrag: HelmutH
06.02.2025, 23:52
» Antworten: 4
» Ansichten: 11.100
|
RedPill - Game Constructi...
Forum: Projects
Letzter Beitrag: HelmutH
06.02.2025, 23:35
» Antworten: 44
» Ansichten: 106.977
|
|
|
| Ntui : Requester |
|
Geschrieben von: Blackbird - 02.02.2014, 13:12 - Forum: NTUI
- Antworten (2)
|
 |
Ist das eigentlich vorgesehen das du auch einen Requester mit Userabfrage einbaust für String und Zahlen jeweils getrennt ?
Oder sollte man sich das lieber selber zusammenbasteln ?
|
|
|
| Area-Commands (graphicslib) OLD! |
|
Geschrieben von: hackball - 01.02.2014, 14:51 - Forum: Snippets & Libraries
- Antworten (26)
|
 |
Hallo Leute,
hier mal eine alte Lib für BB2 von mir. Wenn ich mich recht erinnere, funktionierte die recht gut, evtl. gab es auch mal Speicherlecks (Chipmem) oder so, kann mich nicht mehr erinnern.
Wäre schön, wenn da mal jemand drüber schauen könnte.
Code: ;
; RayAreaGfxLib
; programmed for BlitzBasic 2 by Frank Brandis
; (c)opyright 1995 by Frank Brandis
;
; maximum of areasteps = 360 !!!!
;
#rayarealib=22
; graphics
#_allocraster=-492 ;d0=(d0,d1)
#_freeraster =-498 ; (a0,d0,d1)
#_inittmpras =-468 ; (a0,a1,d0)
#_initarea =-282 ; (a0,a1,d0)
#_areamove =-252 ;d0=(a1,d0,d1)
#_areadraw =-258 ;d0=(a1,d0,d1)
#_areaend =-264 ; (a1)
#_areaellipse=-186 ;d0=(a1,d0,d1,d2,d3) ;only os3 ????? i dunno ..
#_drawellipse=-180 ; (a1,d0,d1,d2,d3)
#_setapen =-342 ; (a1,d0)
; exec
#_allocmem =-198 ;d0=(d0,d1)
#_freemem =-210 ; (a1,d0)
!libheader {#rayarealib,0,0,0,0}
!astatement
!args {#word,#word,#word}
!libs {#graphicslib,#la6}
!subs {_areastart,0,0}
!name {"Area","x,y,col ;start of filled polygon"}
!astatement
!args {#word,#word}
!libs {#graphicslib,#la6}
!subs {_areastep,0,0}
!name {"AreaStep","x,y ;next coord of filled polygon"}
!astatement
!args
!libs {#graphicslib,#la6}
!subs {_areafill,0,0}
!name {"AreaFill"," ;closing the polygon"}
!astatement
!args {#word,#word,#word,#word,#word}
!libs {#graphicslib,#la6}
!subs {_areacirc,0,0}
!name {"WCirclef","x,y,xrad,yrad,col"} ;doesn`t work (areaellipse_)
!astatement
!args {#long,#word,#word,#word,#word}
!libs
!subs {_setptrn,0,0}
!name {"Pattern","*rp,areaptrn1,areaptrn2,areaptrn3,areaptrn4"}
!afunction {#long}
!args {#long,#long,#long,#word}
!libs {#graphicslib,#la0,#execlib,#la1}
!subs {_areainit,0,0}
!name {"AreaInit","(*rp,width,height,maxcoords) TRUE if success"}
!afunction {#long}
!args
!libs {#execlib,#la6}
!subs {_areafinit,0,0}
!name {"AreaFinit"," BOOLEAN TRUE if success"}
!astatement
!args {#long,#word}
!libs
!subs {_linepat,0,0}
!name {"LinePattern","*rp,pattval ;pattval could be %1100110011001100"}
!astatement
!args {#long,#long,#byte}
!libs
!subs {_setptrna,0,0}
!name {"PatternA","*rp,&patdef,patsize; user pattern def, patsize must be one of x^2 !!"}
!astatement
!args {#long,#byte}
!libs
!subs {_setolpen,0,0}
!name {"OutlinePen","*rp,colour ;"}
!astatement
!args {#long,#byte}
!libs
!subs {_oline,0,0}
!name {"Outline","*rp,bool.b ; 0 or 1,switches areaborders off or on"}
.
!libfin
._areastart
LEA rastprt(pc),a0
MOVE.l (a0),a1 ;rp here :)
MOVEM.l d0/d1,-(a7);x coord retten
MOVE.l d2,d0 ;colour nach d0
JSR _setapen(a6)
MOVEM.l (a7)+,d0/d1 ;x coord rest.
JSR _areamove(a6) ;AreaMove_ *rp,x,y
RTS
._areastep
LEA rastprt(pc),a0
MOVE.l (a0),a1
JSR _areadraw(a6) ;AreaDraw_ *rp,x,y
RTS
._areacirc
LEA rastprt(pc),a0
MOVE.l (a0),a1 ;*rp in a1
MOVEM.l d0-d3,-(a7);x coord wegen lvosetapen_ retten
MOVE.l d4,d0 ;color nach d0
JSR _setapen(a6)
MOVEM.l (a7)+,d0-d3;x coord rest.
; JSR _areaellipse(a6) ;AreaEllipse_ *rp,x,y,rx,ry ,col
JSR _drawellipse(a6)
JSR _areaend(a6) ;AreaEnd_ *rp
RTS
RTS
._areafill
LEA rastprt(pc),a0
MOVE.l (a0),a1
JSR _areaend(a6) ;AreaEnd_ *rp
RTS
.
._areainit
LEA gfxbas(pc),a2
MOVE.l a0,(a2)
LEA execbas(pc),a2
MOVE.l a1,(a2)
LEA rastprt(pc),a1 ;rastport sichern
MOVE.l d0,(a1)
MOVE.l d3,d0 ;max. areasteps
ADD.l #1,d0 ;ein schritt zu maxsteps hinzu
MULU #5,d0 ;mal 5,wegen rasteralloc.
LEA msteps(pc),a0
MOVE.l d0,(a0) ;als maxsteps sichern
LEA widt(pc),a1
MOVE.w d1,(a1)
MOVE.w d1,d0 ;width, should be windows max width
LEA heit(pc),a1
MOVE.l d2,(a1)
MOVE.l d2,d1 ;height, should be windows max height
LEA gfxbas(pc),a1
MOVE.l (a1),a6
JSR _allocraster(a6)
LEA ras(pc),a1
MOVE.l d0,(a1) ;ras.l=AllocRaster_(640,256)
CMP.l #0,d0:BEQ noinit
LEA widt(pc),a0 ;
MOVE.l (a0),d0 ;
DIVU #8,d0 ;
LEA heit(pc),a0 ;
MOVE.l (a0),d1 ;
MULU d1,d0 ; MOVE.l #$14000,d0 ;(640/8)*256)
LEA ras(pc),a0
MOVE.l (a0),a1
LEA tmpras(pc),a0
JSR _inittmpras(a6) ;err.l=InitTmpRas_(tmpras,buf.l,(640/8)*256)
LEA execbas(pc),a0
MOVE.l (a0),a6
LEA msteps(pc),a1
MOVE.l (a1),d0
MOVE.l #$10001,d1
JSR _allocmem(a6)
LEA buff(pc),a0
MOVE.l d0,(a0) ;buff$=String$(" ",(msteps+1)*5)
CMP.l #0,d0:BEQ noinit
LEA gfxbas(pc),a0
MOVE.l (a0),a6
LEA buff(pc),a0
MOVE.l (a0),a1
LEA areainf(pc),a0 ;eigene structur
MOVE.l #360,d0
JSR _initarea(a6) ;err.l=InitArea_(*ai.AreaInfo,&buff$,360)
LEA rastprt(pc),a0
MOVE.l (a0),a1
LEA tmpras(pc),a0
MOVE.l a0,SizeOf.RastPort\TmpRas(a1) ;*rp\TmpRas=tmpras
LEA areainf(pc),a0
MOVE.l a0,SizeOf.RastPort\AreaInfo(a1) ;*rp\AreaInfo=*ai
MOVEQ #1,d0
BRA okinit
noinit:
MOVEQ #0,d0
okinit:
RTS
._areafinit
LEA widt(pc),a0 ;
MOVE.l (a0),d0 ;MOVE.w #640,d0
LEA heit(pc),a0 ;
MOVE.l (a0),d1 ;MOVE.w #256,d1
LEA gfxbas(pc),a0
MOVE.l (a0),a6
LEA ras(pc),a1
MOVE.l (a1),a0
JSR _freeraster(a6) ;FreeRaster_ *ras,640,256
LEA execbas(pc),a0
MOVE.l (a0),a6
LEA msteps(pc),a0 ;
MOVE.l (a0),d0
LEA buff(pc),a0 ;
MOVE.l (a0),a1
JSR _freemem(a6)
; d0=result
RTS
.
._setptrn
MOVE.l d0,a1
LEA patt1(pc),a0
MOVE.w d1,(a0)+
MOVE.w d2,(a0)+
MOVE.w d3,(a0)+
MOVE.w d4,(a0)
LEA patt1(pc),a0
MOVE.l a0,SizeOf.RastPort\AreaPtrn(a1)
MOVE.b #2,SizeOf.RastPort\AreaPtSz(a1) ;heavy error last version
RTS
._setptrna
MOVE.l d0,a1 ;rastprt
MOVE.l d1,SizeOf.RastPort\AreaPtrn(a1)
MOVE.b d2,SizeOf.RastPort\AreaPtSz(a1)
RTS
._linepat
MOVE.l d0,a1
MOVE.w d1,SizeOf.RastPort\LinePtrn(a1)
RTS
._setolpen
MOVE.l d0,a1
MOVE.b d1,SizeOf.RastPort\AOlPen(a1)
; MOVE.w SizeOf.RastPort\Flags(a1),d0
; BSET #3,d0
; MOVE.w d0,SizeOf.RastPort\Flags(a1)
RTS
._oline
MOVE.l d0,a1
SUB.l d0,d0
MOVE.w SizeOf.RastPort\Flags(a1),d0
CMP.b #0,d1
BEQ dof
BSET #3,d0
bck:MOVE.w d0,SizeOf.RastPort\Flags(a1)
RTS
dof:BCLR #3,d0:BRA bck
tmpras: ;struct
Dc.l 0
Dc.l 0
areainf:Dcb.l 8,0
execbas:Dc.l 0
gfxbas: Dc.l 0
rastprt:Dc.l 0
ras: Dc.l 0
msteps: Dc.l 0
buff: Dc.l 0
widt: Dc.w 0
heit: Dc.w 0
patt1: Dc.w 0,0,0,0
Even
|
|
|
|
| System1.lib und help |
|
Geschrieben von: Blackbird - 01.02.2014, 10:23 - Forum: AB³ Development
- Antworten (7)
|
|
Mir ist gerade beim durchsehen vom Source Ppaintlib.obj aufgefallen das einige Befehle gar nicht im Help auftauchen...
Was bitteschon ist den :
DBRA ? BRA ist Brunch ist klar...
MOVEA ?
TNT ? (gibts zwar in der guide aber der Eintrag ist leer)
Kann man das nachlesen irgendwo und evtl. auch gleich die guide ergänzen ?
|
|
|
|
| Optimales Bild-Dateiformat... |
|
Geschrieben von: hackball - 26.01.2014, 22:32 - Forum: Questions & Answers
- Antworten (12)
|
|
für nachladbares horizontales Scrolling suche ich. Eventuell könnte man auch supergroße Bilder auf der Grafikkarte direkt in den Speicher laden? Wäre das zu empfehlen? Oder lieber alles in Tiles aufteilen....
|
|
|
|
| image.include : image_Create{} |
|
Geschrieben von: Blackbird - 26.01.2014, 19:59 - Forum: Includes
- Antworten (8)
|
|
Hallo,
Also da ich für Zeichenfunktionen in Tincture auch den Drawbuffer anlege und den transparent haben möchte frage ich mich wie ich das anstellen muß damit ich dann auch nur mein neu gezeichnetes im Mixbuffer zusammenmischen kann.
zum erzeugen eines Buffers mach ich folgendes:
[ab3]Function.l tnc_CreateBuffer{}
buf.l = image_GetFree{}
succ.l = image_Create{buf,AppContext\projectA\width,AppContext\projectA\height,0,$0}
If succ
Function Return buf
Else
Function Return False
EndIf
End Function[/ab3]
ein experimentelles image_DrawLineAA{AppContext\projectA\imgDrawbuffer,x,y,xwidth,yheight,argb,thick}
wird auch anstandslos gezeichnet
allerdings wird beim mischen in ein bestehendes Bild das schwarz ( $0) auch gezeichnet...
[ab3]Function.l tnc_MixBuffers{imageID.l,x.l,y.l,width.l,height.l,imageID2.l,mode.l,value.l}
*rp.RastPort = image_GetRPPtr{imageID2}
If value > 255 Then value = 255
image_FancyBlit{imageID,x,y,width,height,*rp,mode,value}
End Function[/ab3]
[ab3]tnc_DrawLine{10,10,100,100,$ffffff,5}
tnc_MixBuffers{AppContext\projectA\imgDrawbuffer,0,0,AppContext\projectA\width,@@
AppContext\projectA\height,AppContext\projectA\imgMixbuffer,#image_blitmode_alpha,255} ; Mische Puffer zusammen[/ab3]
was muß ich anstellen damit ich das transparent blitten kann ?
|
|
|
|
| Ntui : Group |
|
Geschrieben von: Blackbird - 17.01.2014, 18:59 - Forum: NTUI
- Antworten (15)
|
|
Hallo,
Was beim Tabview so wunderbar klappt mit dem späteren einfügen von "fragments" per xml.file versagt hier komplett bei einer Group.
Da wird gar nichts angezeigt, eingefügt...
Kann es sein das das nicht vorgesehen ist ?
Da ich an anderen Ecken bei Tincture im Moment nicht weiterkomme, bastel ich an dem Layermanager rum:
[ATTACHMENT NOT FOUND]
Bei einem Klick auf Add sollte eigentlich in der VGroup eine weitere Group wie schon zu sehen ist dargestellt werden...
|
|
|
|
| Prefseinstellungen wo am besten ? |
|
Geschrieben von: Blackbird - 16.01.2014, 14:17 - Forum: Questions & Answers
- Antworten (5)
|
|
Hallo,
ich mache mir gerade Gedanken wo ich Einstellungen am besten abspeicher.
Als Textfile in einem eigenen Ordner...
oder
In den Tooltypes des Programmes...
Was denkt ihr ist der bessere Ort ???
Thilo speichert bei seinem AIDE soweit ich gesehen habe seine Einstellungen in den Tooltypes.
Wäre nett wenn ihr mir hier mal eure Meinung schreibt was ihr für sinnvoller haltet. Danke !
|
|
|
|
|
:?:
