Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1442 1813 (N36W69 L=149)  1415    138        1 (1386/1780-1495/1835)  -5.4 W58-W79 N32-N38
      2 1537 1609 (N22W54 L=134)   369     58        1 (1504/1594-1574/1623) -36.9 W51-W57 N20-N23
      3  334 1152 (N30E43 L= 37)  2073    276        4 ( 204/1096- 466/1191) -17.1 E58-E32 N24-N32
      4  848 1153 (N17E07 L= 74)   311    105        0 ( 811/1113- 887/1182)  18.4 E09-E03 N15-N18
      5 1848 1111 (S14W58 L=138)   591     94        1 (1833/1065-1862/1165)  71.6 W55-W60 S16-S10
      6  475  896 (N12E36 L= 44)   394    147        0 ( 455/ 837- 510/ 948)  63.4 E37-E32 N08-N14
      7  335  904 (N15E47 L= 33)   706    201        0 ( 243/ 870- 422/ 937) -25.0 E55-E40 N11-N18
      8 1846  789 (S33W54 L=134)  3083    303        3 (1780/ 683-1892/ 931)  70.3 W45-W63 S39-S23
      9  766  887 (N04E18 L= 62)   271     98        0 ( 718/ 871- 813/ 903) -31.0 E20-E15 N03-N06
     10 1678  811 (S25W35 L=115)   356     67        0 (1646/ 786-1702/ 847)  36.9 W32-W37 S26-S23
     11 1603  523 (S43W26 L=106)   882    132        0 (1541/ 489-1664/ 555)   0.0 W19-W32 S44-S40
     12  404  499 (S10E57 L= 23)   766    157        3 ( 343/ 466- 445/ 550)   8.1 E64-E50 S10-S06
     13  337  439 (S12E70 L= 10)  1229    115        6 ( 296/ 398- 389/ 475) -32.0 E76-E64 S15-S09
     14  784  225 (S37E48 L= 33)  1554    166        3 ( 731/ 155- 839/ 285)  19.2 E61-E38 S42-S33
  

    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