./0040755000000000000000000000000010117642604007716 5ustar rootroot./target.nav0100664000000000000000000000004110117642506011705 0ustar rootrootSzentendrei ut,47.57857,19.04904 ./actdata.nav0100644000000000000000000000003110117642506012015 0ustar rootroot47.654880 19.691077 50 0 ./chtrg.sh0100777000000000000000000000427310117642506011374 0ustar rootrootif test -z "$1" then echo " " echo "chtrg.sh cannot run. Parameter expected!" echo "Usage: chtrg.sh target_file [qualifier_string]" echo " " exit else clear echo "Target loader started" echo "Indexing database..." if test -z "$2" then cat $1 | sort | awk ' BEGIN { FS="," indx=0 } { indx++ if (indx<10){ print ("0"indx, substr($1,1,22)) } else{ print (indx, substr($1,1,22)) } }' > trgindexed.dat else cat $1 | sort | awk ' BEGIN {FS=","} {print $1}' | grep "${2}" | awk ' BEGIN { FS="," indx=0 } { indx++ if (indx<10){ print ("0"indx, substr($1,1,22)) } else{ print (indx, substr($1,1,22)) } }' > trgindexed.dat fi sleep 1 clear TNUM=`cat trgindexed.dat | wc -l` if test $TNUM -gt 66 then clear echo "Too many items found in database. You have to use any qualifier as the following:" echo " " echo "chtrg.sh [qualifier_string]" echo " " echo "for example: chtrg.sh mycoords.dat Ma will display targets only from nycoords.dat which are contain the string Ma" echo " " echo " " exit fi if test $TNUM -eq 0 then echo " " echo "String \""$2"\" not found in database!" echo "Done." exit else cat trgindexed.dat | awk ' BEGIN{ xpos=1 ypos=0 } { ypos++ if ((ypos>22) && (xpos==1)){ ypos=1 xpos=27 } if ((ypos>22) && (xpos==27)){ ypos=1 xpos=54 } print("\033["ypos";"xpos"H"$0) }' echo -e "\033[24;1HChoice:" read TRGNUM SSTRING=`cat trgindexed.dat | awk -v TRGNUM=$TRGNUM ' BEGIN{ bv=0 } { if (TRGNUM==substr($0,1,2)){ print(substr($0,4,length($0)-2)) bv=1 } } END{ if (bv==0) print("NONE") }'` TE=`cat $1 | grep "$SSTRING" | wc -l` clear if test $TE -eq 1 then cat $1 | grep "$SSTRING" >target.nav echo "Target loaded. Ready to navigation." echo " " else echo "Something wrong! Target not loaded!" echo " " fi fi fi ./store.sh0100777000000000000000000000063310117642506011415 0ustar rootrootif test -z "$1" || test -z "$2" then echo " " echo "store.sh cannot run. Parameter expected!" echo "Usage: store.sh target_file_name target_name" echo " " exit fi LDATA=`cat actdata.nav` LAT=`echo $LDATA | awk '{print $1}'` LON=`echo $LDATA | awk '{print $2}'` if test -f "$1" then echo $2","$LAT","$LON >>$1 else echo $2","$LAT","$LON >$1 fi echo " " echo "Location stored to "$1 echo " " ./nearest.sh0100777000000000000000000000453310117642506011725 0ustar rootrootif test -z "$1" then echo " " echo "nearest.sh cannot run. Parameter expected!" echo "Usage: nearest.sh target_file" echo " " exit else clear echo "Searching the nearest object from here in file "$1"..." echo " " NI=`cat $1 | wc -l` echo $NI" items found. Sorting, please wait..." DATA=`cat actdata.nav` RLAT=`echo $DATA | awk '{print $1}'` RLON=`echo $DATA | awk '{print $2}'` TRGNAME=`cat $1 | awk -v RLAT=$RLAT -v RLON=$RLON ' BEGIN{FS="," OFMT="%f" LINLON=0.761 LINLAT=1.112 INDX=0 } #Functions: function abs(x) { if (x<0) x=(-1)*x return x } #Main program { split ($0,TA,","); TNAME=TA[1] TLAT=TA[2] TLON=TA[3] DTLAT=TLAT*100000-RLAT*100000 DTLATM=abs(DTLAT)*LINLAT DTLON=TLON*100000-RLON*100000 DTLONM=abs(DTLON)*LINLON DISTM=sqrt((DTLONM^2)+(DTLATM^2)) if (DISTM<500000){ DISTS[INDX]=int(DISTM) NAMES[INDX]=TNAME } else{ DISTS[INDX]=600000 NAMES[INDX]="TOO FAR" } INDX++ } END{ #print (INDX" items found. Sorting, please wait...") for(i=0;iDISTS[j+1]){ DDEPO=DISTS[j] DISTS[j]=DISTS[j+1] DISTS[j+1]=DDEPO NDEPO=NAMES[j] NAMES[j]=NAMES[j+1] NAMES[j+1]=NDEPO } } } print(NAMES[0]","DISTS[0]","NAMES[1]","DISTS[1]","NAMES[2]","DISTS[2]","NAMES[3]","DISTS[3]",") } '` echo " " echo $TRGNAME | awk ' BEGIN{ FS=","} { print("1.) "$1" "$2" m") print("2.) "$3" "$4" m") print("3.) "$5" "$6" m") print("4.) "$7" "$8" m") }' echo "q.) To quit." echo " " echo "Enter your choice:" read ch if test $ch = "q" then echo " " exit else case $ch in "1") SSS=`echo $TRGNAME | awk 'BEGIN{FS=","} {print $1}'`;; "2") SSS=`echo $TRGNAME | awk 'BEGIN{FS=","} {print $3}'`;; "3") SSS=`echo $TRGNAME | awk 'BEGIN{FS=","} {print $5}'`;; "4") SSS=`echo $TRGNAME | awk 'BEGIN{FS=","} {print $7}'`;; esac fi echo " " TE=`cat $1 | grep "$SSS" | wc -l` if test $TE -eq 1 then cat $1 | grep "$SSS" >target.nav echo "Location of "$SSS" loaded. Ready to navigation." echo " " else echo "Something wrong! Target not loaded!" echo " " fi fi ./trgindexed.dat0100644000000000000000000000067310117642506012551 0ustar rootroot01 Andor u. 02 Arpad hid 03 Auchan 04 Budagyongye 05 Don pepe pizza 06 Erzsebet hid 07 Erzsebet ter 08 Ferihegy2 09 Florian ter 10 Gazdagreti ter 11 Gilicze ter 12 Gubacsi hid 13 Hiedkuti ut 14 Kos Karoly ter 15 Kosztolanyi D. ter 16 Lagymanyosi hid 17 Lanchid 18 Margit hid 19 Nagyszenas ter 20 Nagytetenyi Bfok 21 Orban ter 22 Osztyapenko 23 Petofi híd 24 Szabadsag hid 25 Szabhegy 26 Szent Laszlo IV.ker 27 Szentendrei ut 28 Veres Peter ut ./locationdata/0040755000000000000000000000000010117642506012361 5ustar rootroot./locationdata/mycoords.dat0100644000000000000000000000154010117642540014705 0ustar rootrootAndor u.,47.45597,19.03990 Arpad hid,47.53759,19.05375 Auchan,47.41924,19.15886 Budagyongye,47.51632,18.99931 Don pepe pizza,47.47122,19.16328 Erzsebet hid,47.49094,19.04920 Erzsebet ter,47.43966,19.10612 Ferihegy2,47.43172,19.26097 Florian ter,47.54089,19.04109 Gazdagreti ter,47.47380,18.99288 Gilicze ter,47.43145,19.18227 Gubacsi hid,47.43617,19.08833 Hiedkuti ut,47.55189,18.96414 Kos Karoly ter,47.45566,19.12604 Kosztolanyi D. ter,47.47544,19.04056 Lagymanyosi hid,47.46873,19.06960 Lanchid,47.49900,019.04380 Margit hid,47.51479,19.04354 Nagyszenas ter,47.48043,19.27663 Nagytetenyi Bfok,47.40616,19.01378 Orban ter,47.49968,19.00846 Osztyapenko,47.46075,18.99887 Petofi híd,47.47885,19.06342 Szabadsag hid,47.48581,19.05503 Szabhegy,47.49747,18.98950 Szent Laszlo IV.ker,47.56869,19.09554 Szentendrei ut,47.57857,19.04904 Veres Peter ut,47.51136,19.19217 ./locationdata/otpatmbp.dat0100644000000000000000000001400710117642540014676 0ustar rootrootAUCHAN,47.42025,19.15682 Ady Endre utca 122,47.45286,19.14259 Alagut utca 3,47.49716,19.03348 Albertirsai ut 10,47.49148,19.12415 Andrassy ut 23,47.50187,19.05851 Andrassy ut 6,47.50073,19.05638 Andrassy ut 83,47.50897,19.06931 Anker koz 2,47.49822,19.05557 Apaczai Cs. J. utca 10,47.49658,19.04877 Apor Vilmos ter 11,47.49039,19.01565 Arpad fejedelem ut 8,47.52102,19.03784 Arpad ut 112,47.56032,19.09848 Arpad ut 63,47.56042,19.08933 Arpad ut 87,47.55998,19.09286 Balaton utca 7,47.51136,19.04906 Baross utca 67,47.48967,19.07371 Bartok Bela ut 54,47.47848,19.04951 Bartok Bela ut 66,47.47679,19.04476 Bartok Bela ut 94,47.47445,19.03821 Bathory utca 9,47.50605,19.05107 Batthány ter METRO,47.50643,19.03778 Becsi ut 132,47.53942,19.03132 Beke ter 1,47.53031,19.08072 Bogdani ut,47.55017,19.04227 Bosnyak,3,17,17,47.51999,19.11421 Boszormenyi ut 25,47.49240,19.01631 Boszorményi ut 9,47.49576,19.01977 Budafoki ut 103,47.46701,19.05300 Budaorsi ut 49,47.47410,19.02242 Cegledi ut 3,47.47180,19.11102 Cinkotai ut 2,47.48272,19.24255 Csobanka ter,47.5931,19.05227 Csokonai utca 3,47.45685,19.14779 Dayka G. utca 3,47.47174,19.01961 Deak F. utca 7,47.49620,19.05104 Deak ter METRO,47.49706,19.05412 Diosarok utca 1,47.50901,19.00873 Dozsa Gyorgy ut 110,47.51722,19.07377 Dozsa Gyorgy ut 14,47.50337,19.08958 Eotvos ut 2,47.49776,18.98773 Erzsebet korut 41,47.50132,19.06815 Erzsebet utca 50,47.56367,19.09572 Feher ut 1,47.50275,19.13635 Fehérvari ut 102,47.46208,19.04228 Feny utca 5,47.50909,19.02454 Ferenc korut 13,47.48206,19.06871 Ferenciek tere 10,47.49313,19.05614 Ferihegyi ut 2,47.47978,19.25663 Fiumei ut 19,47.49678,19.08271 Fiumei ut 9,47.49777,19.08086 Florian ter 15,47.54105,19.04158 Fo ut 64,47.56450,19.12032 Fogarasi,2,15,15,47.50363,19.11899 Gazdagreti ter 7,47.47344,18.99352 Gorgey A. utca 30,47.56521,19.09998 Grassalkovich utca 128,47.40151,19.11375 Grassalkovich utca 162,47.39946,19.11447 Gyomroi ut 79,47.45731,19.17678 Gyongyosi ut METRO,47.54968,19.07401 Haller utca 5,47.47558,19.07329 Harmat utca 6,47.48875,19.13779 Haros utca 10,47.41158,19.02509 Harrer P. utca 4,47.54340,19.04497 Havashalom utca 43,47.51539,19.16998 Hegyalja ut 14,47.48902,19.03456 Heltai Jeno ter 9,47.59774,19.05737 Hertelendy utca 4,47.49442,19.02288 Hess Andras ter 3,47.50277,19.03317 Hungaria korut 149,47.51407,19.09584 Huvosvolgyi ut 116,47.53126,18.97790 Huvosvolgyi ut 23,47.51907,18.99405 IKEA,47.50522,19.13893 Iskola utca 38,47.50608,19.03677 Jagello ut 20,47.48835,19.02039 Jaszberenyi ut 11,47.49150,19.14545 Jozsef A. ter 4,47.54647,19.08269 Jozsef Nador ter 10,47.49866,19.05046 Jozsef korut 33,47.49232,19.07095 Jozsef korut 36,47.49222,19.07125 Jozsef korut 53,47.48967,19.07049 KOKI METRO,47.46257,19.14912 Kaldor utca 9,47.42947,19.03952 Kalotaszeg ut 31,47.45844,19.04491 Kalvaria ter 18,47.48923,19.08650 Kalvin ter,47.48979,19.06217 Kapas utca 22,47.50981,19.03356 Karinthy F. ut 4,47.47685,19.05115 Karolina ut 27,47.47923,19.03122 Karoly korut 1,47.49596,19.05915 Kekgolyo utca 13,47.50041,19.02252 Keleti K. utca 5,47.51191,19.03050 Keleti PU,47.49986,19.08433 Kerek utca 18,47.54648,19.04205 Kerepesi ut 17,47.49953,19.08708 Kerepesi ut 49,47.50020,19.10992 Kerepesi ut 73,47.50465,19.15057 Kiraly utca 49,47.50191,19.06272 Konkoly T.M. ut 33,47.48696,18.95539 Kordovan ter 4,47.58743,19.11320 Korosi Cs. setany 6,47.48417,19.13002 Kossuth L utca 31,47.42608,19.03852 Kossuth L. utca 2,47.49341,19.05598 Kossuth L. utca 46,47.43898,19.10514 Kossuth L. utca 86,47.43222,19.07062 Kossuth L. utca 99,47.43014,19.07023 Kossuth L.utca 32,47.43685,19.10138 Kossuth ter 4,47.45825,19.14499 Koztelek utca 6,47.48676,19.06572 Krisztina korut,47.49942,19.02517 Kutvolgyi ut 4,47.51082,19.00630 Labanc utca 57,47.51935,18.98150 Lajos utca 23,47.52600,19.03821 Lehel ut 59,47.52730,19.07925 Lobogo utca 18,47.46178,19.11638 Madarasz utca 5,47.54435,19.07392 Maglodi ut 91,47.47832,19.16439 Marcibanyi ter 3,47.51240,19.02151 Margit korut 10,47.51423,19.03573 Margit utca 114,47.51761,19.19174 Moszkva ter METRO,47.50705,19.02468 Mozaik utca 5,47.55356,19.04573 Móricz Zs.,3,18,18,47.47783,19.04829 Nador utca 21,47.50220,19.04905 Nagy LK.,2,19,21,47.50740,19.13295 Nagysandor J. utca 1,47.43132,19.10128 Nagysandor J. utca 54,47.43551,19.10937 Nagytetenyi ut 284,47.39275,18.98507 Nagyvarad ter 4,47.47926,19.09001 Nanasi ut 67,47.57288,19.06210 Nepfurdo,1,38,38,47.54144,19.06326 Nyugati PU,47.51130,19.05931 Nyugati ter 9,47.51015,19.05565 Orjárat utca 1,47.53966,19.12272 POLUS CENTER,47.55183,19.14112 Pesti ut 368,47.47046,19.29008 Pestujhelyi ut 66,47.54143,19.12972 Piheno utca 1,47.52163,18.94145 Pozsonyi utca 56,47.52108,19.05306 Pusztaszeri ut 59,47.52507,19.02354 Rakoczi ut 50,47.49745,19.07115 Rakoczi ut 84,47.49902,19.07694 Rakos ut 75,47.55316,19.11834 Robert K. korut 44,47.53031,19.07076 Roman utca 2,47.48158,19.13243 Schweidel utca 6,47.48627,19.02628 Semmelweis utca 11,47.49513,19.05790 Soroksari ut 6,47.47990,19.06817 Stefania ut 85,47.50954,19.09363 Szabadsag ter 7,47.50361,19.05144 Szabolcs,1,36,36,47.51981,19.07170 Szena ter 7,47.50780,19.02715 Szent Imre ter 10,47.43038,19.06917 Szent Istvan korut 1,47.51298,19.04831 Szeruskert utca 39,47.55682,19.04303 Talas utca 2,47.46291,19.13158 Tatra utca 10,47.51390,19.05078 Terez korut 18,47.50539,19.06289 Tetenyi ut 63,47.46416,19.03304 Tetenyi,2,12,16,47.47935,19.03382 Teve utca 6,47.53238,19.06910 Thokoly,2,102,102,47.51086,19.09790 Tinodi utca 11,47.47966,19.07129 Torokvesz utca 1,47.52020,19.02194 Ujhegyi setany 14,47.46976,19.16167 Ujtelep utca 2,47.41572,19.13360 Ulloi ut 129,47.47605,19.09704 Ulloi ut 135,47.47515,19.09965 Ulloi ut 26,47.48719,19.06726 Ulloi ut 285,47.45395,19.15313 Ulloi ut 377,47.44668,19.16973 Ulloi ut 436,47.44056,19.18513 Ulloi ut 78,47.48298,19.07853 Uzsoki utca 29,47.51861,19.10205 Vaci ut 156,47.53915,19.06935 Vaci ut 168,47.54552,19.07177 Vaci,2,48,48,47.51857,19.06050 Vamhaz korut 13,47.48811,19.05967 Vasut utca 48,47.40393,19.18704 Vorosmarthy ter 1,47.49732,19.05023 Wesselenyi utca 20,47.49755,19.06332 Zach M. utca 14,47.49391,19.11385 Zahony utca 10,47.56150,19.04937 Zsokavar utca 28,47.54105,19.14323 ./stopnav.sh0100777000000000000000000000053510117642506011754 0ustar rootrootty=`cat navtty.work` echo "Stopping navigator processes" P2=`ps -ef | grep $ty | grep -v gre | awk '{ print $2}'` echo "PIDs: "$P2 kill $P2 echo "" | awk '{print"\033[?25h\033[?0c"}' >/dev/$ty echo "" | awk '{print"\033[H\033[J"}' >/dev/$ty echo "" | awk '{print"PSILINUX NAVIGATOR STOPPED.\nThank you for usage.\nASTLAB PRUSOFT c 2004"}' >/dev/$ty ./stpengine/0040755000000000000000000000000010117642506011713 5ustar rootroot./stpengine/setupengine.sh0100755000000000000000000000200710117641006014566 0ustar rootrootclear echo "Sending Setup to U-BLOX GPS engine..." echo " " echo "Switching to NMEA protocol." stty -F /dev/ttyAM1 19200 sleep 1 cat swnmea.dat >/dev/ttyAM1 sleep 4 echo "Setting communication speed to 19200 baud." stty -F /dev/ttyAM1 4800 sleep 1 cat swbr192.dat >/dev/ttyAM1 sleep 3 cat swbr192.dat >/dev/ttyAM1 sleep 1 stty -F /dev/ttyAM1 19200 sleep 1 echo "Switching off GSV query control." cat swoffgsvqc.dat >/dev/ttyAM1 sleep 2 echo "Switching off GSA query control." cat swoffgsaqc.dat >/dev/ttyAM1 sleep 2 echo "Switching off GGA query control." cat swoffggaqc.dat >/dev/ttyAM1 sleep 2 echo "Switching on GLL query control." cat swongllqc.dat >/dev/ttyAM1 sleep 2 echo "Switching on VTG query control." cat swonvtgqc.dat >/dev/ttyAM1 sleep 2 echo " " echo "GPS engine ready to use." echo " " echo "Do you want to test it? (y/n)" read ch if test $ch = "y" then echo " " echo "If you are getting NMEA sentences within 5 seconds, GPS engine is working." echo "You can exit with ctrl-c." sleep 5 cat /dev/ttyAM1 fi ./stpengine/swbr192.dat0100644000000000000000000000003307454270607013620 0ustar rootroot$PSRF100,1,19200,8,1,0*38 ./stpengine/swnmea.dat0100644000000000000000000000004007454270607013677 0ustar rootroot ˘Ŕj°ł./stpengine/swoffggaqc.dat0100644000000000000000000000003107454270607014534 0ustar rootroot$PSRF103,00,00,00,01*24 ./stpengine/swoffgsaqc.dat0100644000000000000000000000003107454270607014550 0ustar rootroot$PSRF103,02,00,00,01*26 ./stpengine/swoffgsvqc.dat0100644000000000000000000000003107454270607014575 0ustar rootroot$PSRF103,03,00,00,01*27 ./stpengine/swongllqc.dat0100644000000000000000000000003107454270607014416 0ustar rootroot$PSRF103,01,00,01,01*24 ./stpengine/swonvtgqc.dat0100644000000000000000000000003107454270607014440 0ustar rootroot$PSRF103,05,00,01,01*20 ./startnav.sh0100755000000000000000000000033210117642506012113 0ustar rootrootty=`tty | awk '{print(substr($0,length($0),1))}'` echo "tty"$ty > navtty.work echo "Setup serial device" stty -F /dev/ttyAM1 19200 -echo echo "Starting navigator" navparser.sh & echo "Starting display" navdisplay.sh & ./navparser.sh0100755000000000000000000000071310117642506012255 0ustar rootrootcat /dev/ttyAM1 | awk -W interactive ' BEGIN{FS="," OFMT="%f" } /\$GPGLL/{ LATE=substr($2,1,2) LATT=substr($2,3,7) RLAT=LATE+LATT/60 if ($3=="S") LAT=(-1)*LAT LONE=substr($4,1,3) LONT=substr($4,4,7) RLON=LONE+LONT/60 if ($5=="W") LON=(-1)*LON; } /\$GPVTG/{ VTGANG=$2 SPEED=$8 outfile="actdata.nav" print RLAT,RLON,int(VTGANG),int(SPEED) > outfile close(outfile) # print RLAT,RLON,int(VTGANG),int(SPEED) > navpipe } ' ./csron.sh0100777000000000000000000000005410117642506011402 0ustar rootrootecho "" | awk '{print"\033[?25h\033[?0c"}' ./navtty.work0100644000000000000000000000000510117642506012140 0ustar rootroottty1 ./navdisplay.sh0100755000000000000000000001666610117642506012444 0ustar rootrootclear echo "" | awk -W interactive '{print("\033[?25l\033[?1c")}' echo "" | awk -W interactive ' function printborder(x,y) { print("\033["y";"x"H -------------------- ");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H| |");y++ print("\033["y";"x"H -------------------- ");y++ } { print("\033["1";"16"HPSILINUX GPS NAVIGATOR V1.0 ASTLAB-PRUSOFT c 2004") print("\033["4";"13"HTARGET DIRECTION TARGET DISTANCE IN METERS") printborder(10,5) } ' while true do DATA=`cat actdata.nav` RLAT=`echo $DATA | awk -W interactive '{print $1}'` RLON=`echo $DATA | awk -W interactive '{print $2}'` VTGA=`echo $DATA | awk -W interactive '{print $3}'` SPD=`echo $DATA | awk -W interactive '{print $4}'` echo"" | awk -W interactive -v RLAT=$RLAT -v RLON=$RLON -v VTGANG=$VTGA -v SPEED=$SPD ' BEGIN{FS="," OFMT="%f" LINLON=0.761 LINLAT=1.112 print("\033[?25l\033[?1c") } #Functions: function printbunko(x,y,r) { if (r==1) print("\033[7m") print("\033["y";"x"H ");y++ print("\033["y";"x"H ") if (r==1) print("\033[0;10m") } function printbignum(x,y,num) { if (num==0){ print("\033["y";"x"H ");y++ print("\033["y";"x"H "); print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ } if (num==1){ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ } if (num==2){ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ } if (num==3){ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ } if (num==4){ print("\033["y";"x"H ") print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ") print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ") print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ } if (num==5){ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ } if (num==6){ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x"H ") print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ") print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ } if (num==7){ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ } if (num==8){ print("\033["y";"x"H ");y++ print("\033["y";"x"H "); print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ } if (num==9){ print("\033["y";"x"H ");y++ print("\033["y";"x"H "); print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x+3"H "); print("\033["y";"x"H ");y++ print("\033["y";"x"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x+3"H ");y++ print("\033["y";"x"H ");y++ } } function printbignumber(px,py,number) { lnum=int(5*length(number)/2) kpx=px-lnum for(ty=py;ty10) && (k<=27)){ px=bx+19 py=by-10+k } if((k>27) && (k<=46)){ px=bx+47-k py=by+19 } if((k>46) && (k<=63)){ px=bx+1 py=by+66-k } if(k>63){ px=bx-63+k py=by+1 } if (length(direction)==1) print("\033["by+10";"bx+9"H00"direction"\260"); if (length(direction)==2) print("\033["by+10";"bx+9"H0"direction"\260"); if (length(direction)==3) print("\033["by+10";"bx+9"H"direction"\260"); printbunko(px,py,1) } function abs(x) { if (x<0) x=(-1)*x return x } #Main program { infile="cat target.nav" infile | getline id close(infile) split (id,TA,","); TLAT=TA[2] TLON=TA[3] TNAME=TA[1] DDS=0 DTLAT=TLAT*100000-RLAT*100000 if (DTLAT<0) DDS=DDS+1 DTLATM=abs(DTLAT)*LINLAT DTLON=TLON*100000-RLON*100000 if (DTLON<0) DDS=DDS+2 DTLONM=abs(DTLON)*LINLON DDSF=0 DISTM=sqrt((DTLONM^2)+(DTLATM^2)) if ((DTLONM!=0) && (DTLATM!=0)){ if (DTLATM/DTLONM<1){ ALFA=atan2(DTLATM,DTLONM)*180/3.141592 } else{ ALFA=90-(atan2(DTLONM,DTLATM)*180/3.141592) } } if (DTLONM==0) ALFA=90 if (DTLATM==0) ALFA=0 if (DDS==0) DIR=90-ALFA if (DDS==1) DIR=90+ALFA if (DDS==2) DIR=270+ALFA if (DDS==3) DIR=270-ALFA CSRDIR=DIR-VTGANG if (CSRDIR<0) CSRDIR+=360 if (SPEED>5) printdirection(10,5,int(CSRDIR)) if (DISTM<500000) printbignumber(52,6,int(DISTM)) print("\033["15";"47"HTARGET DATA") print("\033["16";"42"HNAME: "TNAME" ") print("\033["17";"42"HLAT : "TLAT" ") print("\033["18";"42"HLON : "TLON" ") print("\033["20";"45"HACTUAL LOCATION") print("\033["21";"42"HLAT : "RLAT" ") print("\033["22";"42"HLON : "RLON" ") print("\033["24";"42"HCOURSING SPEED "int(SPEED)" Km/h ") print("\033[25;33H ") } ' done