; programmed by Akira Hashizume ; Department of Neurosurgery, Hiroshima University ; Released on April 24th, 2007 ; #packopt name "SensorArrayOfVectorView" #include "d3m.hsp" ; include d3module #define TotalSensor 102 #define CheckJAVA 0 *const rad = 3.14159265/180 snswidth=0.014 weight=-0.1 *define_sensor ddim sensor,12,TotalSensor sensor(0,0)=-0.10610000,0.04600000,-0.06040000,-0.01360000,0.00590000,-0.99989003,-0.19429800,-0.98088998,-0.00320000,-0.98080099,0.19423300,0.01448600 sensor(0,1)=-0.10170000,0.06260000,-0.02500000,0.01420000,0.00100000,-0.99988902,-0.27549699,-0.96129000,-0.00480000,-0.96118897,0.27553499,-0.01337500 sensor(0,2)=-0.10800000,0.02990000,-0.02660000,0.00800000,0.00170000,-0.99998403,-0.09489800,-0.99548399,-0.00250000,-0.99547201,0.09491700,-0.00780200 sensor(0,3)=-0.10940000,0.01270000,-0.06270000,-0.01669900,0.00190000,-0.99985898,-0.02739900,-0.99955899,-0.00140000,-0.99941999,0.02737200,0.01674400 sensor(0,4)=-0.10660000,0.03300000,0.00790000,-0.05920100,0.00850000,-0.99821001,-0.10530100,-0.99440998,-0.00220000,-0.99264902,0.10498200,0.05976500 sensor(0,5)=-0.09840000,0.04030000,0.04110000,-0.34060699,0.05930100,-0.93842000,-0.16360401,-0.98652202,-0.00300000,-0.92594999,0.15250701,0.34571901 sensor(0,6)=-0.10070000,0.00440000,0.04050000,-0.34880501,0.00880000,-0.93711400,0.03980100,-0.99891502,-0.02420000,-0.93630999,-0.04573900,0.34807599 sensor(0,7)=-0.10750000,-0.00050000,0.00710000,-0.07250100,-0.01080000,-0.99730998,0.07910100,-0.99690998,0.00510000,-0.99428302,-0.07851800,0.07313100 sensor(0,8)=-0.08530000,0.09840000,0.00900000,-0.04160000,0.12169900,-0.99169499,-0.48579699,-0.86979598,-0.08640000,-0.87308699,0.47816899,0.09530500 sensor(0,9)=-0.08830000,0.07560000,0.04090000,-0.34660500,0.11680200,-0.93071502,-0.37140599,-0.92821503,0.02180000,-0.86135697,0.35322899,0.36510500 sensor(0,10)=-0.06970000,0.07530000,0.07010000,-0.59129900,0.22750001,-0.77369899,-0.38819900,-0.92119801,0.02570000,-0.70688301,0.31554601,0.63301897 sensor(0,11)=-0.09940000,0.06620000,0.00850000,-0.07289800,0.02679900,-0.99697900,-0.29259399,-0.95617998,-0.00430000,-0.95340699,0.29139701,0.07754500 sensor(0,12)=-0.08030000,0.04120000,0.07140000,-0.63980198,0.04860000,-0.76700199,-0.13450000,-0.98970300,0.04950000,-0.75669801,0.13483199,0.63975000 sensor(0,13)=-0.05250000,0.04060000,0.09470000,-0.87236398,-0.02049900,-0.48838001,-0.05539800,-0.98855901,0.14029400,-0.48566800,0.14944300,0.86124700 sensor(0,14)=-0.05350000,0.00580000,0.09640000,-0.86706901,-0.01759900,-0.49778199,0.03069900,-0.99936497,-0.01809900,-0.49714801,-0.03097500,0.86705899 sensor(0,15)=-0.08240000,0.00630000,0.07210000,-0.64428502,0.00230000,-0.76478201,0.04479900,-0.99817699,-0.04079900,-0.76348102,-0.06054800,0.64300698 sensor(0,16)=-0.06290000,0.12460000,0.01340000,0.01340000,0.22440100,-0.97440499,-0.79030401,-0.59470302,-0.14780100,-0.61264801,0.77205598,0.16937600 sensor(0,17)=-0.03290000,0.13890000,0.01720000,0.00960000,0.22200000,-0.97499901,-0.95699900,-0.28070000,-0.07330000,-0.28995499,0.93377799,0.20975900 sensor(0,18)=-0.03350000,0.12700000,0.04840000,-0.05180100,0.46841300,-0.88202500,-0.96202701,-0.26040700,-0.08180200,-0.26800299,0.84429502,0.46411601 sensor(0,19)=-0.06680000,0.10860000,0.04420000,-0.17039099,0.37697899,-0.91035002,-0.71006101,-0.68756199,-0.15189201,-0.68318301,0.62052399,0.38483301 sensor(0,20)=-0.03550000,0.10410000,0.07440000,-0.00940000,0.77057499,-0.63727999,-0.95656902,-0.19259401,-0.21889301,-0.29141000,0.60754502,0.73891902 sensor(0,21)=0.00010000,0.07730000,0.09630000,0.00020000,0.91630000,-0.40050000,-1.00000000,0.00040000,0.00030000,0.00043500,0.40050000,0.91630000 sensor(0,22)=-0.01830000,0.04390000,0.10550000,0.00680000,0.98358899,-0.18029800,-0.99128801,-0.01710000,-0.13089800,-0.13183300,0.17961700,0.97490400 sensor(0,23)=-0.03690000,0.07490000,0.09180000,-0.02540000,0.89688998,-0.44149500,-0.95049000,-0.15849800,-0.26729700,-0.30971199,0.41284701,0.85651100 sensor(0,24)=-0.01840000,0.01050000,0.10880000,-0.98930103,-0.01190000,-0.14540000,0.01420000,-0.99980098,-0.01500000,-0.14519300,-0.01690400,0.98927402 sensor(0,25)=0.01860000,0.01020000,0.10880000,0.98855400,-0.00720000,-0.15069300,0.00170000,0.99935400,-0.03669800,0.15086000,0.03602200,0.98792797 sensor(0,26)=0.01840000,-0.02330000,0.10500000,-0.03689800,-0.96985102,-0.24088800,0.98745000,0.00160000,-0.15749200,0.15312900,-0.24367601,0.95762098 sensor(0,27)=-0.01850000,-0.02310000,0.10500000,0.03920100,-0.97012800,-0.23940700,0.99212801,0.00920000,0.12510400,-0.11916400,-0.24242599,0.96285200 sensor(0,28)=0.00010000,0.14360000,0.01840000,-0.00030000,0.25461099,-0.96704298,-0.99994498,-0.00800000,-0.00180000,-0.00819500,0.96698999,0.25459999 sensor(0,29)=0.00010000,0.13110000,0.04980000,0.00070000,0.49630001,-0.86809897,-0.99999899,0.00110000,-0.00010000,0.00090500,0.86809897,0.49630001 sensor(0,30)=0.03290000,0.13900000,0.01710000,-0.00430000,0.24020299,-0.97071302,-0.96411300,0.25660300,0.06780100,0.26537400,0.93616903,0.23048000 sensor(0,31)=0.06310000,0.12440000,0.01330000,-0.01740000,0.22379600,-0.97448099,-0.78578502,0.59958798,0.15179700,0.61825901,0.76837301,0.16542201 sensor(0,32)=0.06680000,0.10860000,0.04410000,0.17240299,0.37460700,-0.91101599,-0.70991302,0.68841201,0.14870299,0.68286002,0.62110502,0.38462201 sensor(0,33)=0.03360000,0.12700000,0.04820000,0.05469800,0.46608499,-0.88297200,-0.96156901,0.26289201,0.07919700,0.26903901,0.84470701,0.46255299 sensor(0,34)=0.00010000,0.10890000,0.07650000,0.00090000,0.75779301,-0.65249401,-0.99969101,-0.01400000,-0.01760000,-0.02247200,0.65230799,0.75754601 sensor(0,35)=0.03540000,0.10410000,0.07440000,0.00600000,0.76645899,-0.64226502,-0.96184802,0.17979001,0.20558900,0.27304900,0.61652899,0.73829597 sensor(0,36)=0.03670000,0.07500000,0.09190000,0.02940000,0.89631301,-0.44250599,-0.95061398,0.16190200,0.26480401,0.30899000,0.41286701,0.85680801 sensor(0,37)=0.01860000,0.04410000,0.10530000,-0.01390000,0.97940999,-0.20140199,-0.99181002,0.01210000,0.12700100,0.12682299,0.20151800,0.97122103 sensor(0,38)=0.05230000,0.04050000,0.09480000,0.87324101,-0.01840100,-0.48692301,-0.05680300,0.98864698,-0.13910700,0.48395500,0.14913200,0.86228198 sensor(0,39)=0.08020000,0.04110000,0.07150000,0.64160401,0.05150000,-0.76530498,-0.17140099,0.98210597,-0.07760100,0.74761498,0.18096299,0.63895100 sensor(0,40)=0.08220000,0.00600000,0.07220000,0.64210999,0.00070000,-0.76661199,0.01130000,0.99991602,0.01040000,0.76655501,-0.01534100,0.64204800 sensor(0,41)=0.05340000,0.00610000,0.09650000,0.86810398,-0.01810000,-0.49610201,0.03030000,0.99940503,0.01650000,0.49550799,-0.02935600,0.86813599 sensor(0,42)=0.08550000,0.09810000,0.00870000,0.05440000,0.12470000,-0.99070197,-0.50440103,0.85970199,0.08040000,0.86173397,0.49533701,0.10966700 sensor(0,43)=0.09960000,0.06570000,0.00810000,0.07160100,0.02900000,-0.99701202,-0.31310400,0.94971102,0.00520000,0.94702399,0.31179601,0.07708000 sensor(0,44)=0.08830000,0.07560000,0.04090000,0.34709999,0.11710000,-0.93049902,-0.37120000,0.92829901,-0.02170000,0.86124098,0.35293299,0.36568001 sensor(0,45)=0.06950000,0.07540000,0.07020000,0.61337101,0.23868901,-0.75286400,-0.42748001,0.90185702,-0.06239700,0.66408199,0.36010599,0.65520698 sensor(0,46)=0.09840000,0.04030000,0.04110000,0.34030700,0.06010100,-0.93841898,-0.16420300,0.98641998,0.00360000,0.92589200,0.15286601,0.34555399 sensor(0,47)=0.10660000,0.03280000,0.00810000,0.06960000,0.01230000,-0.99749899,-0.12850000,0.99169898,0.00330000,0.98926002,0.12794900,0.07060300 sensor(0,48)=0.10760000,-0.00080000,0.00670000,0.05650000,-0.00260000,-0.99839902,0.06420000,0.99789900,0.00100000,0.99629903,-0.06415400,0.05654800 sensor(0,49)=0.10060000,0.00440000,0.04060000,0.34980401,0.00790000,-0.93681097,0.04030000,0.99891102,0.02350000,0.93597603,-0.04597400,0.34910500 sensor(0,50)=0.10170000,0.06260000,-0.02540000,-0.01450000,0.00350000,-0.99987501,-0.27479300,0.96147603,0.00730000,0.96138102,0.27486399,-0.01297900 sensor(0,51)=0.10600000,0.04670000,-0.06000000,0.01500000,0.00010000,-0.99988699,-0.17129800,0.98518801,-0.00240000,0.98507702,0.17131500,0.01479500 sensor(0,52)=0.10930000,0.01300000,-0.06220000,0.01450000,0.00440000,-0.99988502,-0.00340000,0.99998498,0.00430000,0.99988902,0.00333700,0.01451500 sensor(0,53)=0.10800000,0.02980000,-0.02610000,-0.00830000,0.00430000,-0.99999303,-0.09469900,0.99549299,0.00510000,0.99550802,0.09474100,-0.00785500 sensor(0,54)=-0.10830000,-0.00350000,-0.02840000,0.01840000,0.00060000,-0.99979103,0.08249900,-0.99659097,0.00090000,-0.99638200,-0.08249900,-0.01838700 sensor(0,55)=-0.10130000,-0.03610000,-0.02790000,0.02590000,0.00200000,-0.99970001,0.34330001,-0.93919998,0.00700000,-0.93890399,-0.34337801,-0.02501200 sensor(0,56)=-0.09470000,-0.05190000,-0.06240000,-0.01750100,-0.00090000,-0.99984598,0.45202100,-0.89204103,-0.00710000,-0.89189798,-0.45207599,0.01601800 sensor(0,57)=-0.10620000,-0.02060000,-0.06250000,-0.01709900,0.00100000,-0.99985301,0.19109100,-0.98155397,-0.00430000,-0.98141497,-0.19113700,0.01659300 sensor(0,58)=-0.10110000,-0.03340000,0.00560000,-0.07030000,-0.03230000,-0.99700302,0.33160099,-0.94340301,0.00720000,-0.94080800,-0.33010101,0.07703200 sensor(0,59)=-0.09470000,-0.03070000,0.03890000,-0.32199901,-0.05730000,-0.94499701,0.30949900,-0.94969702,-0.04780000,-0.89472300,-0.30786699,0.32353601 sensor(0,60)=-0.07780000,-0.06260000,0.03910000,-0.25939399,-0.19959500,-0.94487703,0.59678602,-0.80238098,0.00570000,-0.75928903,-0.56241101,0.32724801 sensor(0,61)=-0.08620000,-0.06330000,0.00530000,-0.06230200,-0.04950100,-0.99682897,0.56421602,-0.82562399,0.00570000,-0.82328802,-0.56207198,0.07936700 sensor(0,62)=-0.07530000,-0.07920000,-0.06210000,-0.00110000,-0.01629900,-0.99986702,0.66877800,-0.74327499,0.01140000,-0.74336201,-0.66867602,0.01171800 sensor(0,63)=-0.08580000,-0.06580000,-0.02820000,0.02069900,0.00790000,-0.99976999,0.57108301,-0.82087499,0.00530000,-0.82064497,-0.57106102,-0.02150300 sensor(0,64)=-0.06270000,-0.08990000,-0.02770000,0.02370000,0.03380000,-0.99908698,0.80718899,-0.59029198,-0.00090000,-0.58978301,-0.80643100,-0.04127200 sensor(0,65)=-0.04860000,-0.09880000,-0.06210000,-0.00990000,-0.01170000,-0.99988300,0.88818502,-0.45939201,-0.00340000,-0.45929801,-0.88811398,0.01493900 sensor(0,66)=-0.07790000,-0.02850000,0.06900000,-0.61656600,-0.04059800,-0.78625602,0.24968600,-0.95704699,-0.14639200,-0.74654102,-0.28657699,0.60021901 sensor(0,67)=-0.05170000,-0.02800000,0.09210000,-0.85628599,0.02680000,-0.51579100,0.11099800,-0.96578401,-0.23439600,-0.50442499,-0.25796199,0.82401198 sensor(0,68)=-0.01810000,-0.05400000,0.09180000,0.07110200,-0.83921897,-0.53921199,0.98892200,-0.01130000,0.14800300,-0.13030000,-0.54376203,0.82911903 sensor(0,69)=-0.05470000,-0.06200000,0.07000000,-0.38340399,-0.49910501,-0.77710700,0.77940702,-0.62620598,0.01770000,-0.49546400,-0.59889698,0.62909597 sensor(0,70)=-0.05110000,-0.08570000,0.03950000,-0.15409400,-0.30038801,-0.94126099,0.87996399,-0.47498000,0.00760000,-0.44936299,-0.82710397,0.33752200 sensor(0,71)=-0.03330000,-0.10240000,0.00610000,-0.04479800,-0.14269300,-0.98875302,0.95795399,-0.28688601,-0.00200000,-0.28337401,-0.94726902,0.14954500 sensor(0,72)=-0.03300000,-0.10480000,-0.02780000,0.00710000,0.01980000,-0.99979001,0.95129001,-0.30829701,0.00060000,-0.30822000,-0.95109397,-0.02102400 sensor(0,73)=-0.06330000,-0.08750000,0.00590000,-0.06580100,-0.08830200,-0.99391800,0.80071503,-0.59911102,0.00030000,-0.59549397,-0.79582500,0.11012700 sensor(0,74)=-0.01860000,-0.07950000,0.06840000,-0.00150000,-0.62351102,-0.78181303,0.99261701,-0.09620200,0.07470100,-0.12178900,-0.77592897,0.61905199 sensor(0,75)=0.01840000,-0.07950000,0.06850000,0.00020000,-0.62000102,-0.78460097,0.98710102,0.12560000,-0.09890000,0.15986399,-0.77446097,0.61202902 sensor(0,76)=0.01690000,-0.09680000,0.03950000,-0.00050000,-0.37198400,-0.92815900,0.98985702,0.13169400,-0.05329800,0.14205900,-0.91877103,0.36814499 sensor(0,77)=-0.01690000,-0.09670000,0.03960000,-0.00020000,-0.37219399,-0.92818499,0.98978400,-0.13239799,0.05289900,-0.14257801,-0.91869199,0.36841801 sensor(0,78)=-0.00010000,-0.10770000,0.00680000,-0.00010000,-0.16710700,-0.98593903,0.99993902,0.01150000,-0.00210000,0.01169000,-0.98587900,0.16709501 sensor(0,79)=0.00000000,-0.11020000,-0.02740000,0.00000000,0.03660000,-0.99930000,1.00000000,-0.00040000,0.00000000,-0.00040000,-0.99930000,-0.03660000 sensor(0,80)=0.01690000,-0.10910000,-0.06190000,0.00950000,-0.01230000,-0.99987900,0.98807901,0.15369700,0.00750000,0.15358600,-0.98803103,0.01361300 sensor(0,81)=-0.01700000,-0.10910000,-0.06190000,-0.00650000,-0.01380000,-0.99988401,0.98038399,-0.19689700,-0.00370000,-0.19682300,-0.98029399,0.01480900 sensor(0,82)=0.05160000,-0.02790000,0.09220000,0.85719198,0.02850000,-0.51419502,0.10849900,0.96609098,0.23429801,0.50343698,-0.25662801,0.82503402 sensor(0,83)=0.07800000,-0.02830000,0.06920000,0.62779897,-0.04280000,-0.77719802,0.22579999,0.96559799,0.12930000,0.74492699,-0.25666499,0.61586499 sensor(0,84)=0.05470000,-0.06220000,0.06980000,0.37639499,-0.49189401,-0.78509003,0.76659101,0.64129198,-0.03430000,0.52034402,-0.58893299,0.61846101 sensor(0,85)=0.01820000,-0.05400000,0.09170000,-0.07050000,-0.83909798,-0.53939801,0.98889703,0.01220000,-0.14810000,0.13085100,-0.54385102,0.82892102 sensor(0,86)=0.05110000,-0.08580000,0.03950000,0.15249699,-0.30129400,-0.94118202,0.88048297,0.47399101,-0.00910000,0.44885299,-0.82730699,0.33756599 sensor(0,87)=0.06310000,-0.08770000,0.00610000,0.05720200,-0.07230300,-0.99574101,0.80593300,0.59202403,0.00330000,0.58926398,-0.80268902,0.09213700 sensor(0,88)=0.03290000,-0.10480000,-0.02770000,-0.00410000,0.02080000,-0.99978101,0.95148200,0.30769399,0.00250000,0.30767900,-0.95126402,-0.02105200 sensor(0,89)=0.03300000,-0.10260000,0.00620000,0.04110000,-0.12189900,-0.99169099,0.94969201,0.31319699,0.00080000,0.31049699,-0.94183397,0.12863900 sensor(0,90)=0.09480000,-0.03040000,0.03900000,0.32109901,-0.06260000,-0.94499600,0.30939901,0.94999599,0.04220000,0.89510000,-0.30593100,0.32440999 sensor(0,91)=0.10100000,-0.03360000,0.00580000,0.06840200,-0.02910100,-0.99723297,0.32151100,0.94693202,-0.00550000,0.94447201,-0.32024500,0.07412900 sensor(0,92)=0.08590000,-0.06350000,0.00550000,0.06170300,-0.04580200,-0.99704301,0.55552399,0.83153600,-0.00390000,0.82925600,-0.55364102,0.07675200 sensor(0,93)=0.07780000,-0.06260000,0.03910000,0.25730100,-0.20190100,-0.94500297,0.59820199,0.80130202,-0.00830000,0.75890899,-0.56316698,0.32695299 sensor(0,94)=0.06260000,-0.09000000,-0.02760000,-0.02120100,0.03560100,-0.99912602,0.80782098,0.58941501,0.00390000,0.58903903,-0.80703199,-0.04125500 sensor(0,95)=0.08580000,-0.06570000,-0.02800000,-0.01910000,0.01020000,-0.99978799,0.57079297,0.82108998,-0.00260000,0.82088900,-0.57072097,-0.02150500 sensor(0,96)=0.07520000,-0.07930000,-0.06200000,0.01590000,-0.00240000,-0.99987102,0.70427901,0.70987898,0.00950000,0.70976502,-0.70433903,0.01297700 sensor(0,97)=0.04850000,-0.09890000,-0.06210000,0.01200000,-0.00890000,-0.99988800,0.90819001,0.41859499,0.00710000,0.41848499,-0.90817302,0.01310600 sensor(0,98)=0.10830000,-0.00350000,-0.02790000,-0.01820000,0.00320000,-0.99978203,0.08259800,0.99658197,0.00170000,0.99636900,-0.08254900,-0.01840200 sensor(0,99)=0.10620000,-0.02050000,-0.06210000,0.01470000,0.00420000,-0.99988300,0.22869600,0.97348398,0.00740000,0.97340101,-0.22877800,0.01334900 sensor(0,100)=0.09450000,-0.05220000,-0.06200000,0.01649900,0.00260000,-0.99986100,0.48578101,0.87396598,0.01030000,0.87387002,-0.48588300,0.01315700 sensor(0,101)=0.10130000,-0.03610000,-0.02770000,-0.02500000,0.00430000,-0.99969798,0.34279901,0.93939799,-0.00450000,0.93909502,-0.34280801,-0.02495900 *define_points ddim pts,3,292 pts(0,0)=-0.06953038,0.01031110,-0.04205295 pts(0,1)=0.01300005,0.10506054,-0.03865122 pts(0,2)=0.07479405,0.00073522,-0.04216183 pts(0,3)=-0.07032277,-0.01611198,-0.04579932 pts(0,4)=-0.01486526,0.10839211,0.01504401 pts(0,5)=0.03836951,0.11058753,0.01274516 pts(0,6)=0.07049934,-0.02311397,-0.03238405 pts(0,7)=0.00834359,-0.00498121,0.09001834 pts(0,8)=0.00748330,-0.01471340,0.08872939 pts(0,9)=0.00672513,-0.02638153,0.08594910 pts(0,10)=0.00342421,-0.02996077,0.08364266 pts(0,11)=0.00356142,-0.03641853,0.07961241 pts(0,12)=0.00454176,-0.04445899,0.07446746 pts(0,13)=0.00168441,-0.05386087,0.06584929 pts(0,14)=-0.00171382,-0.05942858,0.05885057 pts(0,15)=-0.00028119,-0.06710871,0.04549639 pts(0,16)=0.00037848,-0.07347049,0.03457731 pts(0,17)=-0.00261637,-0.07851678,0.02021500 pts(0,18)=-0.00263904,-0.08232418,0.00482658 pts(0,19)=-0.00050436,-0.08635818,-0.01033763 pts(0,20)=-0.00218014,-0.08538786,-0.02766983 pts(0,21)=-0.00351495,-0.08306870,-0.03442494 pts(0,22)=-0.00328141,-0.08100004,-0.04068596 pts(0,23)=-0.00506140,-0.07866081,-0.05781229 pts(0,24)=-0.00370638,-0.07279415,-0.07221819 pts(0,25)=-0.00792314,0.00777483,0.09086179 pts(0,26)=-0.01186997,0.00697578,0.09008228 pts(0,27)=-0.02465819,0.00020587,0.08511586 pts(0,28)=-0.02929775,-0.01208681,0.08317293 pts(0,29)=-0.03560200,-0.02412333,0.07764704 pts(0,30)=-0.04194035,-0.03238939,0.07096662 pts(0,31)=-0.04582147,-0.04001583,0.06319062 pts(0,32)=-0.04854397,-0.04818351,0.05345882 pts(0,33)=-0.05123732,-0.05381082,0.04409509 pts(0,34)=-0.05219604,-0.05937801,0.03207404 pts(0,35)=-0.05032001,-0.06578748,0.01693798 pts(0,36)=-0.05394483,-0.06498267,0.00455718 pts(0,37)=-0.05559016,-0.06425968,-0.01021539 pts(0,38)=-0.05150280,-0.06385996,-0.02840116 pts(0,39)=-0.04333274,-0.05727418,-0.06291047 pts(0,40)=-0.03815689,-0.05123449,-0.07304720 pts(0,41)=-0.02836593,-0.00407416,0.08396459 pts(0,42)=-0.04204948,-0.00621844,0.07812098 pts(0,43)=-0.04856146,-0.00981913,0.07450492 pts(0,44)=-0.05783603,-0.01427020,0.06623855 pts(0,45)=-0.06534443,-0.02160026,0.05601764 pts(0,46)=-0.07231163,-0.01952302,0.04334678 pts(0,47)=-0.07185752,-0.02937696,0.03242548 pts(0,48)=-0.07193710,-0.03593091,0.01409984 pts(0,49)=-0.07122529,-0.03683947,-0.00485351 pts(0,50)=-0.06865931,-0.04060480,-0.01835603 pts(0,51)=-0.06703473,-0.04299184,-0.02541698 pts(0,52)=-0.05400819,-0.04527033,-0.05458764 pts(0,53)=-0.04798369,-0.04135810,-0.06354713 pts(0,54)=-0.01388780,0.00369887,0.09015326 pts(0,55)=-0.02265819,0.00625987,0.08779421 pts(0,56)=-0.02962904,0.00776226,0.08525595 pts(0,57)=-0.04160216,0.01696099,0.07714107 pts(0,58)=-0.05496623,0.01666743,0.06762473 pts(0,59)=-0.06342102,0.01759633,0.05851358 pts(0,60)=-0.06986939,0.01611041,0.04668732 pts(0,61)=-0.07376131,0.01893294,0.02998640 pts(0,62)=-0.07192730,0.02401677,-0.00760439 pts(0,63)=-0.07172692,0.02376064,-0.00649460 pts(0,64)=-0.06613472,0.02370260,-0.04154199 pts(0,65)=-0.06719525,0.02148444,-0.05205028 pts(0,66)=-0.06850485,0.02065542,-0.06238302 pts(0,67)=-0.06612456,0.01972323,-0.06701754 pts(0,68)=-0.01093688,0.00851278,0.09037638 pts(0,69)=-0.02913097,-0.00008655,0.08509557 pts(0,70)=-0.04561117,-0.00842431,0.07599528 pts(0,71)=-0.06374929,-0.00880271,0.06095684 pts(0,72)=-0.07236391,-0.00994657,0.04533890 pts(0,73)=-0.07633643,-0.01555001,0.02623832 pts(0,74)=-0.07476726,-0.01647013,0.00587836 pts(0,75)=-0.01673948,0.01220562,0.08793850 pts(0,76)=-0.03231578,0.03097569,0.07839880 pts(0,77)=-0.03722306,0.04327740,0.07136666 pts(0,78)=-0.04437412,0.05510514,0.05733810 pts(0,79)=-0.04882384,0.06447141,0.04146085 pts(0,80)=-0.05099987,0.07136050,0.02666464 pts(0,81)=-0.05592473,0.06883944,0.00979514 pts(0,82)=-0.05518539,0.06998734,-0.00864508 pts(0,83)=-0.05572712,0.06532665,-0.02033988 pts(0,84)=0.00818888,0.00522607,0.09308022 pts(0,85)=0.00681999,0.02493536,0.09124860 pts(0,86)=-0.00757451,0.04600328,0.08374579 pts(0,87)=-0.01473387,0.05768803,0.07677286 pts(0,88)=-0.01784976,0.06540869,0.07118983 pts(0,89)=-0.02146599,0.07570658,0.05997275 pts(0,90)=-0.02683375,0.08180969,0.04963405 pts(0,91)=-0.03013527,0.08402478,0.04405926 pts(0,92)=-0.03234320,0.08698219,0.03719029 pts(0,93)=-0.03480133,0.09012937,0.02589909 pts(0,94)=-0.03912692,0.09155251,0.01303806 pts(0,95)=-0.03587499,0.09675432,-0.01860999 pts(0,96)=0.02374744,0.01812850,0.08698210 pts(0,97)=0.01239784,0.03678733,0.08649296 pts(0,98)=0.00604356,0.05745323,0.08129533 pts(0,99)=0.00148374,0.07046727,0.07390634 pts(0,100)=-0.00063883,0.08424440,0.06215009 pts(0,101)=-0.00220038,0.09307428,0.05304471 pts(0,102)=-0.00700719,0.09880116,0.04250855 pts(0,103)=-0.00688102,0.10358887,0.03197182 pts(0,104)=-0.00802261,0.10593057,0.02577999 pts(0,105)=-0.01038122,0.10976880,0.00997893 pts(0,106)=-0.00959632,0.11122658,-0.01528876 pts(0,107)=-0.00866718,0.11160260,-0.01960780 pts(0,108)=0.02364591,0.00615030,0.09064546 pts(0,109)=0.02109088,0.02679731,0.08690122 pts(0,110)=0.01764933,0.04027954,0.08464843 pts(0,111)=0.01821093,0.06005936,0.07805403 pts(0,112)=0.01597112,0.06304895,0.07741932 pts(0,113)=0.00952842,0.07384891,0.07161044 pts(0,114)=0.01039663,0.08272676,0.06384085 pts(0,115)=0.00857622,0.08980834,0.05746962 pts(0,116)=0.01515264,0.09633819,0.04955864 pts(0,117)=0.01475876,0.10176791,0.04150401 pts(0,118)=0.01817733,0.10592167,0.03068961 pts(0,119)=0.01655094,0.11147718,0.01277551 pts(0,120)=0.01444533,0.11178516,-0.00660805 pts(0,121)=0.01496355,0.11121190,-0.00853969 pts(0,122)=0.01606611,0.10997989,-0.02342636 pts(0,123)=0.01609593,0.10912427,-0.02688649 pts(0,124)=0.01033977,0.10337915,-0.03843740 pts(0,125)=0.01109411,0.10172489,-0.04533177 pts(0,126)=0.01312479,0.10638670,-0.06082354 pts(0,127)=0.01301543,0.10825918,-0.06488477 pts(0,128)=0.01322304,0.11126460,-0.07148082 pts(0,129)=0.01399858,0.11263739,-0.07421037 pts(0,130)=0.01454476,0.11355036,-0.07821406 pts(0,131)=0.01478978,0.11483197,-0.08164967 pts(0,132)=0.01437841,0.11517317,-0.08490185 pts(0,133)=0.01369474,0.11445041,-0.08816538 pts(0,134)=0.01352213,0.10979661,-0.09079761 pts(0,135)=0.01233138,0.09848720,-0.09379786 pts(0,136)=0.01220342,0.09750043,-0.09913090 pts(0,137)=0.01174507,0.09799936,-0.10386126 pts(0,138)=0.01202068,0.09875304,-0.11087657 pts(0,139)=0.01163715,0.09858825,-0.11239480 pts(0,140)=0.00226371,-0.00551031,0.08928157 pts(0,141)=0.01303012,-0.00600526,0.08814368 pts(0,142)=0.01876714,-0.00548577,0.08655029 pts(0,143)=0.02241270,-0.00633466,0.08557749 pts(0,144)=0.02937140,-0.00560088,0.08305418 pts(0,145)=0.03648923,-0.00548628,0.08156772 pts(0,146)=0.04511677,-0.00552620,0.07679047 pts(0,147)=0.05179767,-0.00588801,0.07221121 pts(0,148)=0.05678589,-0.00563189,0.06811448 pts(0,149)=0.06522715,-0.00569989,0.05930639 pts(0,150)=0.06798609,-0.00706352,0.05469520 pts(0,151)=0.07181548,-0.00625336,0.04513169 pts(0,152)=0.07377558,-0.00716705,0.03936079 pts(0,153)=0.07488778,-0.00821305,0.03256405 pts(0,154)=0.07560362,-0.01053395,0.02069753 pts(0,155)=0.07691303,-0.01080622,0.01067101 pts(0,156)=0.07818654,-0.01195080,0.00184254 pts(0,157)=0.07975464,-0.01343022,-0.00218224 pts(0,158)=0.00852075,0.01316297,0.08991025 pts(0,159)=0.01377696,0.01510080,0.08850903 pts(0,160)=0.01933565,0.01742738,0.08656602 pts(0,161)=0.02975149,0.02159250,0.08259972 pts(0,162)=0.03664990,0.02621902,0.07829146 pts(0,163)=0.04130780,0.02823470,0.07529025 pts(0,164)=0.04701739,0.03103159,0.07137794 pts(0,165)=0.05283158,0.03444839,0.06712658 pts(0,166)=0.05991163,0.03776952,0.06077849 pts(0,167)=0.06635858,0.03682059,0.05359299 pts(0,168)=0.07075379,0.03619641,0.04767232 pts(0,169)=0.07388910,0.03859360,0.04154297 pts(0,170)=0.07782709,0.03817308,0.02979264 pts(0,171)=0.08021289,0.03929919,0.02064499 pts(0,172)=0.08069416,0.03582276,0.01717660 pts(0,173)=0.08135795,0.03615318,0.00260062 pts(0,174)=0.08106355,0.03544139,-0.00433636 pts(0,175)=0.08067838,0.03660015,-0.01024073 pts(0,176)=0.08101400,0.03548348,-0.01416247 pts(0,177)=0.00988238,0.01443890,0.08923301 pts(0,178)=0.01842007,0.02242088,0.08620505 pts(0,179)=0.02768974,0.03215574,0.08206388 pts(0,180)=0.03378953,0.03910452,0.07745383 pts(0,181)=0.04146465,0.05050968,0.07098652 pts(0,182)=0.04842695,0.05738655,0.06412964 pts(0,183)=0.05465579,0.06257979,0.05580463 pts(0,184)=0.06017785,0.06746795,0.04535388 pts(0,185)=0.06593436,0.07009500,0.03206876 pts(0,186)=0.06896004,0.07126788,0.02056464 pts(0,187)=0.07025506,0.07243294,0.01418570 pts(0,188)=0.07295330,0.07323443,0.00645387 pts(0,189)=0.07468114,0.07335743,-0.00056767 pts(0,190)=0.07038185,0.07302751,-0.01091940 pts(0,191)=0.00604841,0.03270885,0.08709029 pts(0,192)=0.01017038,0.04277860,0.08422358 pts(0,193)=0.02045807,0.05439286,0.07815347 pts(0,194)=0.02896329,0.06565069,0.06989562 pts(0,195)=0.03262362,0.07080697,0.06512405 pts(0,196)=0.03799246,0.07588662,0.05862941 pts(0,197)=0.04364114,0.08121820,0.05089331 pts(0,198)=0.04626063,0.08562532,0.04462932 pts(0,199)=0.04968878,0.08942487,0.03611590 pts(0,200)=0.05174781,0.09270894,0.02679056 pts(0,201)=0.05231139,0.09627152,0.01910924 pts(0,202)=0.05322038,0.09768414,0.01398032 pts(0,203)=0.05501414,0.09907247,0.00180944 pts(0,204)=0.11244197,0.06951340,-0.05590815 pts(0,205)=0.00814427,-0.00587445,0.08882277 pts(0,206)=0.01772545,-0.01063233,0.08677908 pts(0,207)=0.03082520,-0.02165540,0.08021606 pts(0,208)=0.03956665,-0.02870612,0.07271619 pts(0,209)=0.04667634,-0.03357139,0.06493270 pts(0,210)=0.05388741,-0.04205702,0.04506057 pts(0,211)=0.05553986,-0.04721219,0.03219132 pts(0,212)=0.05150460,-0.05369604,0.00995228 pts(0,213)=0.04748615,-0.05967534,-0.00201035 pts(0,214)=0.04595961,-0.06212947,-0.02163373 pts(0,215)=0.04520427,-0.06269693,-0.02817831 pts(0,216)=0.04444728,-0.06330605,-0.03387579 pts(0,217)=0.00342172,-0.00063235,0.09116771 pts(0,218)=0.01093684,-0.01626626,0.08808071 pts(0,219)=0.02164407,-0.02761460,0.08174086 pts(0,220)=0.02818406,-0.03538218,0.07479206 pts(0,221)=0.03241628,-0.04541307,0.06591669 pts(0,222)=0.03359666,-0.05428784,0.05344690 pts(0,223)=0.03238373,-0.06178401,0.04317461 pts(0,224)=0.03361635,-0.06554575,0.03274176 pts(0,225)=0.03386904,-0.06537346,0.02682799 pts(0,226)=0.03332818,-0.06875499,0.01426538 pts(0,227)=0.03138727,-0.07353983,0.00262294 pts(0,228)=0.02761544,-0.07512247,-0.01565491 pts(0,229)=0.02439613,-0.07618807,-0.03404179 pts(0,230)=0.02196605,-0.07569079,-0.04000752 pts(0,231)=0.02085070,-0.07561568,-0.04031577 pts(0,232)=0.00584688,-0.00796730,0.09093132 pts(0,233)=0.01194985,-0.02364459,0.08645698 pts(0,234)=0.01586480,-0.03726091,0.07830458 pts(0,235)=0.01883888,-0.04705649,0.06999434 pts(0,236)=0.02116753,-0.05768698,0.05483286 pts(0,237)=0.01806977,-0.06717364,0.03940650 pts(0,238)=0.02144911,-0.07026304,0.02771301 pts(0,239)=0.02359340,-0.07581506,0.00717331 pts(0,240)=0.02373802,-0.07694542,-0.01169686 pts(0,241)=0.02011342,-0.07629433,-0.03559458 pts(0,242)=0.01700689,-0.07578143,-0.04274616 pts(0,243)=-0.07351230,-0.04183363,0.01415031 pts(0,244)=-0.06345771,-0.05519975,0.01837807 pts(0,245)=-0.04891663,-0.06630568,0.02240156 pts(0,246)=-0.03528512,-0.07181384,0.02669465 pts(0,247)=-0.02409072,-0.07639351,0.02322112 pts(0,248)=-0.00538158,-0.07847475,0.01887699 pts(0,249)=0.00555793,-0.07755749,0.02154428 pts(0,250)=0.01922183,-0.07486421,0.01895574 pts(0,251)=0.02811887,-0.07212997,0.00956594 pts(0,252)=0.03742172,-0.06530774,0.00849343 pts(0,253)=0.04314392,-0.06156530,0.00885455 pts(0,254)=0.05101875,-0.05346441,0.00795297 pts(0,255)=0.06151992,-0.03850433,0.00790176 pts(0,256)=0.06370865,-0.03651277,0.00817330 pts(0,257)=0.07022387,-0.02151373,0.00930261 pts(0,258)=0.07539225,-0.00369998,0.00724782 pts(0,259)=0.07767190,0.01454143,0.00233242 pts(0,260)=0.07838120,0.02186972,-0.00412378 pts(0,261)=0.07768687,0.03607869,-0.00975935 pts(0,262)=0.07335571,0.05426507,-0.01613286 pts(0,263)=0.07064510,0.06138472,-0.01445026 pts(0,264)=-0.00892605,-0.07982588,0.02172493 pts(0,265)=-0.02113316,-0.08230538,0.00837380 pts(0,266)=-0.03841279,-0.07585866,0.00379090 pts(0,267)=-0.05433805,-0.06369125,0.00354323 pts(0,268)=-0.06399939,-0.05134841,0.00505729 pts(0,269)=-0.06912302,-0.03823219,0.00326351 pts(0,270)=-0.07147694,-0.03114543,-0.00145480 pts(0,271)=-0.07296816,-0.01955507,-0.00554824 pts(0,272)=-0.07345599,-0.00559364,-0.00989722 pts(0,273)=-0.07219206,0.01044327,-0.00991550 pts(0,274)=-0.07022166,0.01953127,-0.01212363 pts(0,275)=-0.06768848,0.03168357,-0.01601408 pts(0,276)=-0.06430852,0.04405435,-0.01960872 pts(0,277)=-0.05935328,0.05587270,-0.02139535 pts(0,278)=0.07576643,0.02357082,0.04515036 pts(0,279)=0.05516993,0.02816403,0.06776651 pts(0,280)=0.03958882,0.03074204,0.07755550 pts(0,281)=0.02200678,0.03514100,0.08445593 pts(0,282)=0.00468675,0.04279031,0.08651620 pts(0,283)=-0.01036464,0.04565940,0.08379171 pts(0,284)=-0.02437368,0.05058485,0.07640526 pts(0,285)=-0.04156527,0.05033465,0.06365482 pts(0,286)=-0.05358028,0.05272493,0.04556826 pts(0,287)=-0.05938009,0.05271965,0.03479718 pts(0,288)=-0.06106117,0.05287603,0.02386868 pts(0,289)=-0.06363459,0.05069825,0.00960564 pts(0,290)=-0.06406241,0.04893200,-0.00613860 pts(0,291)=-0.06391304,0.04698261,-0.01484446 DigitizedPoints=0; particle ID arr=4,4,30,30,150,30 d3mkparticle DigitizedPoints,255,128,128,arr *initialize WindowMode=1 screen 0,640,480,0 title "sensor array of VectorView" theta=0.0 phi=0.0 ParticleSize=0.02 d3setcam 4,0,0, 0,0,0, 0.08 ddim ex,3:ex=1.0,0.0,0.0 ddim ey,3:ey=0.0,1.0,0.0 ddim ez,3:ez=0.0,0.0,1.0 ddim chx,4 ddim chy,4 ddim chz,4 gosub *calc_rotate *mainloop redraw 0 d3setlocal 0,0,0, ex(0),ex(1),ex(2), ey(0),ey(1),ey(2), ez(0),ez(1),ez(2) color 0,0,0;invalid if color 255,255,255 boxf gosub *draw_DigitizedPoints gosub *draw_sensor font "arial",20 color 255,255,255 if CheckJAVA { pos 50,455 mes "[cursor keys] rotate" redraw 1 } else { pos 50,430 mes "[SPACE] full screen / windowed" pos 50,455 mes "[cursor keys] rotate, [ESC] escape, [RET] home position" redraw 1 getkey key,32:if key:gosub *ChangeWindowMode getkey key,13:if key:{ex=1.0,0.0,0.0:ey=0.0,1.0,0.0:ez=0.0,0.0,1.0} getkey key,27:if key:goto *finish } getkey key,37:if key:{theta=-10.0:gosub *calc_rotate} getkey key,39:if key:{theta=10.0:gosub *calc_rotate} getkey key,38:if key:{phi=-10.0:gosub *calc_rotate} getkey key,40:if key:{phi=10.0:gosub *calc_rotate} wait 1 goto *mainloop *ChangeWindowMode if WindowMode==1 { screen 0,640,480,0 chgdisp 0 WindowMode=0 } else { bgscr 0,640,480,0,0,0 chgdisp 1,640,480 WindowMode=1 } mouse 10,10 return *finish FinalPoint=1 arr=10,2,100,80 d3mkparticle FinalPoint,128,255,255,arr x=0.2 repeat 20,1 redraw 0 d3particle FinalPoint,0.0,0.0,0.0,x gosub *draw_sensor redraw 1 wait 10 x=x+0.4 loop color 0,0,128 font "Arial",40,1 pos 60,220 mes "Department of Neurosurgery" pos 60,280 mes " Hiroshima University" wait 200 end *calc_rotate theta=theta*rad phi=phi*rad d3vrotate ex(0),ex(1),ex(2), ex(0),ex(1),ex(2), ez(0),ez(1),ez(2), theta d3vrotate ey(0),ey(1),ey(2), ey(0),ey(1),ey(2), ez(0),ez(1),ez(2), theta d3vrotate ex(0),ex(1),ex(2), ex(0),ex(1),ex(2), ey(0),ey(1),ey(2), phi d3vrotate ez(0),ez(1),ez(2), ez(0),ez(1),ez(2), ey(0),ey(1),ey(2), phi theta=0 phi=0 return *draw_DigitizedPoints repeat 292 d3particle DigitizedPoints,pts(0,cnt),pts(1,cnt),pts(2,cnt),ParticleSize loop return *draw_sensor TP=5;transparent mode becase of invalidity of Z-buffer repeat TotalSensor x=sensor(0,cnt) y=sensor(1,cnt) z=sensor(2,cnt) exx=sensor(3,cnt)*snswidth exy=sensor(4,cnt)*snswidth exz=sensor(5,cnt)*snswidth eyx=sensor(6,cnt)*snswidth eyy=sensor(7,cnt)*snswidth eyz=sensor(8,cnt)*snswidth chx=x+weight*exx+eyx,x-exx+eyx,x-exx-eyx,x+weight*exx-eyx chy=y+weight*exy+eyy,y-exy+eyy,y-exy-eyy,y+weight*exy-eyy chz=z+weight*exz+eyz,z-exz+eyz,z-exz-eyz,z+weight*exz-eyz color 128,255,128 gmode TP,,,48 d3square chx,chy,chz chx=x+exx+eyx,x-weight*exx+eyx,x-weight*exx-eyx,x+exx-eyx chy=y+exy+eyy,y-weight*exy+eyy,y-weight*exy-eyy,y+exy-eyy chz=z+exz+eyz,z-weight*exz+eyz,z-weight*exz-eyz,z+exz-eyz color 128,255,128 gmode TP,,,48 d3square chx,chy,chz chx=x+exx+weight*eyx,x-exx+weight*eyx,x-exx-eyx,x+exx-eyx chy=y+exy+weight*eyy,y-exy+weight*eyy,y-exy-eyy,y+exy-eyy chz=z+exz+weight*eyz,z-exz+weight*eyz,z-exz-eyz,z+exz-eyz color 128,128,255 gmode TP,,,48 d3square chx,chy,chz chx=x+exx+eyx,x-exx+eyx,x-exx-weight*eyx,x+exx-weight*eyx chy=y+exy+eyy,y-exy+eyy,y-exy-weight*eyy,y+exy-weight*eyy chz=z+exz+eyz,z-exz+eyz,z-exz-weight*eyz,z+exz-weight*eyz color 128,128,255 gmode TP,,,48 d3square chx,chy,chz color 0,255,255 d3initlineto d3lineto x,y,z d3lineto x+exx,y+exy,z+exz d3lineto x+exx+eyx,y+exy+eyy,z+exz+eyz d3lineto x-exx+eyx,y-exy+eyy,z-exz+eyz d3lineto x-exx-eyx,y-exy-eyy,z-exz-eyz d3lineto x+exx-eyx,y+exy-eyy,z+exz-eyz d3lineto x+exx+eyx,y+exy+eyy,z+exz+eyz loop return