home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / henkyaku1.0.exe / henkyaku / Program / Kernel / Object.tonyu < prev    next >
Text File  |  2007-12-06  |  5KB  |  266 lines
  1. // basic 
  2. native print ; 
  3. native getkey ;
  4. native pset ; 
  5. native sub ;
  6. native suspend ;
  7. native currentProcess;
  8. native native_gc_mark;
  9. native _n_objhandle;
  10. native _n_refcount;
  11. native breakExec;
  12. native _fork;
  13. function newProc(s) {
  14.    $procs.add(new Process(this,s,0));  
  15. }
  16.  
  17. constructor Object(){
  18. }
  19.  
  20. function onSubProcess() {}
  21. function subProcess(a1,a2,a3,a4) {
  22.   appear(new SubProcExec(this,a1,a2,a3,a4));
  23. }
  24.  
  25. native _n_errorValue;
  26. function _errorHook() {
  27.    return _n_errorValue(0);
  28. }
  29.  
  30. //####### reflect
  31. native _getClassName;
  32. function getClassName() {
  33.   return _getClassName();
  34. }
  35.  
  36. native _getParentClassName;
  37. function getParentClassName() {
  38.   return _getParentClassName();
  39. }
  40.  
  41.  
  42. native _newInstance;
  43. function newInstance(name) {
  44.   return _newInstance(name);
  45. }
  46.  
  47. native _n_clearAllValues; 
  48. function clearAllValues(){
  49.   _n_clearAllValues();
  50. } 
  51.  
  52. native TObject;
  53.  
  54. native currentFunc;
  55.  
  56. native _n_getValueByIndex;
  57. function getValueByIndex(idx) {return _n_getValueByIndex(idx);}
  58. native _n_setValueByIndex;
  59. function setValueByIndex(idx,v) {_n_setValueByIndex(idx,v);}
  60. native _n_getValueCount;
  61. function getValueCount() {return _n_getValueCount();}
  62. function getVariableCount() {return _n_getValueCount();}
  63. native _n_getValueName;
  64. function getValueName(idx) {return _n_getValueName(idx);}
  65. function getVariableName(idx) {return _n_getValueName(idx);}
  66. native _n_getValueIndex;
  67. function getValueIndex(varName) {return _n_getValueIndex(varName);}
  68. function getVriableIndex(varName) {return _n_getValueIndex(varName);} // Depreciated
  69. function getVariableIndex(varName) {return _n_getValueIndex(varName);}
  70.  
  71. native isInt;
  72. native isFloat;
  73.  
  74. //######### math
  75. native getTime;
  76. native _n_randomize;
  77. native rnd;
  78. native sin;
  79. native cos;
  80. native sqrt;
  81. native angle;
  82. native dist;
  83. native trunc;
  84. native floor;
  85. native valueOf;
  86.  
  87. function randomize(s) {
  88.    if (s==null) _n_randomize(getTime());
  89.    else _n_randomize(s);
  90. }
  91.  
  92. function angleDiff(a,b) {
  93.   // èpôxa,bé╠ì╖é≡-180 ü` 179 é╠ö═ê═é┼ò╘é╡é▄é╖üB 
  94.   var c;
  95.   a=floor(a);
  96.   b=floor(b);
  97.   if (a>=b) {
  98.     c=(a-b) % 360;
  99.     if (c>=180) c-=360;
  100.   } else {
  101.     c=-((b-a) % 360);
  102.     if (c<-180) c+=360;
  103.   }
  104.   return c;
  105. }
  106. function abs(v) {
  107. //ÉΓæ╬Ælé≡ò╘é╡é▄é╖üB
  108.    if (v<0) v=-v;
  109.    return v;
  110. }
  111. function amod(a,b) {
  112.   a=trunc(a);
  113.   if (a>=0) return a % b;
  114.   return (a % b + b) % b;
  115. }
  116.  
  117. //######## other
  118.  
  119. native fileExists;
  120. native moveFile;
  121. native deleteFile;
  122.  
  123. function timeStop() {
  124.   var t;
  125.   t=new TimeStopper(this);
  126.   suspend();
  127.   return t;
  128. }
  129.  
  130. function appear(o) {
  131.   $chars.add(o);
  132.   return $procs.appear(o);
  133. }
  134.  
  135. function getRed(c) {
  136.   return c%256;
  137. }
  138. function getGreen(c) {
  139.   return trunc(c/256)%256;
  140. }
  141. function getBlue(c) {
  142.   return trunc(c/65536)%256;
  143. }
  144. function color(r,g,b){
  145.  return b*65536+g*256+r;
  146. }
  147. function colorHSL(iroai,azayakasa,akarusa) {
  148.   var r,g,b,nul,a;
  149.   //ÉFìçéóé┼ÉFé≡îêé▀éΘ
  150.   r = abs(120-((trunc(iroai+0.5)   % 240) % 240))*6-240;
  151.   g = abs(120-((trunc(iroai+160.5) % 240) % 240))*6-240;
  152.   b = abs(120-((trunc(iroai+80.5)  % 240) % 240))*6-240;
  153.   r = trunc(r*1.0625+0.5);
  154.   g = trunc(g*1.0625+0.5);
  155.   b = trunc(b*1.0625+0.5);
  156.   if (r>255) r = 255;
  157.   if (g>255) g = 255;
  158.   if (b>255) b = 255;
  159.   if (r<0) r = 0;
  160.   if (g<0) g = 0;
  161.   if (b<0) b = 0;
  162.   if (azayakasa==nul) return color(r,g,b);
  163.   
  164.   //æNéΓé⌐é│é┼ÉFé≡îêé▀éΘ
  165.   r = trunc(127.5+(r-127)/240*azayakasa);
  166.   g = trunc(127.5+(g-127)/240*azayakasa);
  167.   b = trunc(127.5+(b-127)/240*azayakasa);
  168.   if (akarusa==nul)return color(r,g,b);
  169.   
  170.   //û╛éΘé│é┼ÉFé≡îêé▀éΘ
  171.   if (akarusa<120) {
  172.     r = trunc(0.5+r/120*akarusa);
  173.     g = trunc(0.5+g/120*akarusa);
  174.     b = trunc(0.5+b/120*akarusa);
  175.   }
  176.   if (akarusa>120) {
  177.     r+= trunc(0.5+(255-r)/120*(akarusa-120));
  178.     g+= trunc(0.5+(255-g)/120*(akarusa-120));
  179.     b+= trunc(0.5+(255-b)/120*(akarusa-120));
  180.   }
  181.   if (r>255) r = 255;
  182.   if (g>255) g = 255;
  183.   if (b>255) b = 255;
  184.   if (r<0) r = 0;
  185.   if (g<0) g = 0;
  186.   if (b<0) b = 0;
  187.   return color(r,g,b);
  188. }
  189.  
  190.  
  191. function strcat(a,b) {
  192.   var t;
  193.   t=""; t=t.add(a);
  194.   return t.add(b);
  195. }
  196.  
  197. function designMode() {
  198.   return $_design_mode;
  199. }
  200.  
  201. native _n_refresh;
  202.  
  203. //######### generate
  204. function getGenerator() {
  205.   return 0;
  206. }
  207. function setGenerator(g) {
  208.   return 0;
  209. }
  210. function onGenerate() {
  211.   return 1;
  212. }
  213. function onSaveToGen() {
  214. }
  215.  
  216. native _n_setGenAttr;
  217. function setGenInstAttr(a,s) {
  218.    if (!getGenerator()) return 0;
  219.    return _n_setGenAttr (getGenerator(),a,s);
  220. }
  221.  
  222. native getPageHashCode;
  223.  
  224. //native _n_getGenAttr;
  225. //function getGenAttr(a) {
  226. //   if (!getGenerator()) return 0;
  227. //   return _n_getGenAttr (getGenerator(),a);
  228. //}
  229.  
  230. native _inspect;
  231. native _dynamicInspect;
  232. function inspect() {
  233. }
  234.  
  235. function dynamicinspect() {
  236.   _dynamicInspect();  
  237. }
  238.  
  239.  
  240. //######### resource
  241. native _n_getResource;
  242. function getResource(s) {
  243.   return _n_getResource(s);
  244. }
  245.  
  246. native _n_initResource;
  247. function initResource(s) {
  248.   return _n_initResource(s);
  249. }
  250.  
  251. native setGlobal;
  252. native getGlobal;
  253. native _n_moduleCommand;
  254.  
  255. native setAdjust;
  256.  
  257. //######### obsolated?
  258. native setMapPat;
  259. function _is(x){
  260.  return native_is(x);
  261. }
  262. native native_is;
  263. function _test_print(p) {
  264.  print(p);
  265. }
  266.