Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1177 1495 (N26W19 L=289)   659    155        2 (1111/1457-1245/1535)  10.3 W13-W24 N24-N27
      2 1781 1470 (N13W66 L=336)   728     97        4 (1754/1436-1807/1528)  45.0 W61-W70 N11-N16
      3  453 1438 (N37E34 L=236)   724    144        1 ( 385/1412- 525/1462) -19.7 E41-E27 N33-N39
      4 1854  840 (S25W59 L=329)   784    158        0 (1817/ 769-1887/ 914)  48.8 W54-W62 S28-S20
      5 1620  597 (S36W35 L=305)   275     31        1 (1594/ 578-1637/ 617) -21.8 W32-W37 S37-S34
      6  361  488 (S19E61 L=209)  3302    292        7 ( 261/ 389- 462/ 582) -54.5 E68-E54 S26-S11
      7  896  521 (S27E18 L=252)   231     89        0 ( 862/ 489- 928/ 559)  26.6 E21-E15 S28-S24
  

    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