Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  525 1711 (N42E52 L=106)  1643    260        3 ( 456/1676- 592/1737)   0.0 E60-E46 N39-N44
      2 1156 1553 (N37W05 L=163)   885    170        2 (1060/1528-1241/1576)  13.0 E02-W11 N35-N39
      3 1798 1052 (N09W56 L=213)  1197    282        5 (1758/ 992-1864/1115) -32.5 W51-W63 N05-N12
      4 1547 1010 (N05W34 L=192)   754    167        2 (1498/ 933-1591/1090)  60.9 W30-W36 N00-N09
      5  814  930 (S06E12 L=146)   284     62        1 ( 774/ 907- 843/ 954)  36.9 E14-E10 S07-S04
      6  235  904 (S13E57 L=101)   383     55        0 ( 214/ 877- 253/ 929) -36.9 E59-E54 S14-S11
      7 1529  725 (S13W36 L=194)   251     58        1 (1501/ 710-1563/ 744) -11.3 W33-W38 S13-S11
  

    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