Bitte melde dich an, um diesen Link zu sehen. kann das.
Danke, das hatte ich gesucht!
Schade, dass sich die Werte nicht in die Zwschenablage übernehmen lassen.
Aber sonst, wirklich top!
Bitte melde dich an, um diesen Link zu sehen. kann das.
Danke, das hatte ich gesucht!
Schade, dass sich die Werte nicht in die Zwschenablage übernehmen lassen.
Aber sonst, wirklich top!
Hallo aitsch,
wenn du bei deinem Code in Zeile 50 die 8192 weglässt,
sollte es funktionieren.
Gruß,
Neptun
Ja, jetzt funktioniert es.
Kompliment, das ist echt ein geiles Stück Code!
Welchen Vorteil hat die Schreibweise mit dem Punkt in der For-Schleife ?
...
FORI=.TO2
...
Hi Neptun,
wow, was für ein cooles Basic.
Leider übersteigt es meine alten Kenntnisse um Einiges.
Ich habe ein Beispielsprite an die Adresse 8192+832 geschrieben aber nichts passiert. Zeile 50.
Ich glaube ich habe es nicht ganz verstanden.
10 SYS58784:V=53248:POKEV+33,0:POKEV+32,11:PRINTCHR$(5):U$=CHR$(145)
20 INPUT"DREHWINKEL (GRAD)";W$
30 W1=VAL(W$):W2=W1/45*ATN(1):SI=SIN(W2):CO=COS(W2):K=23:L=20:P=832
40 C1=01:C2=11:C3=12:REM SPRITEFARBEN
50 FORT=0TO62:READX:POKE8192+P+T,X:NEXTT: REM LADE SPRITE
60 FORI=.TO2:POKEV+I+I,60:POKEV+I+I+1,52+24*I:POKEV+39+I,C3:POKE2040+I,13+I
70 NEXT:POKEV+37,C1:POKEV+38,C2:POKEV+28,7:POKEV+16,7:POKEV+21,7
80 DIMQ(11,L),Z(K,L):PRINTCHR$(147)
90 FORY=.TOL:PRINTY;U$:FORX=.TO8STEP4:W=PEEK(P)
100 FORI=3TO.STEP-1:Q(X+I,Y)=WAND3:W=INT(W/4):NEXT:P=P+1:NEXT:NEXT
110 B2=24/2-1:H2=INT(21/2):R=.5:PRINT
120 FORY=.TOL:Y1=Y-H2:PRINTY;U$
130 FORX=.TOK:X1=X-B2
140 X2=INT(R+X1*CO-Y1*SI+B2)
150 IFX2<.ORX2>KTHEN190
160 Y2=INT(R+X1*SI+Y1*CO+H2)
170 IFY2<.ORY2>LTHEN190
180 Z(X,Y)=Q(X2/2,Y2)
190 NEXT:NEXT
200 P=14*64
210 FORY=.TOL
220 FORX=.TO16STEP8:W1=.:W2=.
230 FORI=XTOX+7STEP2
240 W1=W1*4+Z(I,Y)
250 W2=W2*4+Z(I+1,Y)
260 NEXT:POKEP,W1:POKEP+64,W2:P=P+1
270 NEXT:NEXT
280 REM SPRITE DATEN
290 DATA170,170,170,170,170,170,0,0,0,0,0,0,255,255,255,255,255,255,0,0,0,0,0,0,85,85
300 DATA85,85,85,85,0,0,0,0,0,0,170,170,170,170,170,170,0,0,0,0,0,0,255,255,255,255,255
310 DATA255,0,0,0,0,0,0,85,85,85,1328
320 REM 2019 BY NEPTUN
Alles anzeigen
So ähnlich habe ich es ja auch gemacht aber wie wird dann wieder ein Sprite draus (z.Bsp. als Byte-Export)?
Liebe Experten des farbigen Pixels,
ich habe einen Hubschrauber als Sprite entworfen und möchte ihn etwas neigen, wenn er nach rechts oder links fliegt.
Den Sprite hatte ich mal probehalber als PNG-Datei exportiert und dann etwas geneigt. Alles im guten alten Paint.net.
Er lässt sich aber nicht mehr importieren, was wohl auch Sinn macht. Die Regel, dass zwei gleichfarbige Pixel immer nebeneinander liegen müssen, ist nach dem Drehen nicht mehr gegeben.
Bitte melde dich an, um diesen Anhang zu sehen.
Da ich kein begnadeter Grafiker bin würde mir das gedrehte Image auch schon als Maske zur Orientierung helfen um den gedrehren Sprite händisch neu zu erstellen.
Sowas wie eine Abpaus-Hilfe oder auch ein Grafik-Import, den man dann händisch nachbearbeitet wäre extrem hilfreich für mich.
Hoffentlich ist mein Anliegen einigermaßen verständlich rübergekommen.
Über die SuFu habe ich zwar Sprite-Editoren gefunden, aber keiner unterstützt solche Drehungen.
Gibt es einen Editor (PC / Web) der soetwas unterstützt?
Kann man das mit GIMP, paint.net, etc über Umwege realisieren?
Wie löst ihr das?