Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1775 1474 (N09W66 L=311)  1969    236        5 (1726/1429-1816/1525) -63.4 W61-W72 N06-N12
      2  139 1176 (N31E62 L=183)  1201    197        1 ( 106/1123- 168/1215) -54.5 E65-E58 N27-N34
      3  746 1028 (N10E16 L=229)   264    146        2 ( 704/ 998- 776/1046)   0.0 E18-E13 N08-N11
      4  925  917 (S00E08 L=237)   468    142        0 ( 836/ 899- 979/ 945) -20.6 E12-E04 S01-N03
      5  269  557 (S07E67 L=178)  6057    586        7 ( 153/ 375- 365/ 700)  82.2 E84-E60 S20-N02
      6  588  492 (S17E41 L=204)   375    123        1 ( 549/ 470- 625/ 514)  -9.5 E44-E38 S18-S15
      7  572  443 (S20E45 L=200)   296     50        2 ( 546/ 420- 596/ 459) -56.3 E46-E42 S21-S18
  

    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