// 挫折湖自動運転 超ロングコース用 val{ steerl(default=0,min=-30,max=30,step=5,disp=0) steerr(default=0,min=-30,max=30,step=5,disp=0) brkfl(default=0,min=0,max=1000,step=1000,disp=1) brkfr(default=0,min=0,max=1000,step=1000,disp=1) brkrl(default=0,min=0,max=1000,step=1000,disp=1) brkrr(default=0,min=0,max=1000,step=1000,disp=1) pow(default=0,min=-10000,max=250000,step=1000000,disp=1) powfl(default=0,min=-40000,max=500000,step=0,disp=1) powfr(default=0,min=-40000,max=500000,step=0,disp=1) powrl(default=0,min=-20000,max=250000,step=0,disp=1) powrr(default=0,min=-20000,max=250000,step=0,disp=1) trqfl(default=1,min=0,max=1,step=0,disp=1) trqfr(default=1,min=0,max=1,step=0,disp=1) trqrl(default=1,min=0,max=1,step=0,disp=1) trqrr(default=1,min=0,max=1,step=0,disp=1) dmpf(default=0.15,disp=0) sprf(default=0.15,disp=0) dmpr(default=0.2,disp=0) sprr(default=0.2,disp=0) dmp(default=0.4,disp=0) spr(default=0.4,disp=0) col(default=#99ccff,disp=0) } key{ 0:pow(step= 1100) 1:pow(step=-1000) 4:brkfl(step=50),brkfr(step=50),brkrl(step=50),brkrr(step=50) 5:pow(step= 1100) 6:pow(step=-1000) } body{ core(color=col){ w:frame(angle=5,spring=spr,damper=dmp,color=col){ w:frame(angle=-95,spring=spr,damper=dmp,color=col){ n:chip(angle=steerl,spring=spr,damper=dmp,color=col){} s:chip(angle=25,spring=spr,damper=dmp,color=col){} n:rudderf(angle=12,spring=sprf,damper=dmpf,color=col){ n:trim(angle=90,spring=spr,damper=dmp,color=col){ s:chip(angle=14,spring=spr,damper=dmp,color=col){} } n:wheel(name=nwfl,angle=steerl,power=powfl,effect=2.5,spring=spr,damper=dmp,color=col,brake=brkfl){} } s:rudder(angle=-12,spring=sprr,damper=dmpr,color=col){ s:rudder(angle=26,spring=spr,damper=dmp,color=col){ e:chip(angle=-100,spring=spr,damper=dmp,color=col){} } s:wheel(name=nwrl,angle=0,power=powrl,effect=3,spring=spr,damper=dmp,color=col,brake=brkrl){} } } } e:frame(angle=5,spring=spr,damper=dmp,color=col){ e:frame(angle=-95,spring=spr,damper=dmp,color=col){ n:chip(angle=steerr,spring=spr,damper=dmp,color=col){} s:chip(angle=25,spring=spr,damper=dmp,color=col){} n:rudderf(angle=-12,spring=sprf,damper=dmpf,color=col){ n:trim(angle=-90,spring=spr,damper=dmp,color=col){ s:chip(angle=14,spring=spr,damper=dmp,color=col){} } n:wheel(name=nwfr,angle=steerr,power=-powfr,effect=2.5,spring=spr,damper=dmp,color=col,brake=brkfr){} } s:rudder(angle=12,spring=sprr,damper=dmpr,color=col){ s:rudder(angle=-26,spring=spr,damper=dmp,color=col){ w:chip(angle=-100,spring=spr,damper=dmp,color=col){} } s:wheel(name=nwrr,angle=0,power=-powrr,effect=3,spring=spr,damper=dmp,color=col,brake=brkrr){} } } } } } Lua{ tgn=0 tgx,tgy,tgz={},{},{} tgs={} tgx[tgn],tgy[tgn],tgz[tgn]= -499.98, 30.90, -42.00; tgs[tgn]=3000; tgn=tgn+1 -- 0000 tgx[tgn],tgy[tgn],tgz[tgn]= -480.96, 30.97, -73.95; tgs[tgn]=3000; tgn=tgn+1 -- 0001 tgx[tgn],tgy[tgn],tgz[tgn]= -478.42, 30.98, -78.42; tgs[tgn]=3001; tgn=tgn+1 -- 0002 tgx[tgn],tgy[tgn],tgz[tgn]= -488.53, 43.27, -189.07; tgs[tgn]=3001; tgn=tgn+1 -- 0003 tgx[tgn],tgy[tgn],tgz[tgn]= -494.89, 47.34, -217.37; tgs[tgn]=3001; tgn=tgn+1 -- 0004 tgx[tgn],tgy[tgn],tgz[tgn]= -511.21, 52.63, -251.18; tgs[tgn]=3001; tgn=tgn+1 -- 0005 tgx[tgn],tgy[tgn],tgz[tgn]= -538.07, 58.03, -279.95; tgs[tgn]=3001; tgn=tgn+1 -- 0006 tgx[tgn],tgy[tgn],tgz[tgn]= -571.21, 63.54, -299.01; tgs[tgn]=3001; tgn=tgn+1 -- 0007 tgx[tgn],tgy[tgn],tgz[tgn]= -624.89, 71.20, -306.95; tgs[tgn]=3001; tgn=tgn+1 -- 0008 tgx[tgn],tgy[tgn],tgz[tgn]= -665.18, 76.92, -300.17; tgs[tgn]=3001; tgn=tgn+1 -- 0009 tgx[tgn],tgy[tgn],tgz[tgn]= -716.50, 85.55, -267.65; tgs[tgn]=3001; tgn=tgn+1 -- 0010 tgx[tgn],tgy[tgn],tgz[tgn]= -736.21, 89.98, -243.34; tgs[tgn]=3001; tgn=tgn+1 -- 0011 tgx[tgn],tgy[tgn],tgz[tgn]= -750.86, 95.67, -206.65; tgs[tgn]=3001; tgn=tgn+1 -- 0012 tgx[tgn],tgy[tgn],tgz[tgn]= -789.47, 114.53, -20.57; tgs[tgn]=3001; tgn=tgn+1 -- 0013 tgx[tgn],tgy[tgn],tgz[tgn]= -814.71, 131.81, 156.93; tgs[tgn]=3000; tgn=tgn+1 -- 0014 tgx[tgn],tgy[tgn],tgz[tgn]= -827.34, 158.81, 347.71; tgs[tgn]=3000; tgn=tgn+1 -- 0015 tgx[tgn],tgy[tgn],tgz[tgn]= -844.23, 163.25, 393.71; tgs[tgn]=3000; tgn=tgn+1 -- 0016 tgx[tgn],tgy[tgn],tgz[tgn]= -897.02, 171.64, 433.19; tgs[tgn]=3000; tgn=tgn+1 -- 0017 tgx[tgn],tgy[tgn],tgz[tgn]= -939.71, 177.21, 447.94; tgs[tgn]=3000; tgn=tgn+1 -- 0018 tgx[tgn],tgy[tgn],tgz[tgn]= -1084.64, 209.20, 452.93; tgs[tgn]=3000; tgn=tgn+1 -- 0019 tgx[tgn],tgy[tgn],tgz[tgn]= -1180.76, 227.55, 448.80; tgs[tgn]=3000; tgn=tgn+1 -- 0020 tgx[tgn],tgy[tgn],tgz[tgn]= -1256.04, 234.04, 430.32; tgs[tgn]=3000; tgn=tgn+1 -- 0021 tgx[tgn],tgy[tgn],tgz[tgn]= -1305.38, 240.43, 378.96; tgs[tgn]=3000; tgn=tgn+1 -- 0022 tgx[tgn],tgy[tgn],tgz[tgn]= -1321.89, 248.28, 325.68; tgs[tgn]=3000; tgn=tgn+1 -- 0023 tgx[tgn],tgy[tgn],tgz[tgn]= -1337.91, 264.74, 230.35; tgs[tgn]=3000; tgn=tgn+1 -- 0024 tgx[tgn],tgy[tgn],tgz[tgn]= -1368.35, 269.70, 189.41; tgs[tgn]=3000; tgn=tgn+1 -- 0025 tgx[tgn],tgy[tgn],tgz[tgn]= -1416.97, 276.67, 160.34; tgs[tgn]=3000; tgn=tgn+1 -- 0026 tgx[tgn],tgy[tgn],tgz[tgn]= -1460.65, 282.90, 152.85; tgs[tgn]=3000; tgn=tgn+1 -- 0027 tgx[tgn],tgy[tgn],tgz[tgn]= -1644.79, 308.99, 164.53; tgs[tgn]=3000; tgn=tgn+1 -- 0028 tgx[tgn],tgy[tgn],tgz[tgn]= -1698.67, 314.98, 180.31; tgs[tgn]=3000; tgn=tgn+1 -- 0029 tgx[tgn],tgy[tgn],tgz[tgn]= -1736.65, 316.92, 161.41; tgs[tgn]=3000; tgn=tgn+1 -- 0030 tgx[tgn],tgy[tgn],tgz[tgn]= -1767.91, 318.90, 129.98; tgs[tgn]=3000; tgn=tgn+1 -- 0031 tgx[tgn],tgy[tgn],tgz[tgn]= -1779.23, 320.89, 86.87; tgs[tgn]=3000; tgn=tgn+1 -- 0032 tgx[tgn],tgy[tgn],tgz[tgn]= -1767.46, 322.88, 44.70; tgs[tgn]=3000; tgn=tgn+1 -- 0033 tgx[tgn],tgy[tgn],tgz[tgn]= -1731.27, 326.40, 11.18; tgs[tgn]=3000; tgn=tgn+1 -- 0034 tgx[tgn],tgy[tgn],tgz[tgn]= -1702.22, 329.48, 7.99; tgs[tgn]=3000; tgn=tgn+1 -- 0035 tgx[tgn],tgy[tgn],tgz[tgn]= -1677.76, 332.98, 13.45; tgs[tgn]=3000; tgn=tgn+1 -- 0036 tgx[tgn],tgy[tgn],tgz[tgn]= -1653.70, 335.21, 30.45; tgs[tgn]=3000; tgn=tgn+1 -- 0037 tgx[tgn],tgy[tgn],tgz[tgn]= -1629.07, 337.34, 53.15; tgs[tgn]=3000; tgn=tgn+1 -- 0038 tgx[tgn],tgy[tgn],tgz[tgn]= -1609.28, 337.64, 82.59; tgs[tgn]=3000; tgn=tgn+1 -- 0039 tgx[tgn],tgy[tgn],tgz[tgn]= -1597.26, 342.71, 109.63; tgs[tgn]=3000; tgn=tgn+1 -- 0040 tgx[tgn],tgy[tgn],tgz[tgn]= -1654.29, 359.04, 202.07; tgs[tgn]=3000; tgn=tgn+1 -- 0041 tgx[tgn],tgy[tgn],tgz[tgn]= -1667.57, 363.83, 226.13; tgs[tgn]=3000; tgn=tgn+1 -- 0042 tgx[tgn],tgy[tgn],tgz[tgn]= -1667.58, 366.77, 248.04; tgs[tgn]=3000; tgn=tgn+1 -- 0043 tgx[tgn],tgy[tgn],tgz[tgn]= -1662.50, 370.14, 281.28; tgs[tgn]=3000; tgn=tgn+1 -- 0044 tgx[tgn],tgy[tgn],tgz[tgn]= -1646.13, 373.59, 302.62; tgs[tgn]=3000; tgn=tgn+1 -- 0045 tgx[tgn],tgy[tgn],tgz[tgn]= -1620.81, 377.64, 319.63; tgs[tgn]=3000; tgn=tgn+1 -- 0046 tgx[tgn],tgy[tgn],tgz[tgn]= -1585.47, 384.19, 324.80; tgs[tgn]=3000; tgn=tgn+1 -- 0047 tgx[tgn],tgy[tgn],tgz[tgn]= -1549.08, 393.29, 310.33; tgs[tgn]=3000; tgn=tgn+1 -- 0048 tgx[tgn],tgy[tgn],tgz[tgn]= -1496.85, 413.35, 233.44; tgs[tgn]=3000; tgn=tgn+1 -- 0049 tgx[tgn],tgy[tgn],tgz[tgn]= -1474.86, 417.94, 218.09; tgs[tgn]=3000; tgn=tgn+1 -- 0050 tgx[tgn],tgy[tgn],tgz[tgn]= -1443.88, 422.78, 207.28; tgs[tgn]=3000; tgn=tgn+1 -- 0051 tgx[tgn],tgy[tgn],tgz[tgn]= -1411.73, 426.51, 212.94; tgs[tgn]=3000; tgn=tgn+1 -- 0052 tgx[tgn],tgy[tgn],tgz[tgn]= -1388.71, 428.74, 228.03; tgs[tgn]=3000; tgn=tgn+1 -- 0053 tgx[tgn],tgy[tgn],tgz[tgn]= -1371.48, 430.50, 253.75; tgs[tgn]=3000; tgn=tgn+1 -- 0054 tgx[tgn],tgy[tgn],tgz[tgn]= -1367.90, 431.42, 281.85; tgs[tgn]=3000; tgn=tgn+1 -- 0055 tgx[tgn],tgy[tgn],tgz[tgn]= -1386.32, 435.75, 347.69; tgs[tgn]=3000; tgn=tgn+1 -- 0056 tgx[tgn],tgy[tgn],tgz[tgn]= -1437.41, 435.74, 496.73; tgs[tgn]=3001; tgn=tgn+1 -- 0057 tgx[tgn],tgy[tgn],tgz[tgn]= -1759.33, 428.91, 934.55; tgs[tgn]=3001; tgn=tgn+1 -- 0058 tgx[tgn],tgy[tgn],tgz[tgn]= -1862.82, 421.32, 1061.75; tgs[tgn]=3001; tgn=tgn+1 -- 0059 tgx[tgn],tgy[tgn],tgz[tgn]= -1944.68, 414.05, 1148.43; tgs[tgn]=3001; tgn=tgn+1 -- 0060 tgx[tgn],tgy[tgn],tgz[tgn]= -2089.79, 399.32, 1272.92; tgs[tgn]=3001; tgn=tgn+1 -- 0061 tgx[tgn],tgy[tgn],tgz[tgn]= -2227.64, 385.38, 1364.04; tgs[tgn]=3001; tgn=tgn+1 -- 0062 tgx[tgn],tgy[tgn],tgz[tgn]= -2383.89, 370.69, 1442.95; tgs[tgn]=3001; tgn=tgn+1 -- 0063 tgx[tgn],tgy[tgn],tgz[tgn]= -2597.45, 351.70, 1517.44; tgs[tgn]=3001; tgn=tgn+1 -- 0064 tgx[tgn],tgy[tgn],tgz[tgn]= -2806.10, 331.68, 1557.02; tgs[tgn]=3001; tgn=tgn+1 -- 0065 tgx[tgn],tgy[tgn],tgz[tgn]= -3146.27, 324.96, 1573.07; tgs[tgn]=3001; tgn=tgn+1 -- 0066 tgx[tgn],tgy[tgn],tgz[tgn]= -3482.37, 324.66, 1579.26; tgs[tgn]=3000; tgn=tgn+1 -- 0067 tgx[tgn],tgy[tgn],tgz[tgn]= -3711.69, 324.45, 1567.87; tgs[tgn]=3000; tgn=tgn+1 -- 0068 tgx[tgn],tgy[tgn],tgz[tgn]= -3892.58, 324.35, 1511.99; tgs[tgn]= 200; tgn=tgn+1 -- 0069 tgx[tgn],tgy[tgn],tgz[tgn]= -3995.69, 324.28, 1446.07; tgs[tgn]= 200; tgn=tgn+1 -- 0070 tgx[tgn],tgy[tgn],tgz[tgn]= -4124.82, 301.39, 1360.79; tgs[tgn]= 200; tgn=tgn+1 -- 0071 tgx[tgn],tgy[tgn],tgz[tgn]= -4141.73, 301.39, 1368.77; tgs[tgn]= 200; tgn=tgn+1 -- 0072 tgx[tgn],tgy[tgn],tgz[tgn]= -4162.11, 301.40, 1426.42; tgs[tgn]= 20; tgn=tgn+1 -- 0073 tgx[tgn],tgy[tgn],tgz[tgn]= -4252.12, 301.39, 1550.63; tgs[tgn]=3001; tgn=tgn+1 -- 0074 tgx[tgn],tgy[tgn],tgz[tgn]= -4558.04, 300.04, 1565.28; tgs[tgn]=3001; tgn=tgn+1 -- 0075 tgx[tgn],tgy[tgn],tgz[tgn]= -4569.74, 298.82, 872.45; tgs[tgn]=3001; tgn=tgn+1 -- 0076 tgx[tgn],tgy[tgn],tgz[tgn]= -4654.13, 296.31, 849.30; tgs[tgn]=3000; tgn=tgn+1 -- 0077 tgx[tgn],tgy[tgn],tgz[tgn]= -4743.14, 287.45, 882.27; tgs[tgn]=3000; tgn=tgn+1 -- 0078 tgx[tgn],tgy[tgn],tgz[tgn]= -4797.13, 275.79, 965.48; tgs[tgn]=3000; tgn=tgn+1 -- 0079 tgx[tgn],tgy[tgn],tgz[tgn]= -4792.81, 146.85, 1629.20; tgs[tgn]=3001; tgn=tgn+1 -- 0080 tgx[tgn],tgy[tgn],tgz[tgn]= -4785.44, 84.73, 1948.43; tgs[tgn]=3001; tgn=tgn+1 -- 0081 tgx[tgn],tgy[tgn],tgz[tgn]= -4666.07, 11.69, 2489.10; tgs[tgn]=3001; tgn=tgn+1 -- 0082 tgx[tgn],tgy[tgn],tgz[tgn]= -4671.51, 10.23, 2779.51; tgs[tgn]=3001; tgn=tgn+1 -- 0083 tgx[tgn],tgy[tgn],tgz[tgn]= -4483.23, 10.22, 2787.20; tgs[tgn]=3001; tgn=tgn+1 -- 0084 tgx[tgn],tgy[tgn],tgz[tgn]= -4176.74, 10.23, 2796.53; tgs[tgn]=3001; tgn=tgn+1 -- 0085 tgx[tgn],tgy[tgn],tgz[tgn]= -4151.72, 10.22, 2540.85; tgs[tgn]=3001; tgn=tgn+1 -- 0086 tgx[tgn],tgy[tgn],tgz[tgn]= -4632.65, 10.22, 2527.84; tgs[tgn]=3001; tgn=tgn+1 -- 0087 tgx[tgn],tgy[tgn],tgz[tgn]= -4789.43, 82.82, 1958.40; tgs[tgn]=3001; tgn=tgn+1 -- 0088 tgx[tgn],tgy[tgn],tgz[tgn]= -4789.28, 275.59, 967.12; tgs[tgn]=3000; tgn=tgn+1 -- 0089 tgx[tgn],tgy[tgn],tgz[tgn]= -4738.61, 286.58, 892.25; tgs[tgn]=3000; tgn=tgn+1 -- 0090 tgx[tgn],tgy[tgn],tgz[tgn]= -4653.33, 296.28, 859.94; tgs[tgn]=3000; tgn=tgn+1 -- 0091 tgx[tgn],tgy[tgn],tgz[tgn]= -4535.40, 298.82, 851.39; tgs[tgn]=3001; tgn=tgn+1 -- 0092 tgx[tgn],tgy[tgn],tgz[tgn]= -4098.27, 298.83, 845.32; tgs[tgn]=3001; tgn=tgn+1 -- 0093 tgx[tgn],tgy[tgn],tgz[tgn]= -4075.40, 301.33, 1272.76; tgs[tgn]= 500; tgn=tgn+1 -- 0094 tgx[tgn],tgy[tgn],tgz[tgn]= -4101.95, 301.34, 1338.18; tgs[tgn]=3000; tgn=tgn+1 -- 0095 tgx[tgn],tgy[tgn],tgz[tgn]= -4380.58, 325.18, 1185.20; tgs[tgn]=3001; tgn=tgn+1 -- 0096 tgx[tgn],tgy[tgn],tgz[tgn]= -4380.59, 325.24, 1181.61; tgs[tgn]=3001; tgn=tgn+1 -- 0097 tgx[tgn],tgy[tgn],tgz[tgn]= -4456.87, 327.30, 1074.60; tgs[tgn]=3000; tgn=tgn+1 -- 0098 tgx[tgn],tgy[tgn],tgz[tgn]= -4511.71, 330.06, 975.48; tgs[tgn]=3000; tgn=tgn+1 -- 0099 tgx[tgn],tgy[tgn],tgz[tgn]= -4611.73, 345.87, 625.11; tgs[tgn]=3000; tgn=tgn+1 -- 0100 tgx[tgn],tgy[tgn],tgz[tgn]= -4657.07, 408.88, 186.60; tgs[tgn]=3000; tgn=tgn+1 -- 0101 tgx[tgn],tgy[tgn],tgz[tgn]= -4654.97, 423.53, 28.19; tgs[tgn]=3000; tgn=tgn+1 -- 0102 tgx[tgn],tgy[tgn],tgz[tgn]= -4635.46, 442.66, -177.76; tgs[tgn]=3000; tgn=tgn+1 -- 0103 tgx[tgn],tgy[tgn],tgz[tgn]= -4607.60, 459.62, -359.18; tgs[tgn]=3000; tgn=tgn+1 -- 0104 tgx[tgn],tgy[tgn],tgz[tgn]= -4416.60, 470.85, -912.97; tgs[tgn]=3000; tgn=tgn+1 -- 0105 tgx[tgn],tgy[tgn],tgz[tgn]= -4320.86, 475.34, -1120.37; tgs[tgn]=3000; tgn=tgn+1 -- 0106 tgx[tgn],tgy[tgn],tgz[tgn]= -4293.53, 476.82, -1183.33; tgs[tgn]=3000; tgn=tgn+1 -- 0107 tgx[tgn],tgy[tgn],tgz[tgn]= -4116.28, 466.25, -1406.51; tgs[tgn]=3000; tgn=tgn+1 -- 0108 tgx[tgn],tgy[tgn],tgz[tgn]= -3885.81, 449.84, -1655.15; tgs[tgn]=3000; tgn=tgn+1 -- 0109 tgx[tgn],tgy[tgn],tgz[tgn]= -3552.55, 421.05, -1960.90; tgs[tgn]=3000; tgn=tgn+1 -- 0110 tgx[tgn],tgy[tgn],tgz[tgn]= -3450.72, 418.75, -2075.12; tgs[tgn]=3000; tgn=tgn+1 -- 0111 tgx[tgn],tgy[tgn],tgz[tgn]= -2908.27, 418.73, -2664.76; tgs[tgn]=3001; tgn=tgn+1 -- 0112 tgx[tgn],tgy[tgn],tgz[tgn]= -2379.09, 418.71, -3270.42; tgs[tgn]=3001; tgn=tgn+1 -- 0113 tgx[tgn],tgy[tgn],tgz[tgn]= -2236.43, 418.58, -3398.65; tgs[tgn]=3001; tgn=tgn+1 -- 0114 tgx[tgn],tgy[tgn],tgz[tgn]= -2068.66, 418.44, -3503.05; tgs[tgn]=3001; tgn=tgn+1 -- 0115 tgx[tgn],tgy[tgn],tgz[tgn]= -1891.07, 418.32, -3576.21; tgs[tgn]=3001; tgn=tgn+1 -- 0116 tgx[tgn],tgy[tgn],tgz[tgn]= -1726.19, 418.20, -3616.28; tgs[tgn]=3001; tgn=tgn+1 -- 0117 tgx[tgn],tgy[tgn],tgz[tgn]= -1561.44, 418.09, -3632.17; tgs[tgn]=3001; tgn=tgn+1 -- 0118 tgx[tgn],tgy[tgn],tgz[tgn]= -1432.04, 417.29, -3621.28; tgs[tgn]=3001; tgn=tgn+1 -- 0119 tgx[tgn],tgy[tgn],tgz[tgn]= -1235.54, 416.58, -3596.78; tgs[tgn]=3001; tgn=tgn+1 -- 0120 tgx[tgn],tgy[tgn],tgz[tgn]= -1080.96, 415.84, -3549.57; tgs[tgn]=3001; tgn=tgn+1 -- 0121 tgx[tgn],tgy[tgn],tgz[tgn]= -984.16, 415.05, -3473.55; tgs[tgn]=3001; tgn=tgn+1 -- 0122 tgx[tgn],tgy[tgn],tgz[tgn]= -912.97, 414.38, -3395.31; tgs[tgn]=3001; tgn=tgn+1 -- 0123 tgx[tgn],tgy[tgn],tgz[tgn]= -855.13, 414.83, -3307.05; tgs[tgn]=3001; tgn=tgn+1 -- 0124 tgx[tgn],tgy[tgn],tgz[tgn]= -813.87, 415.26, -3216.26; tgs[tgn]=3001; tgn=tgn+1 -- 0125 tgx[tgn],tgy[tgn],tgz[tgn]= -789.05, 415.71, -3118.93; tgs[tgn]=2000; tgn=tgn+1 -- 0126 tgx[tgn],tgy[tgn],tgz[tgn]= -774.55, 416.16, -3015.10; tgs[tgn]=2000; tgn=tgn+1 -- 0127 tgx[tgn],tgy[tgn],tgz[tgn]= -772.21, 416.85, -2847.65; tgs[tgn]=2000; tgn=tgn+1 -- 0128 tgx[tgn],tgy[tgn],tgz[tgn]= -778.11, 416.92, -2753.12; tgs[tgn]=2000; tgn=tgn+1 -- 0129 tgx[tgn],tgy[tgn],tgz[tgn]= -793.66, 416.92, -2657.74; tgs[tgn]=2000; tgn=tgn+1 -- 0130 tgx[tgn],tgy[tgn],tgz[tgn]= -796.93, 405.95, -2580.87; tgs[tgn]=3000; tgn=tgn+1 -- 0131 tgx[tgn],tgy[tgn],tgz[tgn]= -789.45, 386.39, -2478.27; tgs[tgn]=3001; tgn=tgn+1 -- 0132 tgx[tgn],tgy[tgn],tgz[tgn]= -762.12, 375.44, -2424.63; tgs[tgn]=3001; tgn=tgn+1 -- 0133 tgx[tgn],tgy[tgn],tgz[tgn]= -715.91, 365.42, -2397.18; tgs[tgn]=3001; tgn=tgn+1 -- 0134 tgx[tgn],tgy[tgn],tgz[tgn]= -612.23, 358.67, -2420.28; tgs[tgn]=3001; tgn=tgn+1 -- 0135 tgx[tgn],tgy[tgn],tgz[tgn]= -369.09, 359.43, -2409.29; tgs[tgn]=3001; tgn=tgn+1 -- 0136 tgx[tgn],tgy[tgn],tgz[tgn]= -348.96, 359.43, -2692.59; tgs[tgn]=3001; tgn=tgn+1 -- 0137 tgx[tgn],tgy[tgn],tgz[tgn]= -649.86, 359.42, -2702.92; tgs[tgn]=3001; tgn=tgn+1 -- 0138 tgx[tgn],tgy[tgn],tgz[tgn]= -650.99, 358.89, -2456.33; tgs[tgn]= 500; tgn=tgn+1 -- 0139 tgx[tgn],tgy[tgn],tgz[tgn]= -844.11, 358.87, -2412.94; tgs[tgn]= 500; tgn=tgn+1 -- 0140 tgx[tgn],tgy[tgn],tgz[tgn]= -851.91, 362.06, -2674.30; tgs[tgn]=3000; tgn=tgn+1 -- 0141 tgx[tgn],tgy[tgn],tgz[tgn]= -1083.47, 358.71, -2693.64; tgs[tgn]=3000; tgn=tgn+1 -- 0142 tgx[tgn],tgy[tgn],tgz[tgn]= -1203.69, 338.31, -2684.88; tgs[tgn]=3000; tgn=tgn+1 -- 0143 tgx[tgn],tgy[tgn],tgz[tgn]= -1330.26, 312.99, -2619.50; tgs[tgn]=3001; tgn=tgn+1 -- 0144 tgx[tgn],tgy[tgn],tgz[tgn]= -1408.80, 291.53, -2529.40; tgs[tgn]=3001; tgn=tgn+1 -- 0145 tgx[tgn],tgy[tgn],tgz[tgn]= -1556.09, 233.77, -2273.38; tgs[tgn]=3001; tgn=tgn+1 -- 0146 tgx[tgn],tgy[tgn],tgz[tgn]= -2041.92, 149.79, -1433.27; tgs[tgn]=3000; tgn=tgn+1 -- 0147 tgx[tgn],tgy[tgn],tgz[tgn]= -1873.42, 144.91, -1300.12; tgs[tgn]=3001; tgn=tgn+1 -- 0148 tgx[tgn],tgy[tgn],tgz[tgn]= -1698.83, 127.25, -1198.98; tgs[tgn]=3001; tgn=tgn+1 -- 0149 tgx[tgn],tgy[tgn],tgz[tgn]= -692.64, 41.31, -466.06; tgs[tgn]=3001; tgn=tgn+1 -- 0150 tgx[tgn],tgy[tgn],tgz[tgn]= -399.55, 31.02, -234.07; tgs[tgn]=3001; tgn=tgn+1 -- 0151 tgx[tgn],tgy[tgn],tgz[tgn]= -266.34, 31.02, -413.54; tgs[tgn]=3001; tgn=tgn+1 -- 0152 tgx[tgn],tgy[tgn],tgz[tgn]= -134.31, 30.84, -486.94; tgs[tgn]=3001; tgn=tgn+1 -- 0153 tgx[tgn],tgy[tgn],tgz[tgn]= 77.94, 28.73, -569.00; tgs[tgn]=3001; tgn=tgn+1 -- 0154 tgx[tgn],tgy[tgn],tgz[tgn]= 209.65, 28.68, -573.17; tgs[tgn]=3001; tgn=tgn+1 -- 0155 tgx[tgn],tgy[tgn],tgz[tgn]= 482.67, 17.51, -555.88; tgs[tgn]=3001; tgn=tgn+1 -- 0156 tgx[tgn],tgy[tgn],tgz[tgn]= 663.13, 17.47, -535.31; tgs[tgn]=3001; tgn=tgn+1 -- 0157 tgx[tgn],tgy[tgn],tgz[tgn]= 758.42, 17.48, -493.16; tgs[tgn]=3001; tgn=tgn+1 -- 0158 tgx[tgn],tgy[tgn],tgz[tgn]= 923.81, 17.72, -309.99; tgs[tgn]=3001; tgn=tgn+1 -- 0159 tgx[tgn],tgy[tgn],tgz[tgn]= 996.24, 17.72, -189.35; tgs[tgn]=3001; tgn=tgn+1 -- 0160 tgx[tgn],tgy[tgn],tgz[tgn]= 1016.06, 18.23, -22.09; tgs[tgn]=3001; tgn=tgn+1 -- 0161 tgx[tgn],tgy[tgn],tgz[tgn]= 1015.62, 18.24, 139.17; tgs[tgn]=3001; tgn=tgn+1 -- 0162 tgx[tgn],tgy[tgn],tgz[tgn]= 999.28, 19.22, 205.14; tgs[tgn]=3001; tgn=tgn+1 -- 0163 tgx[tgn],tgy[tgn],tgz[tgn]= 882.23, 19.22, 420.19; tgs[tgn]=3001; tgn=tgn+1 -- 0164 tgx[tgn],tgy[tgn],tgz[tgn]= 659.90, 20.22, 583.27; tgs[tgn]=3001; tgn=tgn+1 -- 0165 tgx[tgn],tgy[tgn],tgz[tgn]= 574.93, 20.22, 693.06; tgs[tgn]=3001; tgn=tgn+1 -- 0166 tgx[tgn],tgy[tgn],tgz[tgn]= 495.18, 20.22, 833.85; tgs[tgn]=3001; tgn=tgn+1 -- 0167 tgx[tgn],tgy[tgn],tgz[tgn]= 490.78, 20.22, 911.99; tgs[tgn]=3001; tgn=tgn+1 -- 0168 tgx[tgn],tgy[tgn],tgz[tgn]= 566.80, 20.22, 1038.09; tgs[tgn]=3000; tgn=tgn+1 -- 0169 tgx[tgn],tgy[tgn],tgz[tgn]= 601.54, 20.22, 1111.00; tgs[tgn]=3000; tgn=tgn+1 -- 0170 tgx[tgn],tgy[tgn],tgz[tgn]= 613.91, 20.22, 1170.95; tgs[tgn]=1000; tgn=tgn+1 -- 0171 tgx[tgn],tgy[tgn],tgz[tgn]= 545.09, 20.22, 1250.83; tgs[tgn]= 150; tgn=tgn+1 -- 0172 tgx[tgn],tgy[tgn],tgz[tgn]= 391.42, 20.18, 1277.79; tgs[tgn]= 150; tgn=tgn+1 -- 0173 tgx[tgn],tgy[tgn],tgz[tgn]= 392.46, 22.40, 1384.50; tgs[tgn]=2999; tgn=tgn+1 -- 0174 tgx[tgn],tgy[tgn],tgz[tgn]= 401.01, 26.84, 1501.82; tgs[tgn]=2999; tgn=tgn+1 -- 0175 tgx[tgn],tgy[tgn],tgz[tgn]= 380.49, 29.99, 1555.08; tgs[tgn]=2999; tgn=tgn+1 -- 0176 tgx[tgn],tgy[tgn],tgz[tgn]= 353.55, 32.69, 1587.39; tgs[tgn]=2999; tgn=tgn+1 -- 0177 tgx[tgn],tgy[tgn],tgz[tgn]= 319.17, 35.22, 1602.19; tgs[tgn]=2999; tgn=tgn+1 -- 0178 tgx[tgn],tgy[tgn],tgz[tgn]= 229.25, 40.33, 1591.17; tgs[tgn]=2999; tgn=tgn+1 -- 0179 tgx[tgn],tgy[tgn],tgz[tgn]= 188.23, 42.68, 1614.27; tgs[tgn]=2999; tgn=tgn+1 -- 0180 tgx[tgn],tgy[tgn],tgz[tgn]= 154.32, 42.72, 1643.31; tgs[tgn]=2999; tgn=tgn+1 -- 0181 tgx[tgn],tgy[tgn],tgz[tgn]= 138.45, 42.72, 1682.45; tgs[tgn]=2999; tgn=tgn+1 -- 0182 tgx[tgn],tgy[tgn],tgz[tgn]= 139.03, 42.72, 1728.10; tgs[tgn]=2999; tgn=tgn+1 -- 0183 tgx[tgn],tgy[tgn],tgz[tgn]= 160.61, 42.72, 1761.79; tgs[tgn]=2999; tgn=tgn+1 -- 0184 tgx[tgn],tgy[tgn],tgz[tgn]= 199.57, 42.72, 1773.25; tgs[tgn]=2999; tgn=tgn+1 -- 0185 tgx[tgn],tgy[tgn],tgz[tgn]= 681.58, 42.72, 1515.98; tgs[tgn]= 150; tgn=tgn+1 -- 0186 tgx[tgn],tgy[tgn],tgz[tgn]= 701.93, 42.72, 1483.26; tgs[tgn]=2999; tgn=tgn+1 -- 0187* tgx[tgn],tgy[tgn],tgz[tgn]= 715.69, 42.72, 1440.70; tgs[tgn]=2999; tgn=tgn+1 -- 0188 tgx[tgn],tgy[tgn],tgz[tgn]= 737.37, 53.43, 1241.73; tgs[tgn]=2999; tgn=tgn+1 -- 0189 tgx[tgn],tgy[tgn],tgz[tgn]= 753.97, 60.10, 1207.48; tgs[tgn]=2999; tgn=tgn+1 -- 0190 tgx[tgn],tgy[tgn],tgz[tgn]= 785.10, 65.16, 1180.34; tgs[tgn]=2999; tgn=tgn+1 -- 0191 tgx[tgn],tgy[tgn],tgz[tgn]= 824.12, 70.06, 1172.12; tgs[tgn]=2999; tgn=tgn+1 -- 0192 tgx[tgn],tgy[tgn],tgz[tgn]= 863.05, 75.09, 1183.68; tgs[tgn]=2999; tgn=tgn+1 -- 0193** tgx[tgn],tgy[tgn],tgz[tgn]= 890.91, 82.59, 1212.95; tgs[tgn]=2999; tgn=tgn+1 -- 0194 tgx[tgn],tgy[tgn],tgz[tgn]= 914.18, 89.77, 1269.43; tgs[tgn]=2999; tgn=tgn+1 -- 0195 tgx[tgn],tgy[tgn],tgz[tgn]= 973.44, 100.21, 1288.12; tgs[tgn]=2999; tgn=tgn+1 -- 0196 tgx[tgn],tgy[tgn],tgz[tgn]= 1007.45, 105.25, 1271.21; tgs[tgn]=2999; tgn=tgn+1 -- 0197 tgx[tgn],tgy[tgn],tgz[tgn]= 1022.98, 112.79, 1233.65; tgs[tgn]=2999; tgn=tgn+1 -- 0198 tgx[tgn],tgy[tgn],tgz[tgn]= 1008.96, 117.70, 1195.22; tgs[tgn]=2999; tgn=tgn+1 -- 0199 tgx[tgn],tgy[tgn],tgz[tgn]= 905.37, 138.43, 1050.59; tgs[tgn]=2999; tgn=tgn+1 -- 0200 tgx[tgn],tgy[tgn],tgz[tgn]= 814.95, 164.28, 866.85; tgs[tgn]=2999; tgn=tgn+1 -- 0201 tgx[tgn],tgy[tgn],tgz[tgn]= 819.30, 170.14, 815.41; tgs[tgn]=2999; tgn=tgn+1 -- 0202 tgx[tgn],tgy[tgn],tgz[tgn]= 839.30, 174.94, 776.22; tgs[tgn]=2999; tgn=tgn+1 -- 0203 tgx[tgn],tgy[tgn],tgz[tgn]= 877.83, 180.11, 747.92; tgs[tgn]=2999; tgn=tgn+1 -- 0204 tgx[tgn],tgy[tgn],tgz[tgn]= 923.57, 187.61, 740.14; tgs[tgn]=2999; tgn=tgn+1 -- 0205 tgx[tgn],tgy[tgn],tgz[tgn]= 968.86, 192.81, 752.85; tgs[tgn]=2999; tgn=tgn+1 -- 0206 tgx[tgn],tgy[tgn],tgz[tgn]= 1004.58, 200.25, 781.56; tgs[tgn]=2999; tgn=tgn+1 -- 0207 tgx[tgn],tgy[tgn],tgz[tgn]= 1098.55, 243.60, 899.39; tgs[tgn]=2999; tgn=tgn+1 -- 0208 tgx[tgn],tgy[tgn],tgz[tgn]= 1118.96, 247.64, 934.15; tgs[tgn]=2000; tgn=tgn+1 -- 0209* tgx[tgn],tgy[tgn],tgz[tgn]= 1135.98, 245.27, 981.41; tgs[tgn]=2000; tgn=tgn+1 -- 0210 tgx[tgn],tgy[tgn],tgz[tgn]= 1162.97, 228.34, 1092.01; tgs[tgn]=2999; tgn=tgn+1 -- 0211 tgx[tgn],tgy[tgn],tgz[tgn]= 1247.37, 207.87, 1249.59; tgs[tgn]=2999; tgn=tgn+1 -- 0212 tgx[tgn],tgy[tgn],tgz[tgn]= 1257.83, 201.45, 1437.06; tgs[tgn]=2999; tgn=tgn+1 -- 0213 tgx[tgn],tgy[tgn],tgz[tgn]= 1280.28, 211.41, 1496.74; tgs[tgn]=2999; tgn=tgn+1 -- 0214 tgx[tgn],tgy[tgn],tgz[tgn]= 1331.56, 241.04, 1574.95; tgs[tgn]=2999; tgn=tgn+1 -- 0215 tgx[tgn],tgy[tgn],tgz[tgn]= 1468.56, 292.19, 1667.60; tgs[tgn]=2999; tgn=tgn+1 -- 0216 tgx[tgn],tgy[tgn],tgz[tgn]= 1505.26, 313.06, 1722.47; tgs[tgn]=2999; tgn=tgn+1 -- 0217 tgx[tgn],tgy[tgn],tgz[tgn]= 1510.59, 332.99, 1784.07; tgs[tgn]=2999; tgn=tgn+1 -- 0218 tgx[tgn],tgy[tgn],tgz[tgn]= 1492.05, 354.81, 1850.26; tgs[tgn]=2999; tgn=tgn+1 -- 0219 tgx[tgn],tgy[tgn],tgz[tgn]= 1380.24, 444.13, 2116.65; tgs[tgn]=2999; tgn=tgn+1 -- 0220 tgx[tgn],tgy[tgn],tgz[tgn]= 1330.94, 455.23, 2209.40; tgs[tgn]=3000; tgn=tgn+1 -- 0221 tgx[tgn],tgy[tgn],tgz[tgn]= 1257.01, 455.22, 2352.67; tgs[tgn]=1000; tgn=tgn+1 -- 0222 tgx[tgn],tgy[tgn],tgz[tgn]= 1259.85, 455.22, 2393.00; tgs[tgn]=3001; tgn=tgn+1 -- 0223 tgx[tgn],tgy[tgn],tgz[tgn]= 1281.84, 455.22, 2427.22; tgs[tgn]=3001; tgn=tgn+1 -- 0224 tgx[tgn],tgy[tgn],tgz[tgn]= 1328.46, 455.22, 2449.17; tgs[tgn]=3001; tgn=tgn+1 -- 0225 tgx[tgn],tgy[tgn],tgz[tgn]= 1377.46, 455.22, 2440.44; tgs[tgn]=3001; tgn=tgn+1 -- 0226 tgx[tgn],tgy[tgn],tgz[tgn]= 1410.59, 455.22, 2405.32; tgs[tgn]=3001; tgn=tgn+1 -- 0227 tgx[tgn],tgy[tgn],tgz[tgn]= 1418.69, 455.22, 2358.88; tgs[tgn]= 150; tgn=tgn+1 -- 0228 tgx[tgn],tgy[tgn],tgz[tgn]= 1402.63, 455.22, 2320.96; tgs[tgn]= 150; tgn=tgn+1 -- 0229 tgx[tgn],tgy[tgn],tgz[tgn]= 1334.55, 455.22, 2229.69; tgs[tgn]= 150; tgn=tgn+1 -- 0230 tgx[tgn],tgy[tgn],tgz[tgn]= 1352.89, 453.07, 2168.06; tgs[tgn]= 150; tgn=tgn+1 -- 0231 tgx[tgn],tgy[tgn],tgz[tgn]= 1503.55, 345.25, 1822.58; tgs[tgn]= 999; tgn=tgn+1 -- 0232 tgx[tgn],tgy[tgn],tgz[tgn]= 1506.45, 326.27, 1763.50; tgs[tgn]= 999; tgn=tgn+1 -- 0233 tgx[tgn],tgy[tgn],tgz[tgn]= 1505.49, 313.01, 1720.96; tgs[tgn]= 999; tgn=tgn+1 -- 0234 tgx[tgn],tgy[tgn],tgz[tgn]= 1479.83, 297.81, 1682.16; tgs[tgn]= 999; tgn=tgn+1 -- 0235 tgx[tgn],tgy[tgn],tgz[tgn]= 1438.47, 279.66, 1644.80; tgs[tgn]= 999; tgn=tgn+1 -- 0236 tgx[tgn],tgy[tgn],tgz[tgn]= 1327.40, 240.02, 1572.36; tgs[tgn]= 999; tgn=tgn+1 -- 0237 tgx[tgn],tgy[tgn],tgz[tgn]= 1273.12, 210.45, 1496.08; tgs[tgn]=2999; tgn=tgn+1 -- 0238 tgx[tgn],tgy[tgn],tgz[tgn]= 1258.62, 202.96, 1450.88; tgs[tgn]=2999; tgn=tgn+1 -- 0239 tgx[tgn],tgy[tgn],tgz[tgn]= 1256.86, 205.00, 1277.53; tgs[tgn]=2999; tgn=tgn+1 -- 0240 tgx[tgn],tgy[tgn],tgz[tgn]= 1177.91, 222.28, 1128.21; tgs[tgn]=2999; tgn=tgn+1 -- 0241 tgx[tgn],tgy[tgn],tgz[tgn]= 1133.20, 244.98, 984.95; tgs[tgn]=2999; tgn=tgn+1 -- 0242 tgx[tgn],tgy[tgn],tgz[tgn]= 1101.25, 243.94, 901.51; tgs[tgn]= 500; tgn=tgn+1 -- 0243* tgx[tgn],tgy[tgn],tgz[tgn]= 1014.97, 202.23, 783.52; tgs[tgn]= 500; tgn=tgn+1 -- 0244 tgx[tgn],tgy[tgn],tgz[tgn]= 968.80, 192.71, 751.33; tgs[tgn]=2999; tgn=tgn+1 -- 0245 tgx[tgn],tgy[tgn],tgz[tgn]= 924.04, 187.65, 737.08; tgs[tgn]=2999; tgn=tgn+1 -- 0246 tgx[tgn],tgy[tgn],tgz[tgn]= 879.22, 180.32, 746.98; tgs[tgn]=2999; tgn=tgn+1 -- 0247 tgx[tgn],tgy[tgn],tgz[tgn]= 842.08, 175.64, 769.87; tgs[tgn]=2999; tgn=tgn+1 -- 0248 tgx[tgn],tgy[tgn],tgz[tgn]= 816.43, 170.37, 812.33; tgs[tgn]=2999; tgn=tgn+1 -- 0249 tgx[tgn],tgy[tgn],tgz[tgn]= 813.57, 166.00, 853.93; tgs[tgn]=2999; tgn=tgn+1 -- 0250 tgx[tgn],tgy[tgn],tgz[tgn]= 863.19, 146.58, 988.35; tgs[tgn]=2999; tgn=tgn+1 -- 0251 tgx[tgn],tgy[tgn],tgz[tgn]= 1008.99, 118.36, 1187.07; tgs[tgn]=2999; tgn=tgn+1 -- 0252 tgx[tgn],tgy[tgn],tgz[tgn]= 1025.03, 112.90, 1232.80; tgs[tgn]=2999; tgn=tgn+1 -- 0253 tgx[tgn],tgy[tgn],tgz[tgn]= 1011.25, 105.42, 1273.23; tgs[tgn]=2999; tgn=tgn+1 -- 0254 tgx[tgn],tgy[tgn],tgz[tgn]= 974.85, 100.38, 1290.30; tgs[tgn]=2999; tgn=tgn+1 -- 0255 tgx[tgn],tgy[tgn],tgz[tgn]= 933.41, 92.31, 1280.02; tgs[tgn]=2999; tgn=tgn+1 -- 0256 tgx[tgn],tgy[tgn],tgz[tgn]= 905.00, 83.19, 1210.28; tgs[tgn]=2999; tgn=tgn+1 -- 0257 tgx[tgn],tgy[tgn],tgz[tgn]= 860.28, 74.74, 1181.77; tgs[tgn]=2999; tgn=tgn+1 -- 0258 tgx[tgn],tgy[tgn],tgz[tgn]= 827.90, 70.50, 1170.46; tgs[tgn]=2999; tgn=tgn+1 -- 0259 tgx[tgn],tgy[tgn],tgz[tgn]= 785.35, 65.43, 1175.73; tgs[tgn]=2999; tgn=tgn+1 -- 0260 tgx[tgn],tgy[tgn],tgz[tgn]= 754.26, 60.70, 1202.18; tgs[tgn]=2999; tgn=tgn+1 -- 0261 tgx[tgn],tgy[tgn],tgz[tgn]= 736.88, 53.15, 1243.14; tgs[tgn]=1999; tgn=tgn+1 -- 0262 tgx[tgn],tgy[tgn],tgz[tgn]= 724.16, 42.73, 1439.63; tgs[tgn]= 999; tgn=tgn+1 -- 0263 tgx[tgn],tgy[tgn],tgz[tgn]= 705.93, 42.73, 1485.83; tgs[tgn]= 500; tgn=tgn+1 -- 0264 tgx[tgn],tgy[tgn],tgz[tgn]= 671.77, 42.73, 1522.51; tgs[tgn]= 150; tgn=tgn+1 -- 0265 tgx[tgn],tgy[tgn],tgz[tgn]= 352.83, 46.19, 1704.01; tgs[tgn]= 50; tgn=tgn+1 -- 0266* tgx[tgn],tgy[tgn],tgz[tgn]= 213.12, 42.72, 1777.03; tgs[tgn]= 50; tgn=tgn+1 -- 0267 tgx[tgn],tgy[tgn],tgz[tgn]= 160.86, 42.73, 1762.93; tgs[tgn]=2999; tgn=tgn+1 -- 0268 tgx[tgn],tgy[tgn],tgz[tgn]= 139.70, 42.72, 1728.52; tgs[tgn]=2999; tgn=tgn+1 -- 0269 tgx[tgn],tgy[tgn],tgz[tgn]= 138.47, 42.72, 1684.57; tgs[tgn]=2999; tgn=tgn+1 -- 0270 tgx[tgn],tgy[tgn],tgz[tgn]= 154.23, 42.72, 1644.08; tgs[tgn]=2999; tgn=tgn+1 -- 0271 tgx[tgn],tgy[tgn],tgz[tgn]= 187.47, 42.72, 1615.88; tgs[tgn]=2999; tgn=tgn+1 -- 0272 tgx[tgn],tgy[tgn],tgz[tgn]= 229.47, 40.32, 1607.72; tgs[tgn]=2999; tgn=tgn+1 -- 0273 tgx[tgn],tgy[tgn],tgz[tgn]= 309.53, 35.99, 1609.44; tgs[tgn]=2999; tgn=tgn+1 -- 0274 tgx[tgn],tgy[tgn],tgz[tgn]= 351.42, 32.78, 1587.04; tgs[tgn]=2999; tgn=tgn+1 -- 0275 tgx[tgn],tgy[tgn],tgz[tgn]= 376.19, 30.18, 1556.76; tgs[tgn]=2999; tgn=tgn+1 -- 0276 tgx[tgn],tgy[tgn],tgz[tgn]= 385.48, 27.62, 1517.82; tgs[tgn]=1999; tgn=tgn+1 -- 0277* tgx[tgn],tgy[tgn],tgz[tgn]= 393.58, 22.56, 1403.55; tgs[tgn]= 999; tgn=tgn+1 -- 0278 tgx[tgn],tgy[tgn],tgz[tgn]= 386.11, 21.84, 1328.00; tgs[tgn]= 500; tgn=tgn+1 -- 0279 tgx[tgn],tgy[tgn],tgz[tgn]= 347.25, 20.17, 1293.44; tgs[tgn]=3000; tgn=tgn+1 -- 0280 tgx[tgn],tgy[tgn],tgz[tgn]= 301.02, 20.22, 1298.94; tgs[tgn]=3000; tgn=tgn+1 -- 0281 tgx[tgn],tgy[tgn],tgz[tgn]= 241.75, 20.22, 1278.48; tgs[tgn]=3000; tgn=tgn+1 -- 0282 tgx[tgn],tgy[tgn],tgz[tgn]= 9.91, 20.23, 1162.44; tgs[tgn]=3000; tgn=tgn+1 -- 0283 tgx[tgn],tgy[tgn],tgz[tgn]= -323.44, 22.17, 888.42; tgs[tgn]= 150; tgn=tgn+1 -- 0284 tgx[tgn],tgy[tgn],tgz[tgn]= -340.58, 23.41, 890.32; tgs[tgn]= 10; tgn=tgn+1 -- 0285 tgx[tgn],tgy[tgn],tgz[tgn]= -342.41, 80.83, 1335.19; tgs[tgn]=3001; tgn=tgn+1 -- 0286** tgx[tgn],tgy[tgn],tgz[tgn]= -310.35, 122.27, 1537.84; tgs[tgn]=3000; tgn=tgn+1 -- 0287 tgx[tgn],tgy[tgn],tgz[tgn]= -309.87, 149.39, 1745.68; tgs[tgn]= 150; tgn=tgn+1 -- 0288 tgx[tgn],tgy[tgn],tgz[tgn]= -396.50, 168.58, 1819.63; tgs[tgn]= 20; tgn=tgn+1 -- 0289 tgx[tgn],tgy[tgn],tgz[tgn]= -398.83, 170.15, 1796.03; tgs[tgn]= 150; tgn=tgn+1 -- 0290 tgx[tgn],tgy[tgn],tgz[tgn]= -425.82, 185.64, 1735.83; tgs[tgn]= 150; tgn=tgn+1 -- 0291 tgx[tgn],tgy[tgn],tgz[tgn]= -447.90, 238.88, 1417.42; tgs[tgn]= 200; tgn=tgn+1 -- 0292 tgx[tgn],tgy[tgn],tgz[tgn]= -479.93, 243.66, 1387.67; tgs[tgn]= 200; tgn=tgn+1 -- 0293 tgx[tgn],tgy[tgn],tgz[tgn]= -522.68, 248.34, 1395.39; tgs[tgn]= 200; tgn=tgn+1 -- 0294 tgx[tgn],tgy[tgn],tgz[tgn]= -537.79, 250.21, 1429.81; tgs[tgn]= 200; tgn=tgn+1 -- 0295 tgx[tgn],tgy[tgn],tgz[tgn]= -540.39, 265.70, 1543.67; tgs[tgn]=3000; tgn=tgn+1 -- 0296 tgx[tgn],tgy[tgn],tgz[tgn]= -536.05, 286.05, 1766.69; tgs[tgn]=3000; tgn=tgn+1 -- 0297 tgx[tgn],tgy[tgn],tgz[tgn]= -573.51, 290.20, 1792.11; tgs[tgn]=3000; tgn=tgn+1 -- 0298 tgx[tgn],tgy[tgn],tgz[tgn]= -603.94, 290.22, 1801.91; tgs[tgn]=3000; tgn=tgn+1 -- 0299 tgx[tgn],tgy[tgn],tgz[tgn]= -815.51, 305.13, 1792.48; tgs[tgn]=3000; tgn=tgn+1 -- 0300 tgx[tgn],tgy[tgn],tgz[tgn]= -1098.07, 327.24, 1742.42; tgs[tgn]=3000; tgn=tgn+1 -- 0301 tgx[tgn],tgy[tgn],tgz[tgn]= -1262.31, 333.83, 1642.57; tgs[tgn]= 150; tgn=tgn+1 -- 0302 tgx[tgn],tgy[tgn],tgz[tgn]= -1323.15, 333.83, 1563.52; tgs[tgn]= 20; tgn=tgn+1 -- 0303 tgx[tgn],tgy[tgn],tgz[tgn]= -1309.28, 333.83, 1522.35; tgs[tgn]=3000; tgn=tgn+1 -- 0304 tgx[tgn],tgy[tgn],tgz[tgn]= -1263.26, 333.83, 1531.78; tgs[tgn]=3000; tgn=tgn+1 -- 0305 tgx[tgn],tgy[tgn],tgz[tgn]= -1227.75, 333.83, 1601.59; tgs[tgn]=3000; tgn=tgn+1 -- 0306 tgx[tgn],tgy[tgn],tgz[tgn]= -1230.61, 333.83, 1654.70; tgs[tgn]=3000; tgn=tgn+1 -- 0307 tgx[tgn],tgy[tgn],tgz[tgn]= -1188.06, 333.59, 1702.26; tgs[tgn]=3000; tgn=tgn+1 -- 0308 tgx[tgn],tgy[tgn],tgz[tgn]= -837.63, 306.79, 1797.26; tgs[tgn]=3000; tgn=tgn+1 -- 0309 tgx[tgn],tgy[tgn],tgz[tgn]= -615.01, 291.07, 1820.06; tgs[tgn]= 150; tgn=tgn+1 -- 0310 tgx[tgn],tgy[tgn],tgz[tgn]= -547.36, 288.18, 1780.27; tgs[tgn]= 150; tgn=tgn+1 -- 0311 tgx[tgn],tgy[tgn],tgz[tgn]= -544.79, 268.78, 1607.72; tgs[tgn]=3000; tgn=tgn+1 -- 0312 tgx[tgn],tgy[tgn],tgz[tgn]= -544.66, 252.43, 1443.66; tgs[tgn]= 300; tgn=tgn+1 -- 0313 tgx[tgn],tgy[tgn],tgz[tgn]= -524.43, 248.10, 1383.82; tgs[tgn]= 250; tgn=tgn+1 -- 0314 tgx[tgn],tgy[tgn],tgz[tgn]= -460.45, 241.85, 1386.80; tgs[tgn]= 200; tgn=tgn+1 -- 0315 tgx[tgn],tgy[tgn],tgz[tgn]= -443.95, 237.79, 1425.83; tgs[tgn]= 150; tgn=tgn+1 -- 0316 tgx[tgn],tgy[tgn],tgz[tgn]= -432.96, 197.81, 1619.66; tgs[tgn]= 50; tgn=tgn+1 -- 0317 tgx[tgn],tgy[tgn],tgz[tgn]= -433.30, 178.86, 1761.26; tgs[tgn]= 50; tgn=tgn+1 -- 0318 tgx[tgn],tgy[tgn],tgz[tgn]= -400.65, 168.96, 1808.93; tgs[tgn]= 50; tgn=tgn+1 -- 0319 tgx[tgn],tgy[tgn],tgz[tgn]= -354.53, 162.31, 1811.23; tgs[tgn]= 50; tgn=tgn+1 -- 0320 tgx[tgn],tgy[tgn],tgz[tgn]= -331.17, 154.47, 1773.84; tgs[tgn]=3001; tgn=tgn+1 -- 0321 tgx[tgn],tgy[tgn],tgz[tgn]= -310.61, 129.80, 1593.66; tgs[tgn]=3001; tgn=tgn+1 -- 0322 tgx[tgn],tgy[tgn],tgz[tgn]= -310.59, 119.37, 1523.43; tgs[tgn]=3000; tgn=tgn+1 -- 0323 tgx[tgn],tgy[tgn],tgz[tgn]= -340.10, 79.45, 1326.74; tgs[tgn]=3000; tgn=tgn+1 -- 0324 tgx[tgn],tgy[tgn],tgz[tgn]= -355.91, 24.42, 878.32; tgs[tgn]=3000; tgn=tgn+1 -- 0325 tgx[tgn],tgy[tgn],tgz[tgn]= -371.97, 25.83, 853.76; tgs[tgn]=3000; tgn=tgn+1 -- 0326 tgx[tgn],tgy[tgn],tgz[tgn]= -467.52, 32.71, 760.44; tgs[tgn]=3000; tgn=tgn+1 -- 0327 tgx[tgn],tgy[tgn],tgz[tgn]= -585.21, 40.18, 587.55; tgs[tgn]=3000; tgn=tgn+1 -- 0328 tgx[tgn],tgy[tgn],tgz[tgn]= -658.82, 37.74, 391.87; tgs[tgn]=3000; tgn=tgn+1 -- 0329 tgx[tgn],tgy[tgn],tgz[tgn]= -639.09, 30.25, 178.00; tgs[tgn]=3000; tgn=tgn+1 -- 0330 tgx[tgn],tgy[tgn],tgz[tgn]= -612.88, 30.84, 121.58; tgs[tgn]=3000; tgn=tgn+1 -- 0331 dst0=99999999 check=0 auto=0 line=0 pow0=0 CL_R,CL_G,CL_B=0,0,0 CC_R,CC_G,CC_B=1,2,3 BRKFL,BRKFR,BRKRL,BRKRR=0,0,0,0 -- COLOR CHANGE --------------------------------------------------------------- function col_change(r,g,b,rc,gc,bc) if(r==0) then rc=math.floor(math.random()*15)+1 elseif(r==255) then rc=-math.floor(math.random()*15)-1 end if(g==0) then gc=math.floor(math.random()*15)+1 elseif(g==255) then gc=-math.floor(math.random()*15)-1 end if(b==0) then bc=math.floor(math.random()*15)+1 elseif(b==255) then bc=-math.floor(math.random()*15)-1 end r=math.min(255,math.max(0,r+rc)) g=math.min(255,math.max(0,g+gc)) b=math.min(255,math.max(0,b+bc)) return r*65536+g*256+b,r,g,b,rc,gc,bc end -- GETWVEC -------------------------------------------------------------------- function getwvec(lx,ly,lz,cn) local wx=_XX(cn)*lx+_YX(cn)*ly+_ZX(cn)*lz local wy=_XY(cn)*lx+_YY(cn)*ly+_ZY(cn)*lz local wz=_XZ(cn)*lx+_YZ(cn)*ly+_ZZ(cn)*lz return wx,wy,wz end -- GETLVEC -------------------------------------------------------------------- function getlvec(wx,wy,wz,cn) local lx=_XX(cn)*wx+_XY(cn)*wy+_XZ(cn)*wz local ly=_YX(cn)*wx+_YY(cn)*wy+_YZ(cn)*wz local lz=_ZX(cn)*wx+_ZY(cn)*wy+_ZZ(cn)*wz return lx,ly,lz end ------------------------------------------------------------------------------- function main() local t=math.randomseed(1) if(_KEY(14)>0) then t=_SPLIT(C_0) end local vel=-_VZ(C_0) local sp=math.sqrt(_VX(C_0)^2+_VY(C_0)^2+_VZ(C_0)^2)*3.6 local wfl= _WY(NWFL) local wfr=-_WY(NWFR) local wrl= _WY(NWRL) local wrr=-_WY(NWRR) local trq=7 local brk=0 if(_KEYDOWN(10)>0) then if(line==0) then line=1 else line=0 end end if(_KEYDOWN(13)>0) then if(auto==0) then auto=1 else auto=0 end end if(_KEY(14)>0)or(_KEYDOWN(7)>0) then check=math.mod(check+tgn-1,tgn) end if(_KEYDOWN(15)>0) then check=0 end if(_KEY(16)>0)or(_KEYDOWN(9)>0) then check=math.mod(check+1,tgn) end -- Search if(_KEYDOWN(8)>0) then local n,d=0,1000000 local i,l for i=0,tgn-1 do l=math.sqrt((_X(C_0)-tgx[i])^2+(_Y(C_0)-tgy[i])^2+(_Z(C_0)-tgz[i])^2) if(l0) then local lx,ly,lz,dst while true do lx=tgx[check]-_X(C_0) ly=tgy[check]-_Y(C_0) lz=tgz[check]-_Z(C_0) dst=math.sqrt(lx^2+ly^2+lz^2) if(dst*3.85000) then pow0=pow0*1.01+500 else pow0=pow0*1.01+10 end local maxsp=tgs[check] local lim=math.min((550-sp)*maxsp,math.max(-(550-sp)*50,pow0)) if(lim>0)and(pow0>lim) then pow0=(pow0-500)*0.95 if(pow0-lim>15000) then brk=1 -- BRKFL=BRKFL+50 -- BRKFR=BRKFR+50 BRKRL=BRKRL+50 BRKRR=BRKRR+50 TRQRL=0 TRQRR=0 end elseif(lim<0)and(pow0-1)and(vel<1) then if(vel>=0) then vel=1 else vel=-1 end end local rfl=wfl/vel local rfr=wfr/vel local rrl=wrl/vel local rrr=wrr/vel -- STEERING t=math.min(5,16/math.sqrt(math.abs(vel))) if(_KEY(2)>0) then STEERL=STEERL+t STEERR=STEERR-t end if(_KEY(3)>0) then STEERL=STEERL-t STEERR=STEERR+t end -- ABS if(_KEY(4)~=0) then local v=math.abs(vel)*0.3 if(rfl<2) then BRKFL=BRKFL*0.1 else BRKFL=BRKFL+v end if(rfr<2) then BRKFR=BRKFR*0.1 else BRKFR=BRKFR+v end if(rrl<2) then BRKRL=BRKRL*0.1 else BRKRL=BRKRL+v end if(rrr<2) then BRKRR=BRKRR*0.1 else BRKRR=BRKRR+v end BRKFL=BRKFL*0.5 BRKFR=BRKFR*0.5 elseif(brk>0) then local v=math.abs(vel)*0.3 if(rrl<2) then BRKRL=BRKRL*0.1 else BRKRL=BRKRL+v end if(rrr<2) then BRKRR=BRKRR*0.1 else BRKRR=BRKRR+v end end -- TRC t=trq if(sp>20)and((rfl>t)or(rfr>t)or(rrl>t)or(rrr>t)) then TRQFL=math.max(0.01,TRQFL*0.95) TRQFR=math.max(0.01,TRQFR*0.95) TRQRL=math.max(0.01,TRQRL*0.95) TRQRR=math.max(0.01,TRQRR*0.95) elseif(sp>20)and((rfl<-1)or(rfr<-1)or(rrl<-1)or(rrr<-1)) then TRQFL,TRQFR,TRQRL,TRQRR=0,0,0,0 elseif(_H(NWFL)>0.45)or(_H(NWFR)>0.45)or(_H(NWRL)>0.45)or(_H(NWRR)>0.45) then TRQFL,TRQFR,TRQRL,TRQRR=0,0,0,0 elseif(_H(NWFL)<0)or(_H(NWFR)<0)or(_H(NWRL)<0)or(_H(NWRR)<0) then TRQFL,TRQFR,TRQRL,TRQRR=0,0,0,0 elseif(math.abs(_EZ(C_0))>1.5) then TRQFL,TRQFR,TRQRL,TRQRR=0,0,0,0 else TRQFL=math.max(0.01,TRQFL*1.01+0.01) TRQFR=math.max(0.01,TRQFR*1.01+0.01) TRQRL=math.max(0.01,TRQRL*1.01+0.01) TRQRR=math.max(0.01,TRQRR*1.01+0.01) end -- POWCAL if(_KEY(0)>0)or(_KEY(1)>0) then POW=math.min(5000,math.max(-5000,POW)) end if(_KEY(5)>0)and(_H(NWFL)<0.35)and(_H(NWFR)<0.35) then POW=POW*(1+sp/80) POW=math.min(60000,math.max(-60000,POW)) end POWFL=POW*TRQFL*2 POWFR=POW*TRQFR*2 POWRL=POW*TRQRL POWRR=POW*TRQRR -- COLOR COL,CL_R,CL_G,CL_B,CC_R,CC_G,CC_B=col_change(CL_R,CL_G,CL_B,CC_R,CC_G,CC_B) out(0,string.format("FPS=%.2f, Chips=%d, Weight=%.2f[kg]",_FPS(),_CHIPS(),_WEIGHT())) out(1,string.format("Speed=%.2f[km/h], Vz=%.2f[m/s]",sp,vel)) -- out(2,string.format("F-Speed=%.2f[km/h], Vz=%.2f[m/s]",sp*_FPS()/30,vel*_FPS()/30)) out(3,string.format("X=%+.2f, Y=%+.2f, Z=%+.2f",_X(C_0),_Y(C_0),_Z(C_0))) out(4,string.format("TGT-No.%03d [Q<D>>E, 0:W, Search:S]",check)) -- out(5,string.format("TX=%+.2f, TY=%+.2f, TZ=%+.2f",tgx[check],tgy[check],tgz[check])) if(line>0) then out(6,"LINE[V] : ON") _SETCOLOR(COL) _MOVE3D(_GX(0),_GY(0),_GZ(0)) _LINE3D(tgx[check],tgy[check],tgz[check]) else out(6,"LINE[V] : OFF") end if(auto>0) then out(7,"AUTO[G] : ON") else out(7,"AUTO[G] : OFF") end -- out(7,"WFL=",wfl,", WFR=",wfr,", WRL=",wrl,", WRR=",wrr) -- out(8,"RFL=",rfl,", RFR=",rfr,", RRL=",rrl,", RRR=",rrr) end }