Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1256 1639 (N43W26 L= 97)   337     67        1 (1226/1614-1281/1662)  31.0 W24-W29 N41-N44
      2 1194 1628 (N43W21 L= 92)   306     88        0 (1177/1591-1224/1651)  45.0 W18-W24 N40-N44
      3  486 1331 (N28E36 L= 35)  2747    831       10 ( 254/1246- 804/1413) -14.3 E59-E12 N20-N33
      4  214  953 (N05E61 L= 10)   534    144        1 ( 175/ 935- 250/ 968)   6.3 E65-E56 N03-N05
      5  305  893 (N01E51 L= 19)   502     81        2 ( 273/ 871- 334/ 926)  31.0 E54-E48 N00-N03
      6 1654  801 (S15W41 L=112)   531    114        1 (1603/ 774-1700/ 832)  14.0 W36-W44 S16-S13
      7 1313  286 (S50W18 L= 89)   404     66        1 (1288/ 266-1335/ 308) -33.7 W15-W21 S52-S48
      8  890  210 (S53E25 L= 46)   645     93        1 ( 851/ 193- 939/ 238) -23.2 E28-E20 S55-S49
  

    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