Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - kindermoumoute

Pages: 1 ... 45 46 [47] 48 49 ... 57
691
TI Z80 / Re: MEGR drawing 2.0
« on: September 29, 2010, 03:50:13 pm »
New version, with ability to delete images, but mostly a lot of bug correction (in reality there is only one of the 5 lines lost at the top: /)

692
Axe / Re: Save screen on a variable pic calculator
« on: September 29, 2010, 01:45:04 pm »
No idea?

693
TI Z80 / Re: MEGR drawing 2.0
« on: September 29, 2010, 01:43:58 pm »
I just figured out some problems not complicated to solve (Especially in the disappearance of variables Pic), but there's always one that I reported here (is regarding the 5 extra lines in my images).

694
TI Z80 / Re: [project] Drawing to basic.
« on: September 29, 2010, 12:39:21 pm »
Look and comment here.

695
TI Z80 / Re: MEGR drawing 2.0
« on: September 29, 2010, 11:28:40 am »
EDIT : look first post!

PS : I think we need move this topic to "Other Calc-Related Projects And Ideas", no?

696
TI Z80 / Re: [project] Drawing to basic.
« on: September 29, 2010, 11:07:24 am »
I'd like to see a screen to see what it gives, but it could very well be a joint project (it would probably a better result). I did post an update soon with viewing from 2 to 3 superimposed image color levels.

697
Axe / Re: Save screen on a variable pic calculator
« on: September 28, 2010, 11:30:15 am »
I clear ram everyday.

698
Axe / Re: Save screen on a variable pic calculator
« on: September 27, 2010, 04:41:12 pm »
Why not, but Its not going to help you :/
Spoiler For Code:
:.MEGR2.0
:"Pic1"→Str1
:"Pic2"
:[00]
:"Pic3"
:[00]
:"Pic4"
:[00]
:"Pic5"
:[00]
:"Pic6"
:[00]
:"Pic7"
:[00]
:"Pic8"
:[00]
:"Pic9"
:[00]
:":PIC →Str14
:"MEGR2.0 DRAW :→Str15
:"1:NEW→Str16
:"2:LOOK→Str17
:"3:CHANGE→Str18
:"4:LOOK GRAYSCALE→Str19
:"CLR:QUIT→Str20
:0→Q→F→E→H→W→R→G
:1→I→T
:31→X+16→Y
:ClrHome
:ClrDraw
:ClrDraw<sup>r</sup>
:Repeat getKey(15)
:Text(0,0,Str15
:Text(0,14,Str16
:Text(0,21,Str17
:Text(0,28,Str18
:Text(0,35,Str19
:Text(0,42,Str20
:If getKey(34) or getKey(26) or getKey(18) or getKey(35)
:If getKey(34)
:sub(GO)
:sub(A
:End
:If getKey(26)
:sub(GO)
:2→G
:sub(B
:End
:If getKey(18)
:sub(GO)
:1→G→Q
:sub(B
:End
:If getKey(35)
:sub(B
:End
:ClrDraw<sup>r</sup>
:ClrDraw
:ClrHome
:End
:End
:Return
:
:Lbl B
:ClrHome
:Repeat E=9
:E+1→E
:F+6→F
:Text(0,F,E►Dec,Str14,E►Dec
:End
:0→E→F
:Repeat I≠1
:sub(I)
:End
:UnArchive Str1+I
:If GetCalc(Str1+I)
:GetCalc(Str1+I,768)→R
:R→DispGraph
:
:StoreGDB
:!If G
:StorePic
:Archive Str1+I
:1→I→G
:Repeat getKey(9)
:End
:Goto B
:End
:Else
:Output(0,0,"ERROR
:Repeat getKey(9)
:End
:1→I
:Return
:End
:Archive Str1+I
:1→I
:!If Q=1
:Repeat getKey(9)
:If G=2
:DispGraph
:Else
:DispGraph<sup>r</sup>
:End
:End
:0→G→Q
:Return
:Else
:ClrHome
:0→G→Q
:End
:
:Lbl A
:Repeat getKey(48)
:Pxl-On(X,Y)
:DispGraph
:sub(I
:If I≠1
:Pxl-Off(X,Y)
:DispGraph
:StoreGDB
:GetCalc(Str1+I,768)→A
:conj(L<sub>6</sub>,A,768)
:Archive Str1+I
:1→I
:End
:If getKey(53) or getKey(52)
:If getKey(53)
:1→R
:End
:If getKey(52)
:0→R
:End
:While getKey(53)
:sub(R
:End
:While getKey(52)
:sub(R
:End
:If R
:ref(X,Y,W,H)
:End
:!If R
:rref(X,Y,W,H)
:End
:0→W→H
:End
:!If getKey(54)
:Pxl-Off(X,Y)
:End
:If getKey(15)
:ClrHome
:ClrDraw
:ClrDraw<sup>r</sup>
:End
:sub(T
:If getKey(1) and (Y≠63
:Y+1→Y
:End
:If getKey(2) and (X≠0
:X-1→X
:End
:If getKey(3) and (X≠95
:X+1→X
:End
:If getKey(4) and (Y≠0
:Y-1→Y
:End
:End
:Goto GO
:
:Lbl R
:ClrDraw<sup>r</sup>
:StorePic
:If R
:ref(X,Y,W,H)<sup>r</sup>
:End
:!If R
:rref(X,Y,W,H)<sup>r</sup>
:End
:DispGraph<sup>r</sup>
:sub(T
:If getKey(1) and ((H+Y)≠63
:H+1→H
:End
:If getKey(2) and (W≠0
:W-1→W
:End
:If getKey(3) and ((X+W)≠95
:W+1→W
:End
:If getKey(4) and (H≠0
:H-1→H
:End
:Return
:
:Lbl T
:If getKey(47)
:1→T
:End
:If getKey(39)
:50→T
:End
:If getKey(31)
:100→T
:End
:If getKey(23)
:200→T
:End
:Pause T
:Return
:
:Lbl I
:If getKey(34)
:0→I
:End
:If getKey(26)
:4→I
:End
:If getKey(18)
:8→I
:End
:If getKey(35)
:12→I
:End
:If getKey(27)
:16→I
:End
:If getKey(19)
:20→I
:End
:If getKey(36)
:24→I
:End
:If getKey(28)
:28→I
:End
:If getKey(20)
:32→I
:End
:
:Lbl GO
:Repeat getKey(0)
:End

699
Axe / Re: Save screen on a variable pic calculator
« on: September 27, 2010, 02:28:25 pm »
help me please :/

700
Art / Re: favicon world
« on: September 26, 2010, 04:41:07 pm »
Merci jacques ^^

701
Art / favicon world
« on: September 26, 2010, 03:18:45 pm »
I need a favicon like the one below very quickly, which is not America but Europe.
If I could have something that would quickly simpa!

702
Axe / Re: Save screen on a variable pic calculator
« on: September 26, 2010, 09:04:57 am »
I see that there are still some bugs in my method to save my pictures. When I save, I have a chance in two that he register in the picture but they are not (not shown) in the calculator.
As shown in the screen below, I record in picture 1.2, 8 and 9 during my drawings. But the result is going to tell me that only Pic1 and Pic2 (in the menu from memory) when the variables are well and stored in the list of images (and I can remember). And one can also notice that when I recall the image 1 or 2, there are 5 lines shift up images.

Screen :


Source (Only regards the manipulation of pictures) :
Code: [Select]
:"Pic1"→Str1
:"Pic2"
:[00]
:"Pic3"
:[00]
:"Pic4"
:[00]
:"Pic5"
:[00]
:"Pic6"
:[00]
:"Pic7"
:[00]
:"Pic8"
:[00]
:"Pic9"
:[00]
[...]
:Repeat I≠1
:sub(I)
:End
:UnArchive Str1+I
:If GetCalc(Str1+I)
:GetCalc(Str1+I,768)→R
:R→DispGraph
:StoreGDB
:Else
:Output(0,0,"ERROR
:Repeat getKey(9)
:End
:1→I
:Return
:End
:Archive Str1+I
:1→I
[...]
:sub(I
:If I≠1
:Pxl-Off(X,Y)
:DispGraph
:StoreGDB
:GetCalc(Str1+I,768)→C
:conj(L<sub>6</sub>,C,768)
:Archive Str1+I
:1→I
:End
[...]
:Lbl I
:If getKey(34)
:0→I
:End
:If getKey(26)
:4→I
:End
:If getKey(18)
:8→I
:End
:If getKey(35)
:12→I
:End
:If getKey(27)
:16→I
:End
:If getKey(19)
:20→I
:End
:If getKey(36)
:24→I
:End
:If getKey(28)
:28→I
:End
:If getKey(20)
:32→I
:End
:Return
Where is problem?


PS : Here it is taken with a TI-84 + SE Emulator, but on my TI-83 + we find the same problem.

703
The Axe Parser Project / Re: Bug Reports
« on: September 26, 2010, 05:52:36 am »
Quote from: DJ Omnimaga on September 25, 2010, 02:18:54 pm
Ah ok, I was a bit worried.

Also,

1000->X
Pause X

crashes Kindermoumoute's calc. Could this be a bug on certain calc models or could it be his calc that is defect?

Just crash when X=0 :/

704
Art / Re: worm 8x8
« on: September 25, 2010, 04:21:44 pm »
Who can do 2 sprites as this :

Thank =)

705
[FR] Programmation Axe Parser / Re: [Axe parser] aide
« on: September 25, 2010, 03:46:45 pm »
:o autant pour moi! merci pour cette info ^^

Pages: 1 ... 45 46 [47] 48 49 ... 57