Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  567 1600 (N15E46 L= 98)   765    152        2 ( 547/1518- 594/1662) -56.3 E50-E41 N10-N19
      2 1549 1556 (N41W21 L=164)  1006    253        1 (1451/1468-1627/1634) -19.4 W11-W28 N37-N43
      3  694 1584 (N17E36 L=108)   490    167        0 ( 617/1566- 778/1595)  26.6 E40-E30 N14-N19
      4  742 1488 (N12E29 L=115)   308    126        0 ( 727/1426- 760/1543) -54.5 E31-E25 N08-N15
      5 1884  933 (N14W62 L=206)   570     95        0 (1866/ 892-1910/ 978) -59.0 W59-W67 N11-N16
      6  702  887 (S23E15 L=128)   272    143        0 ( 672/ 834- 726/ 958)  82.9 E16-E14 S26-S18
      7  545  728 (S36E24 L=120)   501    181        0 ( 467/ 697- 621/ 771)  33.7 E30-E18 S39-S31
      8 1215  692 (S20W21 L=164)   509    183        1 (1169/ 601-1240/ 754) -45.0 W16-W24 S25-S17
      9  749  636 (S37E07 L=137)   435    165        1 ( 725/ 573- 789/ 710) -45.0 E09-E01 S39-S32
     10 1524  571 (S17W45 L=189)   316    123        0 (1469/ 535-1557/ 590)   7.1 W41-W49 S19-S16
     11 1577  464 (S21W56 L=200)   441     99        0 (1538/ 440-1620/ 498)  51.3 W53-W58 S23-S17
     12 1541  309 (S30W69 L=213)  1302    137        1 (1481/ 289-1616/ 329)  15.5 W61-W79 S31-S26
     13  830  225 (S65W23 L=167)  1499    128        3 ( 780/ 180- 880/ 283) -18.4 W13-W34 S68-S60
  

    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