Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1077 1766 (N41E20 L=262)   397     45        1 (1056/1744-1102/1789)  76.0 E21-E17 N38-N42
      2 1166 1700 (N38E10 L=271)   687     86        0 (1119/1665-1214/1733)   8.1 E13-E06 N36-N40
      3  828 1659 (N26E30 L=251)   402    111        0 ( 815/1608- 845/1704) -50.2 E32-E27 N22-N28
      4  549 1581 (N15E45 L=236)  1485    246        0 ( 527/1478- 579/1674) -47.5 E51-E39 N08-N20
      5 1135 1307 (N11E01 L=280)  1338    434        1 (1096/1113-1168/1520) -69.4 E05-W04 N00-N24
      6  659 1399 (N06E31 L=250)   756    178        3 ( 583/1357- 726/1451) -14.0 E37-E25 N04-N07
      7  105 1130 (S18E72 L=209)  2557    303        3 (  74/1062- 130/1199)  82.9 E75-E69 S21-S13
      8 1848 1028 (N16W54 L=335)  1279    159        1 (1808/ 963-1883/1103) -31.0 W49-W60 N13-N19
      9  357  973 (S24E42 L=239)  1105    284        0 ( 256/ 909- 454/1037)  36.3 E50-E35 S29-S18
     10  736 1005 (S15E16 L=265)   315    154        0 ( 665/ 991- 814/1024)  12.5 E20-E11 S15-S13
     11  141  825 (S36E63 L=218)  1117    255        0 ( 107/ 793- 169/ 867)  33.7 E66-E59 S37-S33
     12 1808  810 (N03W58 L=339)   741    139        2 (1772/ 783-1845/ 860) -26.6 W54-W61 N01-N05
     13 1724  663 (S07W56 L=337)   362     60        1 (1708/ 626-1746/ 696) -76.0 W54-W57 S09-S05
     14 1478  581 (S19W41 L=322)   360     70        0 (1456/ 538-1497/ 619) -80.5 W39-W41 S22-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