Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  764 1534 (N29E18 L=  3)   784    215        3 ( 697/1464- 840/1599) -36.9 E23-E11 N24-N33
      2  475 1051 (S01E35 L=346)   305     54        0 ( 446/1023- 508/1074) -26.6 E36-E32 S02-N00
      3  426  880 (S11E39 L=342)   873    206        2 ( 401/ 778- 451/ 992)  71.6 E41-E36 S16-S04
      4  210  785 (S15E61 L=320)  1710    308        6 ( 175/ 704- 241/ 854) -83.7 E64-E56 S20-S11
      5 1748  686 (S23W53 L= 74)   411    136        0 (1715/ 646-1779/ 724) -29.7 W49-W56 S25-S20
      6  776  663 (S25E17 L=  4)   380     66        1 ( 759/ 625- 799/ 697)  68.2 E18-E15 S27-S22
      7 1095  646 (S26W04 L= 25)   236     95        0 (1068/ 604-1108/ 694)  71.6 W02-W05 S29-S23
      8  489  572 (S30E40 L=341)   619    155        0 ( 452/ 532- 541/ 631)  33.7 E43-E34 S32-S26
  

    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