Advertisement
Guest User

Untitled

a guest
Aug 28th, 2018
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.04 KB | None | 0 0
  1. f "init(
  2. const stype = $11?$7:1;
  3. shift = ((([w,h]-1)*([$12,$13]-[$9,$10]+[u(-1,1),u(-1,1)]*sqrt((($12-$9)^2)+(($13-$10)^2))*($14^3)))/stype)%;
  4. const sign = $18?-1:1;
  5. const boundary = $15;
  6. "{$8}"||"{$>}"=="{$7}"?factor = '*$20+$21%$22*$23+$24':factor='';
  7. operators = '($19==0?(val + i):
  8. $19==1?(val * i):
  9. $19==2?(val & i):
  10. $19==3?(val | i):
  11. $19==4?xor(val,i):
  12. $19==5?(val^i):
  13. $19==6?(i^val):
  14. $19==7?(val%i):
  15. $19==8?(i%val):
  16. $19==9?(val / i):
  17. $19==10?(i / val):
  18. $19==11?(i - val):
  19. $19==12?(val - i):
  20. $19==13?(val << i):
  21. $19==14?(i << val):
  22. $19==15?(val >> i):
  23. $19==16?(i >> val):
  24. $19==17?for(n=0,n<(i%32),n++,rol(val)):
  25. $19==18?for(n=0,n<(val%32),n++,rol(i)):
  26. $19==19?for(n=0,n<(i%32),n++,ror(val)):
  27. $19==20?for(n=0,n<(val%32),n++,ror(i)):
  28. $19==21?avg(i,val):
  29. $19==22?round(val,i,0):
  30. $19==23?round(i,val,0):
  31. $19==24?i*sin(val*2*pi/$20):
  32. $19==25?val*sin(i*2*pi/$20):
  33. $19==26?sign*i*cos(val*2*pi/$20):
  34. $19==27?sign*val*cos(i*2*pi/$20):
  35. $19==28?i*tan(val*pi/$20):
  36. $19==29?val*tan(i*pi/$20):
  37. $19==30?i*sin($20/(val*2*pi)):
  38. $19==31?val*sin($20/(i*2*pi)):
  39. $19==32?sign*i*cos($20/(val*2*pi)):
  40. $19==33?sign*val*cos($20/(i*2*pi)):
  41. $19==34?i*tan($20/(val*pi)):
  42. $19==35?val*tan($20/(i*pi)):
  43. $19==36?$20*var(val,i):
  44. $19==37?abs(i - val):
  45. $19==38?min(i,val):
  46. $19==39?max(i,val):
  47. $19==40?0.005*i*(((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16))+val):
  48. $19==41?0.005*val*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)+i):
  49. $19==42?0.1*i*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)*val:
  50. $19==43?0.1*i*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)/val:
  51. $19==44?0.1*val*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)/i:
  52. $19==45?0.001*i*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-val):
  53. $19==46?0.001*val*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-i):
  54. $19==47?0.001*i*(val-(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)):
  55. $19==48?0.001*val*(i-(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)):
  56. $19==49?0.001*i*abs((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-val):
  57. $19==50?0.001*val*abs((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-i):
  58. 0.00001*$20*var(val,i,(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)))'
  59. );
  60. val = sign*((2^$16)*j(shift) + $17);
  61. vtos(cats(operators,factor));
  62. ;
  63. "
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement