Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1668 1517 (N13W58 L= 91)   597     88        3 (1623/1483-1703/1556) -45.0 W55-W60 N10-N15
      2 1219 1344 (N18W20 L= 53)   740    222        3 (1127/1319-1332/1384) -28.6 W15-W26 N14-N21
      3 1629 1282 (N02W44 L= 77)   682    228        0 (1550/1232-1707/1335)   0.0 W36-W52 N01-N03
      4  765 1079 (N16E13 L= 20)   189     77        0 ( 725/1059- 802/1093) -45.0 E15-E11 N13-N17
      5 1311  955 (S05W14 L= 47)   941    345        1 (1239/ 890-1457/1075) -56.3 W10-W22 S11-N02
      6 1692 1052 (S12W41 L= 74)   312     45        1 (1670/1034-1714/1075)   0.0 W38-W42 S13-S10
      7  370  918 (N16E44 L=349)   269     51        0 ( 346/ 892- 397/ 943) -56.3 E45-E41 N14-N17
      8 1811  829 (S29W47 L= 80)  1822    257        1 (1720/ 761-1865/ 927)  18.4 W37-W53 S32-S24
      9  311  849 (N13E50 L=342)   373    161        0 ( 256/ 836- 367/ 866) -11.3 E55-E45 N11-N14
     10 1437  725 (S22W16 L= 49)   643    122        3 (1410/ 670-1468/ 786)  50.2 W13-W18 S25-S18
     11  349  715 (N05E52 L=341)   554    111        0 ( 302/ 681- 399/ 750) -39.8 E55-E48 N02-N07
     12 1064  631 (S17E09 L= 24)   538    152        2 (1007/ 571-1106/ 676)  74.1 E11-E06 S20-S13
     13  300  479 (S09E70 L=322)  1171     80        0 ( 269/ 441- 326/ 508) -78.7 E74-E66 S11-S06
     14 1097  403 (S33E15 L= 18)   240     37        1 (1076/ 387-1119/ 425)   0.0 E16-E13 S33-S30
  

    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