1
Axe / Help for displaying Pics from AppVar
« on: November 14, 2014, 04:21:49 am »
Hey there,
I´m working at an Engine for Games and tried to store then tiles in an appvar ,but it didn´t work.
Here my Code:
mtrxlib:
[/size][size=78%]main[/size]
[/size]
[/size]
[/size][size=78%]well this is the test code.Synthax on the Calc is right ,but it shows just weird pixl images at 1,1.[/size]
[/size]
[/size][size=78%]Thanx for help[/size]
[/size]
[/size][size=78%]alex99(thababo01)[/size]
I´m working at an Engine for Games and tried to store then tiles in an appvar ,but it didn´t work.
Here my Code:
mtrxlib:
Code: [Select]
..
...
ASMATRIX
An Lib By thababo01(C)
...
lbl ENTERMATRIX
r1*r2->A
A+2->A
GetCalc("appvASMtrx",A*3)->Z
r1->{Z}^r
r2->{1+Z}^r
Return
Lbl WRITE
{Z}^r->A
((A*(r2-1))+r1)->A
A+1->A
r3->O
O->{A+Z}^r
Return
Lbl GET
{Z}^r->A
((A*(r2-1))+r1)->A
A++
{A+Z}->A
Return
Lbl EXITMATRIX
DelVar "appvASMtrx"
[/size][size=78%]main[/size]
[/size]
Code: [Select]
.abc
clrdraw
[0000000000000000]->pic1
ENTERMATRIX(8,1)
WRITE(1,1,"FFFFFFFFFFFFFFFF")
WRITE(2,1,"00000000000000")
Repeat getkey(15)
DRAW(1)
End
Lbl Draw
ClrDraw
If r1=1
GET(1,1)
Copy(A,pic1,length(A))
pt-on(1,1,pic1)
DispGraph
Return
prgmMTRXLIB
[/size]
[/size][size=78%]well this is the test code.Synthax on the Calc is right ,but it shows just weird pixl images at 1,1.[/size]
[/size]
[/size][size=78%]Thanx for help[/size]
[/size]
[/size][size=78%]alex99(thababo01)[/size]