Author Topic: Save screen on a variable pic calculator  (Read 14032 times)

0 Members and 1 Guest are viewing this topic.

Offline ztrumpet

  • The Rarely Active One
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5712
  • Rating: +364/-4
  • If you see this, send me a PM. Just for fun.
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #30 on: September 13, 2010, 07:51:08 pm »
I hope you did not lose any precious data :O
me too. :)

Wow, just looked at the code. I really need to get back into Axe. I didn't even know how to store stuff to OS variables x.x
Don't worry, I don't either :P
me too. :P

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Save screen on a variable pic calculator
« Reply #31 on: September 13, 2010, 08:54:17 pm »
I hope you did not lose any precious data :O
me too. :)

Darn, that just made me lose.




Offline kindermoumoute

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 836
  • Rating: +54/-3
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #32 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.
Projects :

Worms armageddon z80 :
- smoothscrolling Pixelmapping : 100%
- Map editor : 80%
- Game System : 0%

Tutoriel français sur l'Axe Parser
- 1ère partie : en ligne.
- 2ème partie : en ligne.
- 3ème partie : en ligne.
- 4ème partie : 10%
- Annexe : 100%

Offline kindermoumoute

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 836
  • Rating: +54/-3
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #33 on: September 27, 2010, 02:28:25 pm »
help me please :/
Projects :

Worms armageddon z80 :
- smoothscrolling Pixelmapping : 100%
- Map editor : 80%
- Game System : 0%

Tutoriel français sur l'Axe Parser
- 1ère partie : en ligne.
- 2ème partie : en ligne.
- 3ème partie : en ligne.
- 4ème partie : 10%
- Annexe : 100%

Offline calcdude84se

  • Needs Motivation
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2272
  • Rating: +78/-13
  • Wondering where their free time went...
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #34 on: September 27, 2010, 04:32:45 pm »
Would it be possible for you to post the full source code as a .8xp file so we can mess around with it ourselves?
At any rate, I'll try to help when I have more time. :)
"People think computers will keep them from making mistakes. They're wrong. With computers you make mistakes faster."
-Adam Osborne
Spoiler For "PartesOS links":
I'll put it online when it does something.

Offline kindermoumoute

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 836
  • Rating: +54/-3
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #35 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
Projects :

Worms armageddon z80 :
- smoothscrolling Pixelmapping : 100%
- Map editor : 80%
- Game System : 0%

Tutoriel français sur l'Axe Parser
- 1ère partie : en ligne.
- 2ème partie : en ligne.
- 3ème partie : en ligne.
- 4ème partie : 10%
- Annexe : 100%

Offline shmibs

  • しらす丼
  • Administrator
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2132
  • Rating: +281/-3
  • try to be ok, ok?
    • View Profile
    • shmibbles.me
Re: Save screen on a variable pic calculator
« Reply #36 on: September 27, 2010, 07:44:12 pm »
iv'e had the same 5 line shift thing happen before when dealing with external vars. try a RAM clear and then remake the pics to see if it clears things up

Offline kindermoumoute

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 836
  • Rating: +54/-3
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #37 on: September 28, 2010, 11:30:15 am »
I clear ram everyday.
Projects :

Worms armageddon z80 :
- smoothscrolling Pixelmapping : 100%
- Map editor : 80%
- Game System : 0%

Tutoriel français sur l'Axe Parser
- 1ère partie : en ligne.
- 2ème partie : en ligne.
- 3ème partie : en ligne.
- 4ème partie : 10%
- Annexe : 100%

Offline kindermoumoute

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 836
  • Rating: +54/-3
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #38 on: September 29, 2010, 01:45:04 pm »
No idea?
Projects :

Worms armageddon z80 :
- smoothscrolling Pixelmapping : 100%
- Map editor : 80%
- Game System : 0%

Tutoriel français sur l'Axe Parser
- 1ère partie : en ligne.
- 2ème partie : en ligne.
- 3ème partie : en ligne.
- 4ème partie : 10%
- Annexe : 100%

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Save screen on a variable pic calculator
« Reply #39 on: September 29, 2010, 01:57:47 pm »
Mhmm, I wonder if this might not be something similar to my problem with appvars a long while ago.

In fact it was related to your program, but I was trying to write the routine:

http://ourl.ca/4886

I am unsure if this would apply for pictures, though. You may have to PM Quigibo directly for help, as he might no longer check the help topics.

Offline Quigibo

  • The Executioner
  • CoT Emeritus
  • LV11 Super Veteran (Next: 3000)
  • *
  • Posts: 2031
  • Rating: +1075/-24
  • I wish real life had a "Save" and "Load" button...
    • View Profile
Re: Save screen on a variable pic calculator
« Reply #40 on: September 29, 2010, 04:55:10 pm »
I can't seem to find anywhere in that code where it actually loads a picture from RAM.  There are 2 places where it creates a new picture though, so maybe that's the error?  Remember, one argument means it loads the variable and 2 arguments means it creates a new variable.
___Axe_Parser___
Today the calculator, tomorrow the world!