Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1067 1756 (N46W05 L= 76)   369     30        1 (1039/1740-1096/1775)  11.3 W02-W07 N44-N47
      2 1099 1683 (N39W07 L= 77)   358     58        1 (1076/1651-1127/1721)  80.5 W05-W09 N36-N42
      3 1704 1545 (N29W55 L=125)  2152    257        6 (1587/1476-1799/1617) -22.8 W44-W65 N24-N34
      4  810 1571 (N32E14 L= 56)   789    169        0 ( 730/1512- 870/1604) -28.6 E20-E09 N27-N34
      5 1452 1479 (N24W30 L=100)   719    170        2 (1369/1439-1533/1508)  -4.4 W23-W36 N21-N26
      6 1658 1340 (N16W43 L=114)  1310    390        1 (1582/1150-1733/1468) -69.8 W39-W47 N04-N23
      7 1852 1294 (N13W62 L=132)  1847    196        7 (1810/1215-1903/1382) -78.7 W58-W68 N08-N18
      8  213 1061 (N02E57 L= 14)   346     69        1 ( 181/1046- 243/1074)   8.1 E60-E53 N00-N02
      9  450  860 (S11E37 L= 33)  1855    533        4 ( 366/ 623- 487/1068) -85.6 E42-E34 S25-N01
     10  196  856 (S10E61 L= 10)  5156    327       12 ( 128/ 710- 293/1007)  62.1 E72-E50 S18-S01
     11 1176  929 (S09W09 L= 79)   229    101        0 (1130/ 918-1226/ 946) -11.3 W06-W11 S09-S07
     12  636  891 (S10E24 L= 46)   300     61        1 ( 598/ 862- 663/ 922)  26.6 E26-E22 S11-S08
     13  990  845 (S14E02 L= 68)   440    178        1 ( 923/ 779-1033/ 920) -58.0 E06-W00 S17-S09
     14 1260  841 (S14W14 L= 85)   228     96        0 (1210/ 808-1286/ 862) -26.6 W11-W15 S16-S12
     15  280  756 (S17E54 L= 16)  1038    160        5 ( 212/ 705- 336/ 794) -20.0 E60-E49 S19-S14
     16  870  692 (S23E10 L= 60)  1356    458        2 ( 720/ 649-1043/ 774)  -6.0 E19-W00 S25-S17
     17 1533  542 (S33W38 L=108)   961    179        2 (1466/ 515-1621/ 570)   4.4 W31-W45 S34-S31
     18  368  466 (S35E58 L= 12)  1907    246        2 ( 305/ 373- 444/ 558)  12.8 E89-E45 S40-S29
     19 1351  498 (S36W23 L= 94)   370     61        0 (1324/ 477-1390/ 520)  36.9 W21-W26 S37-S34
     20 1172  406 (S43W11 L= 81)   895    167        3 (1102/ 371-1258/ 442)  22.6 W05-W17 S45-S40
     21 1191  255 (S56W16 L= 86)   336     62        0 (1165/ 235-1213/ 280)  45.0 W13-W17 S57-S53
  

    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