list($years,1837,1838,1839,1840,1841,1842) list($mapNum,0,1,2,3,4,5) list($maps,1837map,1838map,1839map,1840map,1841map,1843map) list($which,0) segment($which,$$curYear,$years,$mapNum) radioshow($which,30,$maps) copy($$CurMap,$maps.$which) status(Double-click on a county to see information) list($slots,0,1,20,50,100) list($colors,0xffffff,0xffb9b9,0xff0000,0xbb0000,0x990000) list($titles,Total Slaves,Slaveholder Population,Slaveholders with 1-4,Slaveholders with 5-9,Slaveholders with 10-19,Slaveholders with 20-49,Slaveholders with 50+) list($tables,slave_pop,master_pop,1_to_4,5_to_9,10_to_19,20_to_49,50_plus) copy(*myGraph.title,$titles.$$param) copy($$CurQuery,$tables.$$param) query($temp,sqldata,$$CurQuery,year EQ $$curYear,mapid) segment(*$$CurMap.col,$temp,$slots,$colors) refresh($$CurMap) show(usmap,50); show(rivers,80); query($temp,sqldata,$$CurQuery,name EQ $$CurCounty,year) dataset(myGraph,0,*graphCounty,$temp) copy($$CurCounty,*graphCounty) copy(myGraph.legend,$$CurCounty); refresh(myGraph)

$$1 County, $$2

Total number of slaves: $$3
Total number of slaveholders: $$4
Slaveholders holding:

  • 1-4 slaves: $$5
  • 5-9 slaves: $$6
  • 10-19 slaves: $$7
  • 20-49 slaves: $$8
  • 50+ slaves: $$9
    • Holdings of largest slaveholder: $$10
    Average slaveholding: $$11
    Estimated: $$12

    ]]> query($out,sqldata,name+year+slave_pop+master_pop+1_to_4+5_to_9+10_to_19+20_to_49+50_plus+big_master+ave_holding+estimate,year EQ $$curYear AND mapid EQ $$click) replaceword(infoBox,$out)     join($temp,*graphCounty, + ,*population) join($ln,line,$$param,) menuitem($ln,$temp,undefined,0) list($fields,Total slaves,Total Masters,Masters w/ 1-4,Masters w/ 5-9,Masters w/ 10-19,Masters w/ 20-49,Masters w/ 50+) list($tables,slave_pop,master_pop,big_master,1_to_4,5_to_9,10_to_19,20_to_49,50_plus) case($num,*population,$fields) copy($pop,$tables.$num) query($tmp,sqldata,$pop,name EQ *graphCounty,year) if(*raw,EQ,0,1) normalize($tmp,100) dataset(myGraph,$$param,$temp,$tmp) copy($$setNames.$$param,*graphCounty) copy($$popNames.$$param,$pop) refresh(myGraph) menuitem(line0,Add county/population line,undefined,0) menuitem(line1,Add county/population line,undefined,0) menuitem(line2,Add county/population line,undefined,0) menuitem(line3,Add county/population line,undefined,0) menuitem(line4,Add county/population line,undefined,0) menuitem(line5,Add county/population line,undefined,0) dataset(myGraph,clear,,) refresh(myGraph)

    $$1 County, $$2

    Total number of slaves: $$3
    Total number of slaveholders: $$4
    Slaveholders holding:

  • 1-4 slaves: $$5
  • 5-9 slaves: $$6
  • 10-19 slaves: $$7
  • 20-49 slaves: $$8
  • 50+ slaves: $$9
    • Holdings of largest slaveholder: $$10
    Average slaveholding: $$11
    Estimated: $$12

    ]]> list($years,1837,1838,1839,1840,1841,1842) list($year,0) select($years,$year,$$click) query($out,sqldata,name+year+slave_pop+master_pop+1_to_4+5_to_9+10_to_19+20_to_49+50_plus+big_master+ave_holding+estimate,name EQ $$setNames.$$param AND year EQ $year) replaceword(infoBox,$out)