0 Members and 2 Guests are viewing this topic.
<<begin loop>><<code>>Pxl-Change(Y,XDispGraphPxl-Change(Y,X<<code>><<end loop>>
.0:ReturnFull31→G ;We are using a 32*32 region because 32 is a power of 2pi9872→Z ;use the actual pi symbolpi9340→WRepeat getKey(15DispGraphFill(8,Z ;Copies the current graph screen to the buffer at 9872hFor(A,0,GG and A-1→CG and A+1→DFor(B,0,GG and B-1→EG and B+1→FPxl-Test(C,E+Pxl-Test(C,B+Pxl-Test(C,F+Pxl-Test(A,E+Pxl-Test(A,F+Pxl-Test(D,E+Pxl-Test(D,B+Pxl-Test(D,F→HIf <2 +H>3Pxl-Off(A,B,ZIf H=3Pxl-On(A,B,ZEndEndDisp ZFill(8,WDisp WEndStop
:.0::0->A:While A=/15:getKey->A:Un/D:End:Stop
Fill(0For(A,2,73If pxl-Test(0,AThenA+A→C0→DFor(B,C,6144If C>95 ;for wrapping to the next lineC-96→C:D+1→DB+A-1→B ;we want to increment every multiple of A and For loops will add 1 automaticallyPxl-Off(D,CC+A→C ;get next incrementEndEndDispGraphEndStop
If Q and e^(H ;H is number of pixels around the cellPxl-Off(A+1,B+1,ZIf R and e^(HPxl-On(A+1,B+1,Z
EDIT: To answer my own question: Yes, yes it will. I installed your hook, than the DCS7 hook. Ran a BASIC program, worked. Ran a Grammer program, didn't work. Installed your hook, ran a Grammer program, worked. Ran a BASIC program, didn't work. Maybe you and Kerm talk a bit and get a home-run hook alliance going?