{"id":6539,"date":"2018-06-01T15:55:37","date_gmt":"2018-06-01T06:55:37","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=6539"},"modified":"2018-06-26T09:36:52","modified_gmt":"2018-06-26T00:36:52","slug":"1ms-%e3%82%b5%e3%83%96%e3%82%a6%e3%82%a8%e3%83%9d%e3%83%b3%e3%82%92%e4%bd%9c%e3%82%8d%e3%81%86","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/6539","title":{"rendered":"1MS \u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\u3092\u4f5c\u308d\u3046"},"content":{"rendered":"


\n2018\u5e74 6\u67081\u65e5
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u4eca\u56de\u306f\u3044\u305f\u3060\u3044\u305f\u30b3\u30e1\u30f3\u30c8\u306b\u57fa\u3065\u3044\u3066\u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\uff08\u8907\u6b66\u88c5\u3001\u7279\u6b8a\u653b\u6483\uff09\u8981\u7d20\u3092\u3064\u3051\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u305d\u306e\u524d\u306b\u30b3\u30e1\u30f3\u30c8\u3044\u305f\u3060\u3044\u305f\u65b9\u3001\u767a\u898b\u3068\u8fd4\u4e8b\u304c\u9001\u308c\u3066\u6e08\u307f\u307e\u305b\u3093\u3067\u3057\u305f\u3002<\/p>\n

\u3000\u30d6\u30ed\u30b0\u958b\u8a2d\u4ee5\u6765\u3001\u9577\u3044\u4e8b\u30b3\u30e1\u30f3\u30c8 0\u304c\u5e38\u614b\u3060\u3063\u305f\u306e\u3067\u3001\u78ba\u8a8d\u3059\u308b\u7fd2\u6163\u304c\u7121\u3044\u3068\u304b\u3001\u78ba\u8a8d\u3059\u308b\u65b9\u6cd5\u3068\u304b\u3088\u304f\u5206\u304b\u3089\u306a\u304b\u3063\u305f\u306e\u3067\u3002
\n\u3000\u4ee5\u5f8c\u306f\u78ba\u8a8d\u3059\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n

\u3000\u30b3\u30e1\u30f3\u30c8\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3057\u305f\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u3055\u3066\u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\u3067\u3059\u304c\u3001\u4f8b\u3068\u3057\u3066\u6298\u89d2\u30a8\u30af\u30bb\u30ea\u30aa\u30f3\u3092\u6319\u3052\u3066\u3082\u3089\u3063\u305f\u306e\u3082\u3042\u308a\u3001\u3068\u308a\u3042\u3048\u305a\u305d\u308c\u3063\u307d\u304f\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/a><\/p>\n

\u3000\u30d0\u30eb\u30ab\u30f3\u3001\u30af\u30ea\u30c3\u30af\u3067\u4e00\u5b9a\u6570\u767a\u5c04\u3001\u5f3e\u6570\u5236\u9650\u6709\u308a\u3002<\/p>\n

\u3000\u5f3e\u6570\u306e\u5897\u3084\u3057\u65b9\u306f\u8272\u3005\u65b9\u6cd5\u306f\u3042\u308a\u307e\u3059\u304c\u3001\u3068\u308a\u3042\u3048\u305a\u4eca\u56de\u306f\u30a8\u30af\u30bb\u30ea\u30aa\u30f3\u65b9\u5f0f\u3067\u6575\u3092\u5012\u3057\u305f\u3089\u4e00\u5b9a\u6570\u5897\u3048\u307e\u3059\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u305d\u308c\u3068\u524d\u56de\u306e\u30bd\u30fc\u30b9\u306b\u30d0\u30b0\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n

repeat eb ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a
\n\u3000if ef(cnt)=0 : break<\/span><\/p>\n

\u3000continue\uff08\u6b21\u3092\u7e70\u308a\u8fd4\u305b\uff09\u3068\u66f8\u304b\u306a\u304f\u3066\u306f\u3044\u3051\u306a\u3044\u6240\u3092 break\uff08\u7d42\u4e86\u3057\u308d\uff09\u3068\u66f8\u3044\u305f\u305f\u3081\u306b\u3001\u305d\u306e f\uff08\u30d5\u30e9\u30b0\uff09\u306e\u6575\u304c 0\u306a\u3089\u4ee5\u964d\u5f53\u305f\u308a\u5224\u5b9a\u304c\u306a\u304f\u306a\u308b\u3068\u3044\u3046\u3002<\/p>\n

\u3000\u3064\u307e\u308a\u5c11\u3057\u8b0e\u306e\u3059\u308a\u629c\u3051\u304c\u3042\u3063\u305f\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n

\u3000\u30d6\u30ed\u30b0\u306e\u8868\u8a18\u306f\u76f4\u3057\u307e\u3059\u304c\u3001\u30b2\u30fc\u30e0\u306f HTML\u7de8\u96c6\u3057\u306a\u3051\u308c\u3070\u3044\u3051\u306a\u3044\u3057\u3001\u3081\u3093\u3069\u3046\u306a\u306e\u3067\u305d\u306e\u307e\u307e\u306b\u3057\u307e\u3059\uff08\u4eca\u56de\u306e\u306f\u76f4\u3063\u3066\u307e\u3059\uff09<\/p>\n


\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u4eca\u56de\u306f\u554f\u984c\u304c\u767a\u751f\u3057\u3066\u3001\u753b\u9762\u304c\u3061\u3089\u3064\u304f\u3002<\/p>\n

\u3000\u8868\u793a\u306e\u91cf\u304c\u591a\u3044\u306e\u304b\u3001\u8a08\u7b97\u304c\u591a\u3044\u306e\u304b\u3001\u5225\u306e\u7406\u7531\u306a\u306e\u304b\u30a4\u30de\u30a4\u30c1\u5206\u304b\u3089\u306a\u3044\u306e\u3067\u305d\u306e\u691c\u8a3c\u306f\u6b21\u56de\u4ee5\u964d\u306b\u3059\u308b\u3002<\/p>\n

\u3000\u305f\u3060\u81ea\u5206\u306e\u610f\u898b\u3068\u3057\u3066\u306f\u7d20\u76f4\u306b JAVA\u3068\u304b\u4ed6\u306e\u8a00\u8a9e\u3084\u3063\u305f\u65b9\u304c\u826f\u3044\u3068\u306f\u601d\u3046\u3001\u30b9\u30da\u30c3\u30af\u7684\u306b\u3082\u30d7\u30ed\u3067\u4ed5\u4e8b\u76ee\u6307\u3059\u306b\u3057\u3066\u3082\u3002<\/p>\n

\u3000HSP\u306f\u3001\u307e\u3042\u4f7f\u3044\u65b9\u6b21\u7b2c\u3067\u306f\u3042\u308b\u3051\u3069\u3001\u3042\u304f\u307e\u3067\u3082\u5165\u9580\u3060\u3068\u5272\u308a\u5207\u3063\u305f\u65b9\u304c\u826f\u3044\u3060\u308d\u3046\u306d\u3002<\/p>\n

\u3000\u5c11\u306a\u304f\u3068\u3082\u3053\u308c\u3067\u30d6\u30e9\u30a6\u30b6\u7528\u306e STG\u307f\u305f\u3044\u306a\u52d5\u304d\u306e\u3042\u308b\u3082\u306e\u3092\u3001\u3068\u3044\u3046\u306e\u306f\u5c11\u3057\u7121\u8b00\u304b\u3082\u3057\u308c\u306a\u3044\u3002
\n\uff08\u30b9\u30de\u30db\u3067\u3082\u3061\u3089\u3064\u3044\u305f\u306e\u3067\u5225\u306e\u539f\u56e0\u304b\u3082\u3057\u308c\u306a\u3044\u3001PC\u306e\u30a6\u30a4\u30f3\u30c9\u30a6\u8d77\u52d5\u306a\u3089\u554f\u984c\u7121\u3044
\n\u3000\u305d\u308c\u3068\u666e\u901a\u306e HSP\u3068 HSPdish\u306e webGL\u8981\u3059\u308b\u306b\u30d6\u30e9\u30a6\u30b6\u7248\u3068\u307e\u305f\u9055\u3046\u306e\u3067\u6ce8\u610f
\n\u3000\u305d\u3057\u3066\u30a2\u30f3\u30c9\u30ed\u30a4\u30c9\u30a2\u30d7\u30ea\u3068\u3057\u3066\u4f5c\u308b\u306e\u3068\u3082\u9055\u3046\u3001\u3053\u308c\u306f\u30d6\u30e9\u30a6\u30b6\u7248\u306a\u306e\u3060
\n\u3000\u3069\u306e\u9053\u7dcf\u3058\u3066\u30d6\u30e9\u30a6\u30b6\u306f\u91cd\u3044\uff09<\/p>\n

\u3000\u307e\u3042\u3001\u3082\u3046\u3061\u3087\u3063\u3068\u3084\u3063\u3066\u307f\u306a\u3044\u3068\u4f55\u3068\u3082\u8a00\u3048\u306a\u3044\u304b\u306a\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u4eca\u56de\u306f\u30b9\u30de\u30db\u7528\u306b\u30af\u30ea\u30c3\u30af\u767a\u5c04\u3092\u5b9f\u88c5\u3057\u305f\u3051\u3069\u3001\u305f\u3060\u30dc\u30bf\u30f3\u62bc\u3059\u3060\u3051\u3058\u3083\u7121\u304f\u3066\u3001\u653e\u3057\u3066\u308b\u5e38\u614b\u304b\u3089\u4e00\u5b9a\u30d5\u30ec\u30fc\u30e0\u5185\u62bc\u3057\u3066\u3082\u3046\u4e00\u5ea6\u653e\u3057\u305f\u3089\u767a\u5c04\u3002<\/p>\n

\u3000\u9577\u62bc\u3057\u3067\u306f\u767a\u5c04\u3055\u308c\u306a\u3044\u4ed5\u7d44\u307f\u306b\u306a\u3063\u3066\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u5f8c\u306f\u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\u306e\u30d0\u30eb\u30ab\u30f3\u306f 1\u30d5\u30ec\u30fc\u30e0\u306b 3\u767a\u540c\u6642\u767a\u5c04\u3001\u6700\u521d\u306e\u4f4d\u7f6e\u3092 0\uff5e2\u56de\u5206\u5f8c\u9000\u3055\u305b\u3066\u304a\u304f\u3001\u3068\u3044\u3046\u624b\u6cd5\u3092\u3068\u3063\u305f\u3002<\/p>\n

\u3000\u305f\u3060 1\u30d5\u30ec\u30fc\u30e0\u306e\u30b9\u30d4\u30fc\u30c9\u3068\u8a08\u7b97\u306f\u524d\u56de\u3068\u540c\u3058\u306a\u306e\u3067\u3001\u5358\u306b 1\u30d5\u30ec\u30fc\u30e0\u306b\u540c\u66423\u767a\u767a\u5c04\u3068\u3044\u3046\u3060\u3051\u306e\u4e8b\u306b\u306a\u3063\u3066\u308b\u3002<\/p>\n

\u3000\u3064\u307e\u308a\u4eca\u56de\u306f\u307e\u3060\u30b9\u30d4\u30fc\u30c9 20 \u00d7 3\u56de\u3067\u8a08\u7b97\u3092\u3057\u3066\u308b\u304c\u3001\u6b21\u306f 60 \u00d7 1\u56de\u3067\u3001\u7dda\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\u3092\u3057\u305f\u3044\u3068\u306f\u601d\u3063\u3066\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u305d\u308c\u3068\u96c6\u5f3e\u7387\u3092\u30e9\u30f3\u30c0\u30e0\u5ea7\u6a19\u3067\u306f\u7121\u304f\u3066\u3001\u30e9\u30f3\u30c0\u30e0\u30e9\u30b8\u30a2\u30f3\uff08\u5186\u5468\u7387\uff09\u306b\u3057\u305f\u3002<\/p>\n

\u3000\u305f\u3060\u3057\u30e1\u30a4\u30f3\u30b7\u30e7\u30c3\u30c8\u306f\u7740\u5f3e\u70b9\u306e\u7279\u5b9a\u304c\u96e3\u3057\u304b\u3063\u305f\u306e\u3067\u3001\u6b62\u3081\u306b\u3057\u3066\u305d\u306e\u307e\u307e\u306b\u3057\u3066\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u305d\u308c\u3067\u306f\u4eca\u56de\u306e\u30bd\u30fc\u30b9\u3001\u30d0\u30eb\u30ab\u30f3\u306e\u8981\u7d20\u304c\u5897\u3048\u3066\u308b\u3001\u5909\u6570\u3068\u304b\u51e6\u7406\u3068\u304b\u306f\u30b7\u30e7\u30c3\u30c8\u3084\u6575\u3068\u307b\u3068\u3093\u3069\u540c\u3058\u3002<\/p>\n

\"\"\u3000\u2190\u3000\u30d0\u30eb\u30ab\u30f3<\/p>\n

; \u4f01\u753b\u7b2c\u4e00\u5f3e : 1\u753b\u9762\u9632\u885b\u30b7\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0\u3092\u4f5c\u308d\u3046\r\n; var.0.005\r\n\r\n#include \"hsp3dish.as\" ; HSPdish\u306e\u5ba3\u8a00\r\n\r\n\r\n\trandomize\t; \u4e71\u6570\u306e\u521d\u671f\u5316\r\n\r\n\tpai=3.141593\r\n\tpai2=pai*2\r\n\r\n\trad45=0.7853982\t\t; \u30e9\u30b8\u30a2\u30f3\u306745\u5ea6\r\n\trad90=1.5707965\t\t; \u30e9\u30b8\u30a2\u30f3\u306790\u5ea6\r\n\r\n\r\n\twx=640\t; \u753b\u9762\u306e\u5927\u304d\u3055x\r\n\twy=360\t; \u753b\u9762\u306e\u5927\u304d\u3055y\r\n\r\n\tgmode 2\r\n\r\n\tjw=1 : jo=20 : jo2=jo\/2\t; \u81ea\u6a5f\r\n\t celload \"jiki_1.png\",jw\r\n\t  celdiv jw,jo,jo,jo2,jo2\r\n\r\n\tsw=2 : so=6 : so2=so\/2\t; \u30b7\u30e7\u30c3\u30c8\r\n\t celload \"shot_1.png\",sw\r\n\t  celdiv sw,so,so,so2,so2\r\n\r\n\tew=3 : eo=20 : eo2=eo\/2\t; \u6575\r\n\t celload \"ene_1.png\",ew\r\n\t  celdiv ew,eo,eo,eo2,eo2\r\n\r\n\tcw=4 : co=32 : co2=co\/2\t; \u30ab\u30fc\u30bd\u30eb\r\n\t celload \"csr_2.png\",cw\r\n\t  celdiv cw,co,co,co2,co2\r\n\r\n\thw=5 : ho=16 : ho2=ho\/2\t; \u30d2\u30c3\u30c8\r\n\t celload \"hit_4.png\",hw\r\n\t  celdiv hw,ho,ho,ho2,ho2\r\n\r\n\tvw=6 : vo=16 : vo2=vo\/2\t; \u30d0\u30eb\u30ab\u30f3\r\n\t celload \"vulcan_1.png\",vw\r\n\t  celdiv vw,vo,vo,vo2,vo2\r\n\r\n\r\n; \u81ea\u6a5f ----------\r\n\tjx=wx\/2\t; \u30d7\u30ec\u30a4\u30e4\u30fc\u306e\u5ea7\u6a19x\r\n\tjy=wy\/2\t; \u30d7\u30ec\u30a4\u30e4\u30fc\u306e\u5ea7\u6a19y\r\n\r\n\tjx1=jx-jo2 ; \u81ea\u6a5f\u5de6\u5ea7\u6a19\r\n\tjx2=jx+jo2 ; \u81ea\u6a5f\u53f3\u5ea7\u6a19\r\n\tjy1=jy-jo2 ; \u81ea\u6a5f\u4e0a\u5ea7\u6a19\r\n\tjy2=jy+jo2 ; \u81ea\u6a5f\u4e0b\u5ea7\u6a19\r\n\r\n; SHOT ----------\r\n\tsb=20\t\t\t; \u30b7\u30e7\u30c3\u30c8\u6700\u5927\u6570\r\n\t dim sf,sb\t\t; \u30b7\u30e7\u30c3\u30c8\u767a\u5c04\u30d5\u30e9\u30b0\r\n\t ddim sx,sb\t\t; \u30b7\u30e7\u30c3\u30c8\u5ea7\u6a19x\r\n\t ddim sy,sb\t\t; \u30b7\u30e7\u30c3\u30c8\u5ea7\u6a19y\r\n\t ddim sdx,sb\t; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u91cfx\r\n\t ddim sdy,sb\t; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u91cfy\r\n\t ddim sr,sb\t\t; \u5411\u304d\r\n\r\n\t dim sxb,sb\t\t; \u7d42\u70b9\u5ea7\u6a19x\r\n\t dim syb,sb\t\t; \u7d42\u70b9\u5ea7\u6a19y\r\n\t ddim skn,sb\t; \u73fe\u79fb\u52d5\u8ddd\u96e2\r\n\t ddim skb,sb\t; \u6700\u7d42\u79fb\u52d5\u8ddd\u96e2\r\n\r\n\tssp=20.0\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\tskc=3\t\t\t; 1\u30d5\u30ec\u30fc\u30e0\u3067\u79fb\u52d5\u8a08\u7b97\u3059\u308b\u56de\u6570\r\n\r\n\tsc=0\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\tscb=0\t\t\t; \u767a\u5c04\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\tsp=5\t\t\t; \u30d1\u30ef\u30fc\r\n\r\n\tsu=32\t\t\t; \u63fa\u308c\u5e45(\u96c6\u5f3e\u5024)\r\n\r\n; VULCAN ----------\r\n\tvb=30\t\t\t; \u30d0\u30eb\u30ab\u30f3\u6700\u5927\u6570\r\n\t dim vf,vb\t\t; \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u30d5\u30e9\u30b0\r\n\t ddim vx,vb\t\t; \u30d0\u30eb\u30ab\u30f3\u5ea7\u6a19x\r\n\t ddim vy,vb\t\t; \u30d0\u30eb\u30ab\u30f3\u5ea7\u6a19y\r\n\t ddim vdx,vb\t; \u30d0\u30eb\u30ab\u30f3\u79fb\u52d5\u91cfx\r\n\t ddim vdy,vb\t; \u30d0\u30eb\u30ab\u30f3\u79fb\u52d5\u91cfy\r\n\t ddim vr,vb\t\t; \u5411\u304d\r\n\r\n\tvkc=3\t\t\t; 1\u30d5\u30ec\u30fc\u30e0\u306b\u51fa\u73fe\u3059\u308b\u6570\r\n\tvsp=20.0\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\tvp=3\t\t\t; \u30d1\u30ef\u30fc\r\n\tvu=30\t\t\t; \u63fa\u308c\u5e45(\u96c6\u5f3e\u5024)\r\n\tvnb=180\t\t\t; 1\u30af\u30ea\u30c3\u30af\u3067\u767a\u5c04\u3055\u308c\u308b\u6570\r\n\tvc=0\t\t\t; \u6b8b\u5f3e\u6570\r\n\tvcb=20\t\t\t; 1\u3064\u6575\u3092\u5012\u3057\u305f\u6642\u306b\u5897\u3048\u308b\u6570\r\n\r\n\r\n; ENEMY ----------\r\n\teb=40\t\t\t; \u6575\u6700\u5927\u6570\r\n\t dim ef,eb\t\t; \u51fa\u73fe\u30d5\u30e9\u30b0\r\n\t dim ehp,eb\t\t; \u8010\u4e45\u5ea6\r\n\t ddim ex,eb\t\t; \u6575\u5ea7\u6a19x\r\n\t ddim ey,eb\t\t; \u6575\u5ea7\u6a19y\r\n\t ddim edx,eb\t; \u6575\u79fb\u52d5\u91cfx\r\n\t ddim edy,eb\t; \u6575\u79fb\u52d5\u91cfy\r\n\t ddim er,eb\t\t; \u5411\u304d\r\n\r\n\tehpb=60\t\t\t; \u8010\u4e45\u5ea6\r\n\r\n\tesp=0.5\t\t\t; \u6575\u30b9\u30d4\u30fc\u30c9\r\n\r\n\tec=0\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\tecb=10\t\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\r\n\tscr=0\t\t; \u30b9\u30b3\u30a2\r\n\thiscr=0\t\t; \u30cf\u30a4\u30b9\u30b3\u30a2\r\n\r\n\tkf=0\t\t; \u30ad\u30fc\u3092\u62bc\u3057\u3066\u308b\u304b\u30d5\u30e9\u30b0\r\n\tkc=0\t\t; \u4f55\u30d5\u30ec\u30fc\u30e0\u30ad\u30fc\u3092\u62bc\u3057\u3066\u308b\u304b\r\n\r\n\r\n*main\r\n\r\n\tmainf=0 ; \u30b2\u30fc\u30e0\u30d5\u30e9\u30b0\r\n\r\n\trepeat ; \u30e1\u30a4\u30f3\u30eb\u30fc\u30d7 ----------------------------------\r\n\r\n\t switch mainf\r\n\t  case 0 ; \u30bf\u30a4\u30c8\u30eb ----------\r\n\t   stick k : if k=0 : swbreak ; \u30dc\u30bf\u30f3\u3067\u30b2\u30fc\u30e0\u518d\u958b\r\n\t   mainf=1\r\n\t  swbreak ; ----------\r\n\r\n\t  case 1 ; \u30b2\u30fc\u30e0 ----------\r\n\r\n; \u81ea\u6a5f ----------\r\n\t   x=mousex : y=mousey\t; \u30de\u30a6\u30b9\u306e\u5ea7\u6a19\r\n\r\n\t   stick k,256\t; \u30de\u30a6\u30b9\u30af\u30ea\u30c3\u30af\r\n\r\n; SHOT ----------\r\n\t   repeat 1 ; \u767a\u5c04\r\n\t    if sc>0 : sc- : break ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t    repeat sb\r\n\t     if sf(cnt)!0 : continue ; \u4f7f\u7528\u4e2d\r\n\r\n\t     sf(cnt)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\t\t sx(cnt)=double(jx) : sy(cnt)=double(jy) ; \u521d\u671f\u5ea7\u6a19\r\n\r\n\t\t xx=x-su\/2+rnd(su)\t\t; \u30b7\u30e7\u30c3\u30c8\u306e\u7740\u5f3e\u70b9x\r\n\t\t yy=y-su\/2+rnd(su)\t\t; \u30b7\u30e7\u30c3\u30c8\u306e\u7740\u5f3e\u70b9y\r\n\r\n\t\t xn=double(xx-jx)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2x\r\n\t\t yn=double(yy-jy)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2y\r\n\r\n\t\t rad=atan(xn,yn)\t\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t\t sr(cnt)=-rad+pai\t\t; \u5411\u304d\r\n\r\n\t \t sdx(cnt)=sin(rad)*ssp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t \t sdy(cnt)=cos(rad)*ssp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\r\n\t\t sxb(cnt)=xx : syb(cnt)=yy\t; \u7d42\u70b9\u5ea7\u6a19\r\n\r\n\t\t skn(cnt)=0.0\t\t\t\t; \u73fe\u79fb\u52d5\u8ddd\u96e2\u3092\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t\t x2=xx-jx : y2=yy-jy\r\n\t\t  skb(cnt)=sqrt(x2*x2+y2*y2); \u6700\u7d42\u79fb\u52d5\u8ddd\u96e2\r\n\t\t \r\n\t\t break\r\n\t\tloop\r\n\t\tsc=scb ; \u767a\u5c04\u30a6\u30a8\u30a4\u30c8\r\n\t   loop\r\n\r\n\t   repeat sb : scn=cnt ; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u51e6\u7406\r\n\t\tif sf(scn)=0 : continue ; \u7121\u3057\r\n\r\n\t\trepeat skc : cnt2=cnt ; 1\u30b7\u30e7\u30c3\u30c8\u306e\u79fb\u52d5\u7e70\u308a\u8fd4\u3057 ====================\r\n\t\t sx(scn)+=sdx(scn) ; x\u306e\u79fb\u52d5\r\n\t\t sy(scn)+=sdy(scn) ; y\u306e\u79fb\u52d5\r\n\r\n\t\t skn(scn)+=ssp ; \u3069\u308c\u3060\u3051\u8ddd\u96e2\u3092\u9032\u3093\u3060\u304b\r\n\t\t  if skn(scn)>=skb(scn) { ; \u7d42\u70b9\u5224\u5b9a\r\n\t\t\t sx(scn)=double(sxb(scn))\r\n\t\t\t sy(scn)=double(syb(scn))\r\n\t\t\t sf(scn)=-1 ; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t\t  }\r\n\r\n\t\t sx1=int(sx(scn))-so2 ; \u30b7\u30e7\u30c3\u30c8\u5de6\u5ea7\u6a19\r\n\t\t sx2=int(sx(scn))+so2 ; \u30b7\u30e7\u30c3\u30c8\u53f3\u5ea7\u6a19\r\n\t\t sy1=int(sy(scn))-so2 ; \u30b7\u30e7\u30c3\u30c8\u4e0a\u5ea7\u6a19\r\n\t\t sy2=int(sy(scn))+so2 ; \u30b7\u30e7\u30c3\u30c8\u4e0b\u5ea7\u6a19\r\n\r\n\t\t repeat eb ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t\t  if ef(cnt)=0 : continue\r\n\r\n\t\t  ex1=int(ex(cnt))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t\t  ex2=int(ex(cnt))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t\t  ey1=int(ey(cnt))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t\t  ey2=int(ey(cnt))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t\t  if sx1<ex2 and ex1<sx2 and sy1<ey2 and ey1<sy2 {\r\n\t\t   sf(scn)=-1\r\n\t\t   ehp(cnt)-=sp ; \u8010\u4e45\u5ea6-\r\n\t\t\tif ehp(cnt)<=0 { ; \u5012\u3057\u305f\u304b\r\n\t\t\t ef(cnt)=0\t\t; \u5f53\u305f\u3063\u305f\u6575\u3068\u30b7\u30e7\u30c3\u30c8\u3092\u6d88\u3059\r\n\t\t\t vc+=vcb\t\t; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u6570\u3092\u5897\u3084\u3059\r\n\t\t\t scr+\t\t\t; \u30b9\u30b3\u30a2\r\n\t\t\t if hiscr<scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\t\t\t break\r\n\t\t\t}\r\n\t\t  }\r\n\t\t loop\r\n\r\n\t\t if sf(scn)=1 : if sx2<0 or wx<sx1 or sy2<0 or wy<sy1 : sf(scn)=0 : break ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\t\t if sf(scn)=-1 : break ; \u7740\u5f3e\u3057\u3066\u308b\r\n\r\n\t\tloop ; ====================\r\n\t   loop\r\n\r\n\r\n; VULCAN ----------\r\n\r\n\t   repeat 1 ; \u30d0\u30eb\u30ab\u30f3\u306e\u5165\u529b\u5224\u5b9a\r\n\t    if k=256 : kf=1 : kc+ : break ; \u62bc\u3057\u3066\u3044\u308b\r\n\t    if kf=0 : break ; \u4e00\u5ea6\u3082\u62bc\u3057\u3066\u306a\u3044\r\n\r\n\t    kf=0 ; \u62bc\u3057\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t    if kc>2 : kc=0 : break ; 2\u30d5\u30ec\u30fc\u30e0\u4ee5\u4e0a\u62bc\u3057\u3066\u3044\u305f\r\n\t    if vc>0 and vn=0 : vn+=vnb ; \u767a\u5c04\u8981\u6c42\u6570\r\n\t    kc=0\r\n\t   loop\r\n\r\n\t   repeat vkc : cnt2=cnt ; 1\u30d5\u30ec\u30fc\u30e0\u306b\u767a\u5c04\u3055\u308c\u308b\u6570\r\n\t    if vn=0 or vc=0 : break ; \u767a\u5c04\u8981\u6c42\u6570\u3001\u307e\u305f\u306f\u6b8b\u5f3e\u304c0\r\n\r\n\t\trepeat vb : vcn=cnt\r\n\t     if vf(vcn)!0 : continue ; \u4f7f\u7528\u4e2d\r\n\r\n\t     vn- ; \u767a\u5c04\u8981\u6c42\u6570-\r\n\t     vc- : if vc=0 : vn=0 ; \u6b8b\u5f3e-\r\n\r\n\t     vf(vcn)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\t\t vx(vcn)=double(jx) : vy(vcn)=double(jy) ; \u521d\u671f\u5ea7\u6a19\r\n\r\n\t\t xn=double(x-jx)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2x\r\n\t\t yn=double(y-jy)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2y\r\n\r\n\t\t rd=double(-(vu\/2)+rnd(vu+1))\/100.0 ; \u63fa\u308c\u5e45\uff08\u30e9\u30b8\u30a2\u30f3\uff09\r\n\t\t  rad=atan(xn,yn)+rd\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t\t vr(vcn)=-rad+pai\t\t; \u5411\u304d\r\n\r\n\t \t vdx(vcn)=sin(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t \t vdy(vcn)=cos(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\t\t repeat cnt2\r\n\t\t  vx(vcn)-=vdx(vcn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fx\r\n\t\t  vy(vcn)-=vdy(vcn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fy\r\n\t\t loop\r\n\r\n\t\t break\r\n\t\tloop\r\n\t   loop\r\n\r\n\t   repeat vkc ; vkc\u56de\u79fb\u52d5\r\n\t    repeat vb : vcn=cnt ; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u51e6\u7406\r\n\t\t if vf(vcn)=0 : continue ; \u7121\u3057\r\n\r\n\t     vx(vcn)+=vdx(vcn) ; x\u306e\u79fb\u52d5\r\n\t     vy(vcn)+=vdy(vcn) ; y\u306e\u79fb\u52d5\r\n\r\n\t     vx1=int(vx(vcn))-vo2 ; \u30b7\u30e7\u30c3\u30c8\u5de6\u5ea7\u6a19\r\n\t     vx2=int(vx(vcn))+vo2 ; \u30b7\u30e7\u30c3\u30c8\u53f3\u5ea7\u6a19\r\n\t     vy1=int(vy(vcn))-vo2 ; \u30b7\u30e7\u30c3\u30c8\u4e0a\u5ea7\u6a19\r\n\t     vy2=int(vy(vcn))+vo2 ; \u30b7\u30e7\u30c3\u30c8\u4e0b\u5ea7\u6a19\r\n\r\n\t     repeat eb ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t      if ef(cnt)=0 : continue\r\n\r\n\t      ex1=int(ex(cnt))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t      ex2=int(ex(cnt))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t      ey1=int(ey(cnt))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t      ey2=int(ey(cnt))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t      if vx1<ex2 and ex1<vx2 and vy1<ey2 and ey1<vy2 {\r\n\t       vf(vcn)=-1\r\n\t       ehp(cnt)-=vp ; \u8010\u4e45\u5ea6-\r\n\t        if ehp(cnt)<=0 { ; \u5012\u3057\u305f\u304b\r\n\t         ef(cnt)=0 ; \u6575\u3092\u6d88\u3059\r\n\t         ;vc+=vcn ; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u6570\u3092\u5897\u3084\u3059\r\n\t         vcr+ ; \u30b9\u30b3\u30a2\r\n\t         if hiscr<scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\t         break\r\n\t        }\r\n\t      }\r\n\t     loop\r\n\r\n\t     if vf(vcn)=1 : if vx2<0 or wx<vx1 or vy2<0 or wy<vy1 : vf(vcn)=0 : continue ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\t     if vf(vcn)=-1 : continue ; \u7740\u5f3e\u3057\u3066\u308b\r\n\t    loop\r\n\t   loop\r\n\r\n\r\n; ENEMY ----------\r\n\r\n\t   repeat 1 ; \u6575\u51fa\u73fe\r\n\t    if ec>0 : ec- : break ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t\trepeat eb ; \u30d5\u30e9\u30b0\u78ba\u8a8d\r\n\t\t if ef(cnt)>0 : continue ; \u4f7f\u7528\u4e2d\r\n\t\t ef(cnt)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\r\n\t\t ehp(cnt)=ehpb\r\n\r\n\t\t r=rnd(4) ; \u51fa\u73fe\u65b9\u5411\r\n\t\t  if r=0 : exs=rnd(wx)-eo2 : eys=0-eo2\t; \u4e0a\r\n\t\t  if r=1 : exs=rnd(wx)-eo2 : eys=wy+eo2\t; \u4e0b\r\n\t\t  if r=2 : exs=-eo2\t  : eys=rnd(wy)-eo2\t; \u5de6\r\n\t\t  if r=3 : exs=wx+eo2 : eys=rnd(wy)-eo2\t; \u53f3\r\n\r\n\t\t  ex(cnt)=double(exs)\t; \u521d\u671f\u4f4d\u7f6ex\r\n\t\t  ey(cnt)=double(eys)\t; \u521d\u671f\u4f4d\u7f6ey\r\n\r\n\t\t  xn=double(jx-exs)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2x\r\n\t\t  yn=double(jy-eys)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2y\r\n\r\n\t\t  rad=atan(xn,yn) \t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t\t  edx(cnt)=sin(rad)*esp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t\t  edy(cnt)=cos(rad)*esp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\t\t  er(cnt)=-rad+pai\t; \u5411\u304d\r\n\r\n\t\t  ec=ecb ; \u51fa\u73fe\u30a6\u30a8\u30a4\u30c8\r\n\r\n\t\t  break ; \u767b\u9332\u7d42\u308f\u308a\r\n\t\tloop\r\n\t   loop\r\n\r\n\t   repeat eb ; \u6575\u79fb\u52d5\u51e6\u7406\r\n\t\tif ef(cnt)=0 : continue ; \u7121\u3057\r\n\r\n\t\tex(cnt)+=edx(cnt) : ey(cnt)+=edy(cnt) ; \u79fb\u52d5\r\n\r\n\t\tex1=int(ex(cnt))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t\tex2=int(ex(cnt))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t\tey1=int(ey(cnt))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t\tey2=int(ey(cnt))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t\tif jx1<ex2 and ex1<jx2 and jy1<ey2 and ey1<jy2 {\r\n\t\t\tmainf=2 : break ; \u81ea\u6a5f\u3068\u5f53\u305f\u308a\u3067 GAME OVER\r\n\t\t}\r\n\r\n\t\tif ex2<0 or wx<ex1 or ey2<0 or wy<ey1 : ef(cnt)=0 ; \u67a0\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\t   loop\r\n\t  swbreak ; ----------\r\n\r\n\t  case 2 ; gameover ----------\r\n\t   stick k : if k=0 : swbreak ; \u30dc\u30bf\u30f3\u3067\u30b2\u30fc\u30e0\u518d\u958b\r\n\r\n\t   repeat sb\r\n\t    sf(cnt)=0 ; \u30b7\u30e7\u30c3\u30c8\u30ea\u30bb\u30c3\u30c8\r\n\t   loop\r\n\r\n\t   repeat vb\r\n\t    vf(cnt)=0 ; \u30d0\u30eb\u30ab\u30f3\u30ea\u30bb\u30c3\u30c8\r\n\t   loop\r\n\t   vn=0 : vc=0 ; \u6b8b\u5f3e\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t\u3000 repeat eb\r\n\t    ef(cnt)=0 ; \u6575\u30ea\u30bb\u30c3\u30c8\r\n\t   loop\r\n\r\n\t   scr=0 ; \u30b9\u30b3\u30a2\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t   mainf=0 ; \u30b2\u30fc\u30e0\u518d\u958b\r\n\t  swbreak ; ----------\r\n\t swend\r\n\r\n\r\n\t redraw 0 ; \u8868\u793a ====================\r\n\t  color 1,1,1 : boxf : color 255,255,255 ; \u753b\u9762\u30af\u30ea\u30a2\r\n\r\n\t  pos jx,jy : celput jw ; \u81ea\u6a5f\r\n\r\n\t  repeat eb ; \u6575\r\n\t   if ef(cnt)=0 : continue ; \u7121\u3044\r\n\t   pos ex(cnt),ey(cnt) : celput ew,,,,er(cnt) ; \u6575\r\n\t  loop\r\n\r\n\t  repeat sb ; \u30b7\u30e7\u30c3\u30c8\r\n\t   if sf(cnt)=0 : continue ; \u7121\u3044\r\n\t   pos sx(cnt),sy(cnt)\r\n\t    if sf(cnt)=-1 : celput hw,,,,sr(cnt) : sf(cnt)=0 : continue ; \u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t    celput sw ; \u30b7\u30e7\u30c3\u30c8\r\n\t  loop\r\n\r\n\t  repeat vb ; \u30d0\u30eb\u30ab\u30f3\r\n\t   if vf(cnt)=0 : continue ; \u7121\u3044\r\n\t   pos vx(cnt),vy(cnt)\r\n\t    if vf(cnt)=-1 : celput hw,,,,vr(cnt) : vf(cnt)=0 : continue ; \u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t    celput vw,,,,vr(cnt) ; \u30d0\u30eb\u30ab\u30f3\r\n\t  loop\r\n\r\n\t  pos 10,wy-20 : mes vc ; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u8868\u793a\r\n\t  repeat vc\/10\r\n\t   pos 50+cnt*6,wy-12 : celput vw\r\n\t   if cnt=100 : break ; \u6700\u5927\r\n\t  loop\r\n\r\n\t  pos x,y : celput cw ; \u30ab\u30fc\u30bd\u30eb\r\n\r\n\t  switch mainf\r\n\t   case 0 ; \u30bf\u30a4\u30c8\u30eb\r\n\t    pos wx\/2-120,wy\/2-50 : mes \"1\u753b\u9762\u9632\u885b\u30b7\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0\"\r\n\t    pos wx\/2-43,wy\/2+30 : mes \"var.0.005\"\r\n\t   swbreak\r\n\r\n\t   case 1 ; \u30b2\u30fc\u30e0\r\n\t   swbreak\r\n\r\n\t   case 2 ; gameover\r\n\t    pos wx\/2-43,wy\/2+50 : mes \"GAME OVER\"\r\n\t   swbreak\r\n\t  swend\r\n\r\n\t  pos wx-300,5 : mes \"SCORE \"+scr\r\n\t  pos wx-150,5 : mes \"HI SCORE \"+hiscr\r\n\t redraw 1 ; ====================\r\n\r\n\r\n\t await 1000\/15\t; \u30a6\u30a8\u30a4\u30c8\u3001FPS 15\r\n\r\n\tloop ; --------------------------------------------------\r\n\r\n\r\n\treturn ; \u7d42\u308f\u308a<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n
\n\u30d7\u30ed\u30b0\u30e9\u30e0\u89e3\u8aac<\/span><\/b>
\n
\n\u5165\u529b\u5224\u5b9a<\/span><\/p>\n\n
\n
repeat 1 ; \u30d0\u30eb\u30ab\u30f3\u306e\u5165\u529b\u5224\u5b9a
\n\u3000if k=256 : kf=1 : kc+ : break ; \u62bc\u3057\u3066\u3044\u308b
\n\u3000if kf=0 : break ; \u4e00\u5ea6\u3082\u62bc\u3057\u3066\u306a\u3044
\n
\n\u3000kf=0 ; \u62bc\u3057\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8
\n\u3000if kc>2 : kc=0 : break ; 2\u30d5\u30ec\u30fc\u30e0\u4ee5\u4e0a\u62bc\u3057\u3066\u3044\u305f
\n\u3000if vc>0 and vn=0 : vn+=vnb ; \u767a\u5c04\u8981\u6c42\u6570
\n\u3000kc=0
\nloop
\n<\/span><\/p>\n
\u3000\u3053\u306e\u524d\u306b stick k<\/span> \u3068\u3044\u3046\u547d\u4ee4\u304c\u5b9f\u884c\u3055\u308c\u3066\u3044\u3066\u3001k\u306e\u5909\u6570\u306b\u30ad\u30fc\u5165\u529b\u306e\u5024\u304c\u5165\u308b\u3002
\n\u3000k=256\u306f\u30de\u30a6\u30b9\u306e\u5de6\u30af\u30ea\u30c3\u30af\u3068\u3001\u30b9\u30de\u30db\u306e\u30bf\u30c3\u30c1\u3068\u3044\u3046\u610f\u5473\u3002<\/p>\n
\u3000kf=\u305d\u306e\u30ad\u30fc\u3092\u62bc\u3057\u3066\u308b\u304b\u30010=\u62bc\u3057\u3066\u306a\u3044\u30011=\u62bc\u3057\u3066\u308b\u3002<\/p>\n
\u3000kf=1\u306e\u6642\u3001kc\u3092 +\u3059\u308b\u3001kc=\u4f55\u30d5\u30ec\u30fc\u30e0\u30ad\u30fc\u3092\u62bc\u3057\u3066\u308b\u304b\u306e\u30ab\u30a6\u30f3\u30c8\u3002<\/p>\n
\u3000\u518d\u3073 kf=0\u306b\u306a\u3063\u305f\u6642\u3001\u3064\u307e\u308a\u30dc\u30bf\u30f3\u3092\u653e\u3057\u305f\u6642 kc\u304c 2\u30d5\u30ec\u30fc\u30e0\u4ee5\u4e0b\u306a\u3089\u7279\u6b8a\u653b\u6483\u767a\u52d5\u3001\u305d\u308c\u4ee5\u4e0a\u62bc\u3057\u3063\u653e\u3057\u306a\u3089\u7167\u6e96\u3092\u52d5\u304b\u3057\u3066\u3044\u308b\u3082\u306e\u3068\u898b\u308b\u3002<\/p>\n
\u3000\u8981\u3059\u308b\u306b\u30dd\u30f3\u3068\u62bc\u3057\u305f\u6642\u3060\u3051\u767a\u52d5\u3059\u308b\u3088\u3046\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3002<\/p>\n
\u3000vc=\u6b8b\u5f3e\u6570\u3001vn=\u767a\u5c04\u6570\u3001\u767a\u5c04\u4e2d\u306e\u5909\u5316\u306f\u3057\u306a\u3044\u3088\u3046\u306b\u3057\u3066\u308b\u3002\n <\/td>\n<\/table>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u30d0\u30eb\u30ab\u30f3<\/span><\/p>\n\n
\n\u3000\u30bd\u30fc\u30b9\u306e\u5185\u5bb9\u306f\u30b7\u30e7\u30c3\u30c8\u3068\u6575\u3068\u307b\u3068\u3093\u3069\u540c\u3058\u3002<\/p>\n
\u3000\u30b7\u30e7\u30c3\u30c8\u306e\u30bd\u30fc\u30b9\u3092\u30b3\u30d4\u30da\u3057\u3066 s\u3092 v\u306b\u66f8\u304d\u63db\u3048\u3001\u6539\u9020\u3057\u3066\u4f5c\u3063\u305f\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n repeat vkc : cnt2=cnt ; 1\u30d5\u30ec\u30fc\u30e0\u306b\u767a\u5c04\u3055\u308c\u308b\u6570<\/span>
\n\u3000\u59cb\u3081\u306b vkc\u767a\u5206\u540c\u6642\u767a\u5c04\u3059\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n
\nrd=double(-(vu\/2)+rnd(vu+1))\/100.0 ; \u63fa\u308c\u5e45\uff08\u30e9\u30b8\u30a2\u30f3\uff09
\n\u3000rad=atan(xn,yn)+rd\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b
\n<\/span>
\n\u3000\u30e9\u30b8\u30a2\u30f3\uff08\u5411\u304d\uff09\u306b + -\u3059\u308b\u5f62\u3067\u5f3e\u9053\u306e\u63fa\u3089\u304e\u3092\u5909\u5316\u3055\u305b\u308b\u3002
\n\u3000vu=\u3086\u308c\u5e45\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n
\nrepeat cnt2
\n\u3000vx(vcn)-=vdx(vcn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fx
\n\u3000vy(vcn)-=vdy(vcn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fy
\nloop
\n<\/span>
\n\u30001\u767a\u76ee\u306f 0\u56de\u30012\u767a\u76ee\u306f 1\u56de\u5206\u30013\u767a\u76ee\u306f2\u56de\u5206\u3001\u3042\u3089\u304b\u3058\u3081\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304f\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\nrepeat vkc ; vkc\u56de\u79fb\u52d5<\/span><\/p>\n
\u3000\u7d50\u5c40\u4eca\u56de\u306f\u307e\u3060 1\u30d5\u30ec\u30fc\u30e0\u306b3\u56de\u52d5\u304b\u3057\u3066\u3044\u308b\u3002<\/p>\n<\/td>\n<\/table>\n","protected":false},"excerpt":{"rendered":"
2018\u5e74 6\u67081\u65e5 \u3000 \u3000 \u3000\u4eca\u56de\u306f\u3044\u305f\u3060\u3044\u305f\u30b3\u30e1\u30f3\u30c8\u306b\u57fa\u3065\u3044\u3066\u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\uff08\u8907\u6b66\u88c5\u3001\u7279\u6b8a\u653b\u6483\uff09\u8981\u7d20\u3092\u3064\u3051\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002 \u3000 \u3000 \u3000\u305d\u306e\u524d\u306b\u30b3\u30e1\u30f3\u30c8\u3044\u305f\u3060\u3044\u305f\u65b9\u3001\u767a\u898b\u3068\u8fd4\u4e8b\u304c\u9001\u308c\u3066\u6e08\u307f\u307e\u305b\u3093\u3067\u3057\u305f\u3002 \u3000\u30d6\u30ed\u30b0\u958b\u8a2d\u4ee5\u6765 … “1MS \u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\u3092\u4f5c\u308d\u3046” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17,6,13],"tags":[],"class_list":["post-6539","post","type-post","status-publish","format-standard","hentry","category-1map-stg","category-webgl","category-13"],"_links":{"self":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6539","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/comments?post=6539"}],"version-history":[{"count":44,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6539\/revisions"}],"predecessor-version":[{"id":6653,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6539\/revisions\/6653"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=6539"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=6539"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=6539"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}