Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1511 1490 (N19W41 L=227)   525    162        1 (1446/1464-1571/1516)  -5.7 W36-W46 N17-N20
      2 1237 1487 (N24W23 L=209)  1131    266        3 (1118/1441-1359/1513) -18.4 W15-W30 N21-N27
      3 1415 1471 (N20W34 L=220)   237     50        1 (1397/1443-1436/1495) -90.0 W33-W35 N17-N21
      4 1736 1309 (N04W53 L=239)   406     80        0 (1706/1273-1770/1343) -59.0 W51-W55 N01-N06
      5 1219 1304 (N14W17 L=203)   248     87        0 (1183/1281-1272/1337) -45.0 W15-W19 N12-N16
      6  292 1203 (N26E46 L=139)  1583    392        4 ( 194/1105- 390/1301) -37.9 E56-E38 N18-N33
      7  932 1230 (N15E01 L=184)   643    195        2 ( 835/1155-1008/1288) -57.5 E06-W01 N09-N20
      8 1879 1087 (S12W61 L=247)  2955    535        9 (1793/1000-1947/1156)   2.6 W51-W73 S16-S08
      9  250 1029 (N16E52 L=134)   303     83        0 ( 227/ 998- 279/1071) -59.0 E53-E49 N13-N18
     10 1904  980 (S19W62 L=248)  1798    256        8 (1859/ 928-1949/1055)  31.0 W56-W69 S21-S14
     11 1834  992 (S16W55 L=240)   623    106        0 (1807/ 960-1854/1041)  63.4 W51-W56 S18-S13
     12  212  944 (N11E57 L=128)   444    142        0 ( 196/ 870- 236/1006) -90.0 E58-E55 N06-N15
     13 1702  951 (S16W42 L=228)   400    121        3 (1664/ 917-1748/ 987)   7.1 W38-W46 S17-S13
     14 1929  906 (S24W65 L=250)   945    185        2 (1885/ 870-1955/ 948)  16.7 W58-W68 S25-S21
     15  433  803 (S00E41 L=145)   327    103        0 ( 417/ 742- 451/ 852)  80.5 E41-E40 S04-N02
     16 1359  702 (S24W14 L=200)   240    112        0 (1302/ 684-1409/ 713) -23.2 W10-W17 S25-S22
     17  242  638 (S07E65 L=121)  1311    297        2 ( 198/ 577- 301/ 691)  21.8 E74-E57 S10-S03
     18 1404  587 (S32W16 L=202)   915    162        2 (1343/ 515-1460/ 672)  37.9 W10-W20 S35-S27
     19  805  538 (S23E24 L=162)   381    154        1 ( 744/ 488- 845/ 595)  29.1 E29-E19 S24-S19
     20  896  454 (S30E21 L=165)   976    311        1 ( 813/ 360-1005/ 574)  26.6 E30-E10 S34-S24
     21  380  494 (S18E57 L=129)  1724    325       10 ( 315/ 429- 442/ 551)  24.8 E63-E50 S21-S14
  

    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