Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  333 1604 (N11E69 L= 22)  1575    273        3 ( 295/1541- 359/1650) -41.6 E76-E62 N06-N14
      2  419 1569 (N10E57 L= 34)   764    128        1 ( 380/1541- 465/1599)  38.7 E61-E53 N07-N12
      3 1075 1444 (N18E09 L= 82)   741    227        0 (1052/1345-1098/1555) -61.7 E12-E05 N12-N25
      4 1444 1455 (N31W13 L=104)   500     61        0 (1412/1413-1472/1491) -45.0 W10-W15 N28-N33
      5 1269 1301 (N15W06 L= 97)   640    173        0 (1244/1219-1290/1392) -63.4 W02-W08 N10-N20
      6  654 1326 (N01E29 L= 61)   246     46        1 ( 631/1305- 675/1357) -33.7 E30-E27 N00-N02
      7  171 1254 (S13E68 L= 23)  1013    105        1 ( 143/1219- 197/1302)  63.4 E71-E65 S15-S09
      8 1794 1093 (N21W47 L=138)   428    127        0 (1754/1075-1831/1110)  29.7 W43-W50 N18-N23
      9 1077 1019 (S05W03 L= 94)   332     69        0 (1052/ 984-1097/1064)  90.0 W01-W04 S07-S02
     10  497  912 (S27E29 L= 61)  1320    253        2 ( 414/ 813- 559/1011)  63.4 E34-E26 S33-S19
     11  136  984 (S30E63 L= 27)   550    152        0 ( 102/ 964- 163/1004)  15.9 E67-E60 S30-S28
     12 1748  894 (N08W49 L=139)   418     69        2 (1729/ 868-1775/ 919)  71.6 W46-W51 N06-N09
     13  312  798 (S38E44 L= 47)  1549    329        3 ( 221/ 746- 415/ 842)  22.8 E53-E34 S43-S33
     14 1784  762 (N03W57 L=148)  1548    398        2 (1688/ 719-1888/ 811)  26.6 W47-W67 S01-N09
     15  775  697 (S32E05 L= 85)   962    243        2 ( 699/ 606- 859/ 806)  76.0 E08-E02 S39-S23
     16 1127  703 (S21W15 L=106)   679    190        0 (1023/ 654-1199/ 767)  57.5 W10-W17 S26-S15
     17 1396  678 (S14W32 L=123)   352    112        2 (1350/ 648-1436/ 717)  -7.1 W27-W35 S15-S13
     18 1773  650 (S03W62 L=153)   430     52        0 (1748/ 622-1796/ 675)  53.1 W60-W64 S05-S01
     19 1144  543 (S30W23 L=114)   354    106        0 (1090/ 529-1202/ 560)  39.8 W19-W25 S31-S26
     20 1649  498 (S15W59 L=150)   602     95        0 (1606/ 472-1696/ 540)  56.3 W55-W60 S17-S11
     21  565  475 (S54E17 L= 74)   325     49        0 ( 539/ 458- 596/ 491)   0.0 E19-E13 S54-S52
     22 1401  360 (S31W49 L=140)  1856    265        4 (1291/ 328-1506/ 395)  39.3 W42-W55 S35-S25
  

    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