0 Members and 3 Guests are viewing this topic.
ITS SCREWIN' UP!Edit: After like 5 attempts, it now worksEdit: NO IT DOESNT * epic7 slaps the creator I think the new prgm is appearing somewhere on the memory list tho. But not in the prgms
I think the new prgm is appearing somewhere on the memory list tho. But not in the prgms
Lol, ok. It's not in the programs when I transfer it to the calc, but I think I found the file somewhere within the memory menu.
.EXMPL3D.VARS.POSITION.{L1}, 6BYTES.DIRECTION.{L1+6}, 1BYTE0->{L1}^^r->{L1+2}^^r->{L1+4}^^r0->{L1+6}ClrDrawRepeat getKey(15).INIT CAMERA{L1}^^r->{L2}^^r{L1+2}^^r->{L2+2}^^r{L1+4}^^r->{L2+4}^^r{L1}^^r+cos({L1+6})->{L2+6}^^r{L1+2}^^r+sin({L1+6})->{L2+8}^^r1.0->{L2+10}^^r->{L2+16}^^r0->{L2+12}^^r->{L2+14}^^rINT().RENDERClrDrawCVT(~1.0,5.0,0)X->VY->WCVT(1.0,5.0,0)Line(V,W,X,Y)DispGraph.MOVEIf getKey(4) cos({L1+6})**0.2+{L1}^^r->{L1}^^r sin({L1+6})**0.2+{L1+2}^^r->{L1+2}^^rEndIf getKey(1) cos({L1+6})**~0.2+{L1}^^r->{L1}^^r sin({L1+6})**~0.2+{L1+2}^^r->{L1+2}^^rEndIf getKey(2) {L1+6}++EndIf getKey(3) {L1+6}--EndEndReturn.ENGINE VARS:.FROM VEC.{L2}, 6BYTES.TO VEC.{L2+6}, 6BYTES.UP VEC.{L2+12}, 6BYTES.TEMP VARS.{L2+18}, 6BYTES.CROSS VEC.{L2+24}, 6BYTESLbl INT{L2+6}^^r-{L2}^^r->{L2+6}^^r{L2+8}^^r-{L2+2}^^r->{L2+8}^^r{L2+10}^^r-{L2+4}^^r->{L2+10}^^rsqrt(({L2+6}^^r)²+({L2+8}^^r)²+({L2+10}^^r)²)^^r->{L2+18}^^r{L2+6}^^r**({L2+18}^^r)^^-1->{L2+6}^^r{L2+8}^^r**({L2+18}^^r)^^-1->{L2+8}^^r{L2+10}^^r**({L2+18}^^r)^^-1->{L2+10}^^r{L2+12}^^r**{L2+6}^^r->{L2+18}^^r{L2+14}^^r**{L2+8}^^r->{L2+20}^^r{L2+16}^^r**{L2+10}^^r+{L2+18}^^r+{L2+20}^^r->{L2+18}^^r{L2+12}^^r-({L2+18}^^r**{L2+6}^^r)->{L2+12}^^r{L2+14}^^r-({L2+18}^^r**{L2+8}^^r)->{L2+14}^^r{L2+16}^^r-({L2+18}^^r**{L2+10}^^r)->{L2+16}^^rsqrt(({L2+12}^^r)²+({L2+14}^^r)²+({L2+16}^^r)²)^^r->{L2+18}^^r{L2+12}^^r**({L2+18}^^r)^^-1->{L2+12}^^r{L2+14}^^r**({L2+18}^^r)^^-1->{L2+14}^^r{L2+16}^^r**({L2+18}^^r)^^-1->{L2+16}^^r{L2+14}^^r**{L2+10}^^r-({L2+16}^^r**{L2+8}^^r)->{L2+24}^^r{L2+16}^^r**{L2+6}^^r-({L2+12}^^r**{L2+10}^^r)->{L2+26}^^r{L2+12}^^r**{L2+8}^^r-({L2+14}^^r**{L2+6}^^r)->{L2+28)^^rReturnLbl CVTr1-{L2}^^r->r1r2-{L2+2}^^r->r2r3-{L2+4}^^r->r3r1**{L2+6}^^r+(r2**{L2+8}^^r)+(r3**{L2+10}^^r)->{L2+18}^^r{L2+18}^^r<<0->{L2+20}(r1**{L2+24}^^r+(r2**{L2+26}^^r)+(r3**{L2+28}^^r))**({L2+18}^^r)^^-1->X(r1**{{L2+12}^^r+(r2**{L2+14}^^r)+(r3**{L2+16}^^r))**({L2+18}^^r)^^-1->YReturn