Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1450 1778 (N41W64 L=259)   532     53        1 (1427/1748-1472/1799)  18.4 W59-W69 N39-N42
      2 1312 1760 (N45W49 L=243)   394     45        1 (1295/1733-1336/1782)  15.9 W45-W52 N43-N46
      3 1119 1716 (N48W29 L=223)   410     43        2 (1089/1688-1146/1742) -45.0 W26-W31 N45-N49
      4  837 1606 (N47W00 L=195)  2050    418        4 ( 699/1518-1030/1683)   3.7 E12-W19 N43-N49
      5 1711 1409 (N13W57 L=251)   473    147        0 (1669/1348-1757/1460) -76.0 W55-W58 N08-N16
      6  648 1380 (N35E19 L=176)   353    104        2 ( 596/1351- 688/1401) -35.5 E22-E15 N32-N37
      7  242 1343 (N39E61 L=133)   457     53        2 ( 219/1317- 267/1367)  18.4 E65-E57 N37-N40
      8 1075 1220 (N17W07 L=201)  1476    358        3 ( 971/1086-1173/1345) -72.5 W03-W09 N07-N26
      9  257  995 (N17E55 L=140)   428     89        0 ( 238/ 959- 279/1046) -63.4 E56-E52 N14-N20
     10 1732  939 (S14W45 L=239)   400     60        0 (1716/ 903-1750/ 977)  53.1 W42-W46 S15-S11
     11  917  805 (S04E10 L=184)   533    143        0 ( 891/ 737- 941/ 875)  60.3 E12-E07 S07-N00
     12 1769  792 (S24W47 L=241)  1273    211        1 (1709/ 739-1837/ 857) -19.7 W41-W55 S28-S19
     13  457  820 (N04E40 L=155)   376     88        1 ( 428/ 781- 478/ 852) -90.0 E41-E37 N02-N06
     14 1182  677 (S17W03 L=197)   532    173        0 (1124/ 609-1214/ 749)  45.0 E02-W05 S19-S12
     15  190  688 (S01E72 L=123)   802     67        1 ( 167/ 656- 213/ 724) -90.0 E76-E68 S03-N01
     16  336  675 (S03E54 L=140)   331     21        0 ( 316/ 655- 363/ 693)   0.0 E55-E51 S04-S01
     17 1381  517 (S32W13 L=207)   254     80        0 (1347/ 492-1409/ 548)  21.8 W10-W15 S33-S30
     18  752  438 (S24E31 L=164)  1350    245        2 ( 712/ 327- 792/ 546)  51.3 E37-E24 S31-S16
     19  449  439 (S19E55 L=139)  2947    264        9 ( 384/ 325- 524/ 529)  66.4 E63-E49 S28-S12
     20 1655  459 (S46W40 L=234)  1719    269        3 (1550/ 391-1756/ 529)   2.3 W27-W54 S49-S42
     21 1202  423 (S34E02 L=193)   292    104        0 (1179/ 373-1228/ 471)  50.2 E04-W01 S37-S31
     22  907  274 (S39E28 L=166)   379     39        0 ( 878/ 260- 938/ 290) -26.6 E30-E25 S40-S37
     23 1123  192 (S54E18 L=177)  2000    334        1 ( 978/ 147-1249/ 242)   1.9 E34-E03 S57-S50
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y