Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  561 1553 (N26E43 L=242)   991    170        2 ( 524/1473- 607/1624) -74.7 E45-E41 N20-N31
      2 1537 1556 (N43W34 L=319)   333     56        1 (1513/1532-1561/1577) -36.9 W31-W36 N41-N44
      3 1798 1298 (N28W58 L=343)   704    141        0 (1768/1225-1830/1340) -54.5 W54-W60 N24-N31
      4 1601 1144 (N16W37 L=322)   371     88        0 (1563/1112-1634/1176) -18.4 W33-W39 N14-N17
      5  137 1076 (S09E73 L=212)   690     93        1 ( 119/1034- 153/1123)  51.3 E76-E70 S11-S06
      6  245 1034 (S10E56 L=229)   924    190        2 ( 223/ 953- 270/1111)  78.7 E58-E53 S15-S05
      7  211 1021 (S12E60 L=225)   561    108        0 ( 193/ 976- 233/1064) -78.7 E62-E57 S14-S08
      8  273  814 (S24E53 L=232)   382     60        0 ( 255/ 785- 288/ 838)  45.0 E56-E51 S25-S22
      9  813  695 (S23E09 L=276)   258     63        1 ( 788/ 665- 835/ 728) -45.0 E10-E07 S24-S21
     10 1728  625 (S14W59 L=344)  2474    365        8 (1636/ 521-1794/ 706) -76.0 W48-W69 S20-S08
     11 1786  588 (S16W70 L=355)   824     67        1 (1758/ 555-1814/ 623)  68.2 W66-W73 S18-S13
     12 1657  555 (S20W56 L=341)   372     65        0 (1625/ 534-1687/ 572)  31.0 W53-W58 S21-S18
     13 1106  515 (S31W14 L=299)  1357    439        0 ( 905/ 470-1291/ 565)  25.6 W00-W25 S36-S24
     14 1603  481 (S25W55 L=340)   815    130        4 (1553/ 457-1659/ 510)   0.0 W49-W62 S26-S23
     15 1311  264 (S46W45 L=330)  1838    204        3 (1229/ 232-1415/ 304)  31.6 W37-W51 S50-S41
  

    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