Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1303 1714 (N37W44 L=335)   487    133        1 (1267/1674-1334/1756)  12.5 W39-W48 N35-N38
      2 1679 1628 (N19W67 L=358)   830    174        1 (1639/1606-1708/1656) -10.3 W62-W73 N17-N20
      3 1567 1558 (N20W52 L=343)   531     89        1 (1543/1519-1592/1597)  68.2 W50-W54 N16-N21
      4  213 1024 (N25E56 L=235)  2380    574        1 ( 101/ 965- 355/1115) -26.6 E67-E43 N19-N31
      5 1831  846 (S28W50 L=341)   466     78        0 (1800/ 830-1853/ 865) -18.4 W46-W52 S29-S26
      6 1381  276 (S54W01 L=292)  1982    252        5 (1268/ 202-1501/ 336)   4.2 E13-W14 S57-S50
      7 1207  185 (S56E21 L=270)   524     89        0 (1182/ 169-1240/ 206) -71.6 E23-E18 S59-S52
  

    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