d.sites and displaying labels

GRASSER's:

Does anyone know of a way to display the site label automatically on
the graphics screen when using d.sites other than creating the label
interactively using d.labels/p.label etc.? We currently get creative
about it by converting the site to raster or vector and using d.what.rast/vect.
p.map does automatically plot the labels when the user chooses the 'yes' option
in the p.map script. Any similar tool for displaying directly on the
graphics terminal?

Perhaps I've missed something somewhere.
Thanks for any help and thoughts.

Mike Reynolds
NPS-Gunnison, Co.
mike@cure.nps.gov

Mike,
  I have a quickie program called d.sites.label that
I wrote at one time that does what you want. I must apologize
for the total lack of documentation but it's pretty simple
to use:

$ d.sites.label help

Usage:
d.sites.label sitefile=name [anchor=name] [color=name] [font=name]
   [width=value] [height=value]

Parameters:
  sitefile Site file to display labels for.
    anchor Direction beside site to place text
             options: c,n,s,e,w,ne,nw,se,sw
             default: c
     color Color to display text in
             default: green
      font Font to display text in
             default: romanp
     width Width of letters
             default: 10
    height Height of letters
             default: 10

To extract the program save this mail message in a file and
use the uudecode comand to un-encode it:

uudecode filename

This will create the file d.sites.label.tar.Z. Then do

uncompress < d.sites.label.tar.Z |tar xvf -

----------
Chris Lesher (clesher@ag.gov), LNK Corporation
c/o USDA Foreign Agriculture Service, Remote Sensing Branch, Wash. DC

begin 644 d.sites.label.tar.Z
M'YV09%S,24.GS!P7;,*(*</F!8"'$"-*G$BQHL6+&#-6A,'Q1HT:(`!PA!'#
M!HR0'&/(N$$#Y<B7(T'`J&%#1@P:-6/`D"$SQ@R3-@"`J*&QJ-&C2)-2K#.'
M3A@Y(F&P,8BF#%2E$]FX68/5(LR345^&[$JVK-FS:-$&'%CP8,*%#=N$2>/&
MQ9BT>,^.M$&C9=B28%.N]/L5Q@V2-F32M(E3!HR^/6D<OB$41M[+F"\R=0J5
MX]0Y5:^:U<H5[U>78C.K7LUZ]0L5/6++GDV[MNW;N'/KGJT@@6\0P$&L)6@0
MH4*&"G8K7\Z\N8H7"D;0'<.F#IDR('@T)<,FC1@7:'Q$GU>O8S:0Z&'^^&
MNG7LVNF02?,&O'CI[<O#ETL'C7T%T5UG!EW8$5&$$4%4P0057PSQ!!-/2`&"
M"&?(4489;H@08!D#NE'@@0DN^(413SA!Q81RO"&7&W!H.(*`!()@(((*,GA%
M$D10@<2$.KD(HX<R@ECC%T@4D<012)PH0H\;=O@AC2(^88014Q2A9`T^<ACC
MC"$R"`4300Q11!-%F#CA&!HJ(!==*#QUQA@L@."F'2DH0!<=<LKQY@X*C('&
M4R"H,.<67?"YAP+`-25''6/@^00<=-#G1J!LE?'%&Y#&*6A[:+PAQZ69!CK&
M&VQX"BH=FIKQAAMTG,IGHG0LVB@(CT:Z:J!WI$%&?Z=J6E4:9Z#1*J9TO`J"
MGX"J4.F`4QF+K!R!R@7''&44BR@(1B3!1!&4$O>%&6082\8;=8@Q%0AEA-%4
MG&YXVI^S?T*KPG5SC&'LG2#@P4(>][)Z+*F>]HLG'9BR(,8;=!#<!@M3F8&J
M',`*"R^@N;HQ[AU?N!%&&V5LP5>AURK**)Y#,3&%U6%008(%J*WZL3RAL%I
MP-?BF^NN:,3Y:[#6`O=LH*JRRN>UXY9[+A%?U/$%P5^0\46*=Z!0M+EEI!`G
MTDHS[?2H;$A-+M4I""R<'&%@7.D7;S&$`K[Z]I9`<,'AFP<+;L,-'+YOF&$&
MM:C6;;?-NO9']V]_^[NSL(._73B>7'N:N-W'Q@OTJGT3#O?/*A2$1^6*7RZY
M"G`D-$89'+,:-H#`'?$%>@.Y05";>MJQ!0Q=G!ZRM\2"T`,(JO]H*;&2HG!Z
MHKA#VH(/:Y21A^X3+IO&5"(8>S:QQ].1!QS8[4Y%%E`4\<445$B1A!-'2%\\
M'<=;&$<=:5BX\NY9%#&%^06=>CR]8T`,J:3,BS`%<2!@%G8()ISTA"X,RTL;
M&^800$^Y('JHD]/,/I6[W?5.2QXZ5?"&)T$_F8IZR%->_V3F03E`$#@D[!0%
MC><#ZV&/>=OKWO?"-[[R72N%'V2A^MCG/N8YX0G&PN$*T><#_.G/5I/:G0B(
MT+XR-(I_"QF(>2H%`@(><'15+,/F3MA!%=K/!S*;PQVLPCPN#>E+81I3F:@0
MQ`E^$7BK8J`2X>0&%LR!!65@P1U8X"$^[I%:=KP#!*_5N"$R[X).TN"JA.<L
M@`WQ>,E;WAP=R<5"?M&%V0-!#+T'/O&1KY&E>J0/=MC$]X'@AZ#,(1&-F(;]
MW4J)0W!D%=]0P#D<<'F:PQ-=*NG(+X9QC-#:G1E%Y"`(26%HP`G:L"!UR*9A
M\'>N=`,CKZ7,+T:R?\KD8C5!B$D8<H^3-/PD-2GW15+V<'>H'">KOLC*:/;/
M")2;92UOF<7-@6"7QMHF"W])1F$*240D,A$R07`S7E60=\Y,)!RER<&"HL&:
M(E2B0[GHT$M>+Y.;_,+XJ%"$(Q3AF->J*`C-6093IA,X(F5A.Y'8ORL$#@T@
MR!L(II(PJ\R!HB_UI1O$V,\@0<E&.-+10`^W3#Q9,*$$4B1#C454B$IR0D3E
M8E.Y>5%ORG"C'?TH4\L0L:*FKPSK*Z4/@7BMJ:K4(/EK)4N5B`2N\BRF9IAI
MM0HBAYMNM:LZY6DP?=HE(AD)26P$4,W,@`+5P>$IU)(#[-X4ISFEH$YPT^+K
M8F`[XA5$@,R;WCYW"DQC28MOS>R0TP2(`A&<K3M-N6F<G#>5.(E`!`U]*?/"
M0+`TH""E1.2G'#A(U-G6%@5FS2UGK<)!93)/G\+5:RKWBK18A3$A]2LD"BP)
M0MUR,`V$+:3N=@>#%(#@4)>3Y>YB8*P^1!"[*/ALM;9[2@4QP;O@#8X9X``Q
M5A%V.U:1@VN'TQ;CP$4'((AE'=BPLG;A"5,8`D&E&(C9$AR$"QD:'-Q86S5C
M`4>R=$`!9<L;02'.UHW5':X<!GHV<(46P6[XPH(O16`44#A.ZJ7#=>_K+1/'
MIKU,>.]WKY5,^M[IOO+)KVM%^P7JO(%:*B8.@`5,8!`8.*;8F]2"`_@\[#@8
MPB*0<'`HS$'@6(@.=9"#-&7`0?->2W5GJ):*U5RQBZ'`!"V35&5!(`508:AI
M$+.#5:8)'*3QK0YP0$%WC86T-+=J#&'^0IMO2Y>+96QC%;Z6G]6,Z$\MNLUO
MP)C&.,;!0JNY7A:Z,Z:C9@*"P2%.)CA8PE2$ZH:A"@1P[BH'Z\PW13<ZTR@P
MM<$0IC"&<>AALA[H'=!0912T(`8@",%1#9WD@KBXQF1`=;K6!>MVR4%PL,;?
M8W<,-_1.FPX\B/.J7##&IH"`#WQ`E[KH,HRN*PNWSXW'W@,-VOW)]SNEI1`
MR-4?>3O97>$1=UWLC0;(VLW"Z%H@=N(+-SPP;VVFP]K2WM"T(I,*!=_N<G">
M"G$92UQK3\,UP34.'#*0S6S>4B`*]#6W&NCQI2P@*@L*R0)EL@!_+!"BQLT+
M')[3N<BE0K+)TZ!GQ9[.O*U)NM*7SO2F._WI4(^ZU*?.W^(H\`5'D$OR!#CU
MR^P%,G\QB4M4PA+4P(0&,IB!8G+2F,>TA"0U0'L,*M/UND-D,T^)RF="@Q;2
MY.4T88F)W0=/>*.,(#J\T[J6SJ4J:%7=+<=A0W0`Q(0D"$%^S",!"HB0A"F@
M,0N5%X)W-2^%((#OHZ$?/0H<%*$A.,$*J0>!YH_0^=13OO,GVIW)R]9L2RG0
M!;1<4UW>H``H'*$)F4>!$,;WA2`P`0I("$*#FD"$%+S@\?Y%C@(T;_PFI`#`
MFJ\\^%0?>OG5*0&:'\(0R$\$(X#I"%/P;@MH20(@`"?\N">_Y<V_?124/_X`
M=GA],A4RHP.](0=M``(M(`=Q]01"H`0NH'E!(`5#@`3>I0)^H``Q4`,ZT!9T
MQ3!IP"$*,`=Y,`<JTP9TH0,JH`,E88!.@3TJR((WX()C(`8Q&`,X8(`G>(,Y
MH`,GJ``(1C8$(P<QZ!@&"#%S4(0Q8(`K8(!R,@:C4@>LH@,OP!1R\`+=(095
MR"APH(-UT!\Q:`,LN(1!\(55P2II,`:TQ3]34"XDV!2D0X5T4(,O(`8IV"<I
MX@8Q.(,WH0-#D(<@T(9B\(8%T094:(4O<((OD#^K8H!LT(4KF(,JH0-,$"-0
M4%]T%8AN6(*%B'U7MWLH5S^_=Q>%9Q1?1Q@I(79107:H"!,R8!+(-A-L5Q-N
MUQ.3$10R48I2AW>=(154815]MQ5_!Q-FQQ%CH8O(J(NOT1S,V(S.Z#:*`XJ]
MAS:19Q?)X8S8F(VX\1QVXB_2>%J1UW'Y\CAQXR]SXS=WXR]YLS?50H[IB"<.
MY8[W9#ANA3CH.(^,XTCRB#DV=X^8DTO[^#E71#H8(F,*$%_X0@;Z0@;\4C/^
M,@=O(#:ZIFJ]YFHL`#$\(S93X09G\"X15&=M\`9Z]@4*,0<KMR^SMC1:U"H#
MH0=EP&@XHS/U*&/&0FM.83%/L36.-%V.E)+*A`+*-&=UQFRY]`4'@P>YMI*H
MIFNP1I&L!FL6"6L8*2P<M)$="5.[,Y7HXVH#]1H@T`1O,!]F@$M5`0)P<&0$
MP3_7$67SP9$Q-2G]@1WK"%HRLS(#63IXPHV)0DN[TW$I@`)>8S15,Y?5\@(Q
MX`(T<!,SYF*Q,@9M$&AW69"NE2'>=6/=Q6W!H9`]T`)6V1\O(`,(QY";29@]
M`P)]D'#4<D]`)@>."9FB0Y"LXEHW59G<!5_TIIF<B2%7^9FAF0<]0)HK0%3E
MA9K8@5Z*TIHH$)FQ.2%E`%OL=9D,)QQX\)MZPS>]V0-$Q9O7<IH,D9K&V9B/
MF9ROB9>N)4BT*1.V"3>X29JYR9$>J9Z^F9V@N9W$J9J,R9KAJ9RO)@(>XIR6
MF9Z9.9T0>9TM,*#TV9W%N9K(J9^3:9[/":`E-YWM>94%&I&WZ9L5.IP(:I_'
MF9_C*9G-TYSG"9VW*:`6"I_8.9,K8*`]5Y_?B9^N&0:C0Y[-XZ#_B9D1NIF=
MB089>J$IVE4K>J*FZ:(*ZJ$R"IO[B28C"J'2J:.ZZ9GSB:+RR6'7`I(B:2D6
MTC4*>7-YD)*YE)2;<W0*D(QD6J9F>J9HFJ9JNJ9LVJ9N^J9P&J=R.J=T6J=V
1>J=XFJ=ZNJ=\VJ=^^J>`>AED
`
end