Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1673 1543 (N34W55 L= 86)   891     92        3 (1634/1507-1706/1580) -71.6 W52-W57 N31-N37
      2  839 1540 (N38E13 L= 18)   230     56        0 ( 803/1517- 873/1558)  21.8 E15-E10 N36-N39
      3  528 1479 (N33E37 L=354)   971    202        0 ( 454/1430- 610/1516) -14.9 E44-E29 N30-N36
      4  364 1283 (N20E47 L=344)  3094    681        7 ( 227/1087- 462/1440) -36.9 E65-E37 N08-N29
      5  929 1386 (N27E06 L= 26)   386     93        0 ( 871/1372- 977/1402)   8.1 E09-E02 N26-N28
      6 1136 1187 (N14W07 L= 39)   368    125        0 (1079/1139-1189/1242) -49.4 W03-W10 N10-N17
      7 1648 1167 (N10W43 L= 74)   291    100        1 (1622/1144-1681/1189) -26.6 W41-W45 N08-N11
      8 1537  985 (S00W33 L= 64)   354    108        2 (1499/ 953-1584/1008)   9.5 W30-W36 S01-N01
      9  480  913 (S02E36 L=355)   328     70        0 ( 450/ 898- 515/ 930)  11.3 E38-E33 S03-S01
     10  763  833 (S07E17 L= 15)   436    113        1 ( 701/ 802- 815/ 864) -23.2 E20-E13 S09-S05
     11  363  679 (S18E48 L=343)  1159    309        1 ( 306/ 585- 415/ 780)  51.8 E56-E42 S24-S10
     12 1659  669 (S21W45 L= 76)   302     55        0 (1629/ 656-1683/ 682)   0.0 W42-W47 S21-S20
     13 1419  579 (S26W27 L= 58)   614    124        1 (1356/ 561-1470/ 604)   0.0 W21-W30 S27-S24
     14  569  524 (S28E34 L=357)   903    161        2 ( 520/ 486- 630/ 555)  24.4 E39-E28 S30-S25
  

    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