Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1169 1646 (N45W08 L=263)   497     82        2 (1135/1609-1210/1670)  15.9 W05-W12 N41-N46
      2 1443 1606 (N43W33 L=287)  1616    280        3 (1303/1582-1554/1634)  -2.4 W19-W44 N40-N45
      3  405 1421 (N23E48 L=206)   426     73        0 ( 372/1399- 433/1448)  31.0 E51-E46 N21-N25
      4 1388 1131 (N10W23 L=277)  1671    415        4 (1328/ 944-1428/1316) -76.6 W18-W25 N00-N21
      5  660 1093 (N05E23 L=231)  1206    376        2 ( 605/ 956- 713/1264) -76.8 E28-E19 S03-N14
      6  834 1149 (N09E12 L=242)   360    129        2 ( 815/1093- 862/1203) -74.1 E13-E10 N05-N12
      7  166 1123 (N03E67 L=187)   601    112        1 ( 146/1076- 187/1187)  60.3 E69-E64 N00-N07
      8  291  903 (S09E51 L=203)   707    154        0 ( 271/ 832- 317/ 979) -77.5 E52-E48 S13-S04
      9  947  880 (S07E04 L=250)   502    188        0 ( 921/ 797- 987/ 965)  78.7 E05-E01 S11-S01
     10 1627  723 (S14W43 L=297)   402    145        0 (1584/ 694-1682/ 753)  -5.7 W38-W48 S15-S12
     11  883  662 (S21E07 L=247)   557    166        1 ( 833/ 617- 950/ 720)  45.0 E10-E03 S24-S16
     12 1540  634 (S20W38 L=292)   268     71        0 (1510/ 618-1582/ 655)  -9.5 W35-W41 S20-S18
     13  849  531 (S30E10 L=245)   359     69        1 ( 834/ 498- 872/ 577) -80.5 E10-E08 S32-S26
     14 1391  299 (S46W40 L=294)   472     76        2 (1349/ 286-1428/ 319)   7.1 W35-W43 S46-S43
     15  689  261 (S55E30 L=224)  1526    155        3 ( 623/ 228- 762/ 292)   0.0 E39-E20 S58-S51
  

    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