Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1074 1776 (N52E13 L=162)   704    132        2 (1009/1753-1138/1801)  31.0 E17-E06 N48-N55
      2  718 1571 (N29E31 L=144)  2034    391        2 ( 566/1473- 877/1656) -12.3 E48-E16 N25-N32
      3 1599 1563 (N44W40 L=215)   927     99        1 (1536/1537-1649/1595)  15.9 W32-W47 N41-N47
      4  893 1299 (N15E12 L=163)   410    132        0 ( 842/1247- 933/1344) -26.6 E16-E08 N11-N16
      5  313 1196 (N00E51 L=124)   324     44        0 ( 294/1173- 338/1221) -11.3 E53-E48 S01-N01
      6 1868 1036 (N13W63 L=238)  2548    211        5 (1833/ 951-1913/1137) -57.5 W58-W70 N07-N18
      7 1900 1100 (N17W68 L=243)   792     96        1 (1870/1056-1929/1132) -21.8 W63-W73 N14-N18
      8 1771  911 (N04W53 L=228)  1109    242        1 (1744/ 802-1790/1024) -76.0 W50-W56 S02-N10
      9  227  959 (S15E57 L=118)   671    101        2 ( 212/ 910- 248/1009)  80.5 E58-E54 S18-S12
     10  910  860 (S11E05 L=170)   374    128        0 ( 858/ 825- 955/ 900)  50.2 E07-E02 S14-S08
     11  283  815 (S24E51 L=124)   614    153        2 ( 250/ 757- 331/ 881)  45.0 E55-E45 S27-S18
     12  991  680 (S21W03 L=178)  1677    517        1 ( 763/ 630-1148/ 795)  33.7 E11-W11 S27-S11
     13 1843  632 (S12W75 L=249)   896    125        0 (1815/ 576-1874/ 683)  74.1 W72-W77 S15-S08
     14 1114  230 (S53W29 L=204)   915     85        2 (1079/ 189-1151/ 270) -35.0 W23-W34 S56-S49
  

    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