Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  773 1767 (N49E38 L=293)   461     67        0 ( 739/1748- 816/1780)  33.7 E40-E34 N46-N50
      2 1793 1434 (N36W65 L= 37)  2391    222        2 (1744/1339-1831/1532)  81.3 W61-W71 N29-N42
      3  296 1386 (N15E60 L=271)  3332    428        6 ( 203/1256- 396/1509)  58.6 E66-E53 N05-N23
      4 1425 1358 (N26W24 L=355)   878    187        2 (1402/1273-1452/1437)  80.5 W22-W26 N20-N32
      5 1790 1221 (N21W56 L= 27)   511    141        0 (1739/1182-1836/1276) -26.6 W51-W61 N19-N24
      6 1245 1201 (N14W12 L=343)  1139    233        5 (1139/1169-1364/1228)  12.1 W05-W19 N12-N17
      7  287 1138 (S00E53 L=278)   409     82        1 ( 254/1124- 329/1155)   0.0 E57-E49 S01-N00
      8  951  733 (S18E01 L=330)   837    366        2 ( 890/ 580-1024/ 870) -71.6 E06-W04 S27-S09
      9  321  825 (S19E48 L=283)   331     41        0 ( 293/ 810- 348/ 840)  18.4 E51-E45 S20-S18
     10  357  744 (S24E46 L=286)   401     50        2 ( 336/ 715- 382/ 772)  76.0 E48-E43 S26-S22
     11 1608  524 (S24W51 L= 23)  2107    385        2 (1472/ 435-1727/ 666)  48.8 W42-W58 S31-S13
     12 1011  417 (S39W07 L=339)   486     63        1 ( 979/ 387-1049/ 442)  31.0 W04-W09 S41-S36
     13  992  256 (S54W11 L=342)  1194    167        0 ( 951/ 193-1037/ 324)  86.4 W07-W13 S62-S46
  

    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