0 Members and 1 Guest are viewing this topic.
{ #839B839B839B839B:64, #010001000100839B:64, #839B010001000100:64, #839B839B839B839B:64, #839B839B839B839B:64, #7DE17DE17DE10100:64, #01007DE17DE17DE1:64, #839B839B839B839B:64, #0100839B839B839B:64, #7DE17DE17DE17DE1:64, #7DE17DE17DE17DE1:64, #839B839B839B0100:64, #0100839B839B839B:64, #01007DE17DE17DE1:64, #7DE17DE17DE10100:64, #839B839B839B0100:64, #01000100839B839B:64, #010001007DE17DE1:64, #7DE17DE101000100:64, #839B839B01000100:64, #01000100839B839B:64, #7DE17DE101000100:64, #010001007DE17DE1:64, #839B839B01000100:64, #01007F6A0100839B:64, #7F6A7F6A7F6A7F6A:64, #7F6A7F6A7F6A7F6A:64, #839B01007F6A0100:64, #7F6A7F6A0100839B:64, #7F6A01007F6A7F6A:64, #7F6A7F6A01007F6A:64, #839B01007F6A7F6A:64, #01000100839B839B:64, #7F6A01007F6A7F6A:64, #7F6A7F6A01007F6A:64, #839B839B01000100:64, #0100839B839B839B:64, #7DE17F6A7F6A0100:64, #01007F6A7F6A7DE1:64, #839B839B839B0100:64, #01000100839B839B:64, #010001007DE17F6A:64, #7F6A7DE101000100:64, #839B839B01000100:64, #7F6A7F6A0100839B:64, #7DE17F6A7F6A0100:64, #01007F6A7F6A7DE1:64, #839B01007F6A7F6A:64, #7F6A7F6A0100839B:64, #7F6A7DE17DE10100:64, #01007DE17DE17F6A:64, #839B01007F6A7F6A:64, #01000100839B839B:64, #0100010001000100:64, #0100010001000100:64, #839B839B01000100:64, #0100839B839B839B:64, #010001007DE17DE1:64, #7DE17DE101000100:64, #839B839B839B0100:64, #839B839B839B839B:64, #839B010001000100:64, #010001000100839B:64, #839B839B839B839B:64 }
Ok I've debugged my program, now it works perfectly (image)img2prime.zipbb010g > can you recompile it for linux ?Also, you can now throw as many images as you want on it.
Btw does programs written in English mode work on French mode or vice-versa? I remember that on the TI-89 it wasn't the case.
I'm planning to have a program to do sprites with RECTs by Thursday
EXPORT Defender()BEGIN LOCAL xv:=10,yv:=20; DIMGROB_P(G1,640, 48); DIMGROB_P(G2,320,240); Y:=32; FOR X:=0 TO 640 DO Y:=MIN(MAX(Y-1+IP(RANDOM(3)),0),47); LINE_P(G1,X,48,X,48-Y); FREEZE; END; RECT(); FOR X:=0 TO (640-64) DO xv:=xv+2*(ISKEYDOWN(8)-ISKEYDOWN(7)); yv:=yv+2*(ISKEYDOWN(12)-ISKEYDOWN(2)); BLIT_P(G2,0,0,320,240,G1,X,0,X+64,48); IF GETPIX_P(G2,xv+10,yv+5)==0 THEN BREAK; END; RECT_P(G2,xv,yv,xv+10,yv+5,0,#20B2AAh); BLIT_P(G0,G2); END; FOR N:=1 TO 100 DO INVERT_P; END;END;
EXPORT Scroll(s)BEGINLOCAL x:=100,y:=100;DIMGROB_P(G1,640,480); FOR N:=1 TO 200 DORECT_P(G1,IP(RANDOM(640)),IP(RANDOM(480)),IP(RANDOM(640)),IP(RANDOM(480)),0,IP(RANDOM(255^3)));END;REPEATx:=MAX(MIN(x+ISKEYDOWN(8)-ISKEYDOWN(7),320),0);y:=MAX(MIN(y+ISKEYDOWN(12)-ISKEYDOWN(2),240),0);BLIT_P(G0,0,0,G1,x,y,320+x,240+y);UNTIL ISKEYDOWN(4);END;