Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1099 1902 (N59W46 L=224)  1351    154        2 (1048/1850-1159/1952)   7.5 W32-W70 N55-N62
      2 1445 1767 (N38W57 L=235)   407     47        1 (1418/1755-1476/1780)  -8.1 W53-W61 N36-N39
      3 1809 1119 (S09W55 L=233)   360     49        1 (1792/1092-1828/1150) -90.0 W53-W56 S10-S06
      4  871  760 (S10E14 L=164)   367    158        0 ( 849/ 691- 916/ 802)  74.1 E15-E10 S14-S07
      5 1270  694 (S22W08 L=186)   398    159        0 (1202/ 653-1331/ 741)  12.5 W03-W12 S23-S20
      6  399  656 (S08E48 L=129)   839    156        1 ( 372/ 582- 434/ 736)  78.7 E50-E45 S12-S02
      7  977  410 (S34E18 L=160)   991    223        4 ( 875/ 383-1101/ 442) -25.0 E24-E09 S38-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