Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1323 1727 (N37W46 L=335)   491    131        2 (1289/1688-1355/1767)  12.5 W41-W50 N35-N38
      2 1685 1636 (N19W69 L=357)   768    209        1 (1650/1617-1713/1660) -11.3 W64-W74 N17-N20
      3 1595 1565 (N19W55 L=343)   522     83        0 (1572/1522-1622/1604)  68.2 W53-W57 N16-N21
      4  233 1031 (N25E54 L=234)  2224    516        3 ( 114/ 972- 392/1115) -27.5 E65-E40 N18-N31
      5 1858  873 (S27W53 L=341)   475     87        0 (1828/ 847-1882/ 903)   9.5 W49-W55 S28-S26
      6 1401  286 (S54W03 L=291)  1847    233        2 (1288/ 208-1509/ 350)   6.6 E11-W15 S57-S51
      7 1227  195 (S56E18 L=270)   524     83        0 (1203/ 179-1259/ 218) -80.5 E20-E16 S59-S51
  

    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