Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  985 1798 (N52E23 L=164)   639    115        1 ( 922/1780-1048/1813)  26.6 E27-E17 N49-N54
      2  609 1596 (N29E41 L=145)  2028    328        3 ( 481/1501- 742/1675) -14.5 E58-E27 N24-N32
      3  726 1345 (N15E24 L=163)   267    106        0 ( 683/1303- 756/1380) -33.7 E27-E20 N12-N16
      4  199 1323 (N06E69 L=118)   571     73        1 ( 179/1290- 220/1353) -29.7 E72-E64 N03-N07
      5  220 1223 (S00E62 L=125)   497     75        1 ( 186/1191- 254/1248)   7.1 E66-E58 S01-N01
      6 1808 1121 (N17W55 L=241)   352     50        0 (1783/1094-1829/1144) -31.0 W52-W57 N15-N18
      7 1761 1033 (N11W50 L=237)  1071    209        0 (1740/ 938-1788/1135) -71.6 W48-W54 N05-N17
      8 1641  972 (N06W41 L=227)  1073    268        3 (1617/ 845-1665/1096) -72.9 W37-W42 S01-N12
      9 1800 1038 (N12W54 L=241)   720    122        1 (1780/ 977-1838/1082)  60.3 W52-W58 N08-N15
     10 1862  964 (N09W63 L=249)   631     80        2 (1841/ 929-1887/1002) -38.7 W59-W66 N06-N10
     11  820  727 (S21E08 L=178)  1244    501        3 ( 613/ 668- 971/ 845)  35.5 E22-W00 S27-S11
     12 1765  643 (S12W61 L=248)  1793    286        0 (1690/ 533-1831/ 772)  76.0 W58-W64 S19-S03
     13  986  268 (S52W14 L=201)   346     55        1 ( 965/ 240-1003/ 299) -80.5 W12-W16 S54-S48
     14 1031  240 (S54W20 L=207)   349     36        0 (1014/ 213-1045/ 268) -45.0 W18-W23 S56-S50
  

    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