* SVG1.PRG -- Foxpro code generating ideology maps

clear
* set m_chamber to H to produce house106.svg; set to S to produce senate106.svg
m_chamber="H"

*p&r106.dbf consists of Poole and Roosenthal data for the 106th Congress imported into Foxpro
IF not used('p&r106')
 use p&r106
ENDIF 

GO TOP
If m_chamber="S"
SET ALTE TO senate106.svg
else
SET ALTE TO house106.svg
endif
SET ALTE ON
?"<?xml version = '1.0' encoding = 'UTF-8' standalone = 'yes'?>"
?"<svg xml:space='preserve' width='300' height='300'  viewBox='0 0 2200 2300' onload='onload(evt)'>"
?" <desc>mouseover demo</desc>"
   
?" <g style='stroke:#000000;stroke-width:1;font-family:Arial;font-size:16'>"
do while not eof()
if chamber=m_chamber
mx=INT(1100+(VAL(Coord1)*1000))
my=INT(1100-(VAL(coord2)*1000))
m_id=st+PADL(ALLTRIM(st_no),2,'0')
?"    <rect id="+chr(34)+m_id+chr(34)+" x=' "+lTRIM(str(mx,4))+"' y=' "+LTRIM(str(my,4))+"' height='30' width='30' style="
Do case
  case party_no="200" and chamber="S"
     ?chr(34)+"fill:#66CCFF"+chr(34)
  case party_no="200" and chamber="H"
     ?chr(34)+"fill:#66CCFF"+chr(34)
   case party_no="100" and chamber="S"
      ?chr(34)+"fill:#FF00FF"+chr(34)
   case party_no="100" and chamber="H"
      ?chr(34)+"fill:#FF00FF"+chr(34)
    case party_no="328"
      ?chr(34)+"fill:yellow"+chr(34)
Endcase
?"       onmouseover="+chr(34)+"setLegend('"+m_id+"'  , 'visible');"+chr(34)  
?"       onmouseout="+chr(34)+"setLegend('"+m_id+"' , 'hidden');"+chr(34)+"/>"

endif    && if chamber=''
skip

enddo
?" </g>"

go top
do while not eof()
mx=INT(1100+(VAL(Coord1)*1000))
my=INT(1100-(VAL(coord2)*1000))
if chamber=m_chamber
m_id=st+PADL(ALLTRIM(st_no),2,'0')
IF chamber="H"
   m_title="Rep."
   m_info=" ("+left(m_id,2)+"-"+right(m_id,2)+")"
ELSE
    m_title="Sen."
   m_info=" ("+left(m_id,2)+")"
ENDIF       

info=m_title+" "+proper(trim(mbr_last))+ m_info
if mx>1000
  mx=mx-999
endif  
?"	<g transform='translate("+lTRIM(str(mx+3,4))+ ","+LTRIM(str(my,4))+")' style='fill:rgb(176, 22, 40); font-family:Verdana; font-size:90; font-weight:bold'>"
		?"<text id='"+m_id+"Legend' style='visibility:hidden'>"+info+"</text>"
?"	</g>"
endif    && if chamber=''
skip
enddo

?"		<!-- text element 'tb' means 'top to bottom') -->"
?"<!-- ====================SOCIAL CONSERVATIVE====================================== -->"
?"	<g id='textLayout1' transform='translate(1100,70)'>"
?"  	<text style='font-family:Verdana; font-size:80; font-weight:800; fill:blue; text-anchor:middle'>"
?"    	SOCIAL CONSERVATIVE"
?"  	</text>"
?"	</g> "
?"<!-- ======================ECONOMIC CONSERVATIVE=========================== -->"
?"	<g id='textLayout2' transform='translate(2150, 850)' >"
?"  	<text x='0' y='275' style='fill:blue; font-family:Verdana; font-weight:800; font-size:80; writing-mode:tb; text-anchor:middle'>ECONOMIC CONSERVATIVE</text>"
?"	</g>"
?"<!-- ====================SOCIAL LIBERAL====================================== -->"
?"	<g id='textLayout3' transform='translate(1100, 2025)'>"
?"  	<text style='font-family:Verdana; font-size:80; font-weight:800; fill:blue; text-anchor:middle'>"
?"    	SOCIAL LIBERAL"
?"  	</text>"
?"	</g> "
?"<!-- ======================ECONOMIC LIBERAL=============================== -->"
?"	<g id='textLayout4' transform='translate(50, 750)' >"
?"  	<text x='0' y='275' style='fill:blue; font-family:Verdana; font-weight:800; font-size:80; writing-mode:tb; text-anchor:middle'>ECONOMIC LIBERAL</text>"
?"	</g>"

?"<!-- ===================================================== -->"
?"	<g  transform='translate(1100, 2125)'>"
?"  	<text style='font-family:Verdana; font-size:60; font-weight:800; fill:black; text-anchor:middle'>"
if m_chamber="S"
?"Ideological Map of 106th U.S. Senate"
else
?"Ideological Map of 106th U.S. House of Representatives"
endif
?"  	</text>"
?"	</g> "

?"	<g transform='translate(1100, 2225)'>"
?"  	<text style='font-family:Verdana; font-size:60; font-weight:600; fill:black; text-anchor:middle'>"
if m_chamber="S"
?"(hover mouse to display name of Senator)"
else
?"(hover mouse to display name of Representative)"
endif
?"  	</text>"
?"	</g> "


?"	<script>"
?"		<![CDATA["
?"		var doc;"
?"		function onload(evt){"
?"			var target = evt.getTarget();"
?"			doc = target.getOwnerDocument();"
?"	    }"
?"		function setLegend(legend, visibility){"
?"			var legendNode = doc.getElementById(legend + 'Legend');"
?"			legendNode.setAttribute('style', 'visibility:' + visibility);"
?"		}"
		
?"		]]>"
?"	</script>"
?"</svg>"

SET ALTE TO
RETURN