Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  465 1707 (N20E62 L=131)  1676    266        1 ( 441/1656- 509/1760) -35.0 E69-E58 N16-N23
      2  723  993 (S16E16 L=177)   458    100        0 ( 666/ 961- 774/1027)  39.8 E19-E13 S18-S12
      3 1852  827 (N09W62 L=255)  1383    175        3 (1816/ 764-1877/ 896) -41.2 W57-W67 N06-N13
      4 1454  776 (S07W32 L=225)   889    164        3 (1428/ 700-1480/ 876) -65.6 W29-W34 S11-N00
      5  851  817 (S22E04 L=189)   218     58        0 ( 825/ 794- 883/ 848) -11.3 E06-E01 S22-S21
      6 1054  737 (S21W10 L=203)   426    167        0 ( 972/ 706-1130/ 782)   0.0 W04-W15 S22-S18
      7  623  623 (S41E14 L=179)   760    199        1 ( 528/ 601- 725/ 645)  14.0 E22-E06 S43-S37
      8 1383  452 (S26W42 L=235)  1548    495        2 (1140/ 419-1550/ 509)  20.8 W24-W53 S31-S20
  

    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