Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1323 1724 (N54W21 L= 83)   389     41        1 (1290/1709-1349/1741)   0.0 W16-W23 N52-N56
      2  404 1605 (N32E63 L=360)  1187    143        2 ( 382/1558- 436/1671) -22.8 E77-E56 N28-N36
      3  629 1463 (N25E33 L= 30)  1578    361        3 ( 530/1386- 688/1595) -82.4 E38-E28 N19-N34
      4 1528 1388 (N29W33 L= 96)  3116    686        4 (1275/1175-1724/1521) -30.5 W13-W49 N16-N36
      5 1682 1265 (N22W46 L=108)   497     58        2 (1658/1239-1711/1292)  45.0 W43-W48 N20-N24
      6 1393 1187 (N15W22 L= 85)   347    145        0 (1360/1142-1431/1258) -54.5 W19-W25 N12-N19
      7 1568 1195 (N17W35 L= 98)   380    125        0 (1547/1132-1583/1248) -82.9 W33-W36 N12-N20
      8 1751 1201 (N19W52 L=115)   465     87        0 (1728/1169-1780/1243) -59.0 W50-W55 N16-N21
      9  147  956 (S12E71 L=352)  1055     72        3 ( 120/ 933- 184/ 987)   0.0 E77-E64 S13-S09
     10  485  785 (S19E34 L= 28)   777    234        0 ( 454/ 697- 567/ 846)  55.0 E37-E28 S24-S14
     11 1483  655 (S17W35 L= 98)   867    211        1 (1401/ 585-1554/ 716)  48.4 W30-W39 S22-S12
     12 1727  646 (S16W57 L=120)   398     55        0 (1703/ 615-1745/ 670)  63.4 W55-W59 S18-S14
     13 1744  573 (S21W64 L=127)  2419    204        4 (1679/ 506-1827/ 627)  26.6 W57-W76 S25-S16
  

    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