Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1063 1640 (N41W25 L=257)   462     89        0 (1024/1599-1104/1672)  12.5 W20-W29 N38-N41
      2 1597 1601 (N20W59 L=291)  1174    132        1 (1529/1567-1649/1636)  -7.1 W51-W67 N18-N21
      3 1519 1414 (N13W41 L=274)  1295    192        3 (1448/1336-1581/1483) -78.7 W39-W43 N07-N18
      4  802 1333 (N30E05 L=228)   987    216        1 ( 709/1281- 891/1365) -38.7 E10-W00 N24-N33
      5 1236 1101 (N05W14 L=246)  1337    373        0 (1172/ 935-1319/1234)  32.9 W05-W22 S01-N10
      6 1392 1182 (N05W25 L=257)   438     98        1 (1358/1149-1436/1225) -71.6 W23-W26 N02-N08
      7 1917 1033 (S21W65 L=298)  1074     84        0 (1872/1005-1948/1069)  -4.1 W58-W72 S22-S19
      8 1630  936 (S15W34 L=266)   870    172        2 (1540/ 895-1690/ 965) -14.0 W26-W38 S19-S12
      9 1867  858 (S29W56 L=288)  1719    194        2 (1815/ 781-1910/ 957)  42.0 W48-W62 S33-S24
     10  510  865 (N10E35 L=198)   264     48        0 ( 478/ 846- 533/ 888)   0.0 E37-E32 N09-N11
     11  767  716 (S04E23 L=210)   357    120        0 ( 741/ 673- 804/ 772) -90.0 E23-E21 S06-N00
     12  300  717 (N06E56 L=176)   803    167        0 ( 230/ 691- 384/ 739) -19.7 E63-E49 N03-N08
     13  494  583 (S05E45 L=188)  1009    229        3 ( 410/ 538- 581/ 652)  -4.1 E53-E38 S08-S02
     14  455  439 (S13E56 L=177)  6739    424       14 ( 345/ 363- 598/ 559) -38.7 E72-E45 S20-S06
     15  591  515 (S11E41 L=192)   664    107        5 ( 560/ 465- 623/ 552) -90.0 E43-E37 S14-S08
     16  744  382 (S23E37 L=195)  1396    341        1 ( 690/ 263- 810/ 549)  34.8 E49-E26 S30-S14
     17 1567  441 (S47W21 L=254)   388     46        0 (1551/ 418-1589/ 470) -63.4 W19-W23 S49-S43
     18  512  342 (S21E58 L=174)   514    128        1 ( 460/ 321- 558/ 368) -20.6 E61-E52 S22-S18
     19  876  266 (S35E36 L=196)  1103    161        2 ( 796/ 233- 944/ 311)   0.0 E43-E29 S36-S32
  

    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