Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1837 1335 (N11W68 L=317)   967    192        3 (1797/1302-1871/1367)  11.3 W61-W73 N08-N13
      2  594 1149 (N18E27 L=223)  1803    571        8 ( 396/1003- 811/1275) -35.5 E42-E13 N07-N27
      3 1376 1195 (N11W24 L=274)   225     73        2 (1349/1156-1395/1232)  38.7 W21-W26 N09-N13
      4 1868 1064 (S05W64 L=313)  1003    113        2 (1844/1010-1894/1104)  56.3 W60-W68 S08-S02
      5  402 1029 (N12E42 L=208)   488    134        0 ( 344/ 984- 427/1059) -23.2 E46-E39 N09-N13
      6 1654  757 (S20W40 L=289)  2080    379        6 (1548/ 622-1736/ 908)  48.8 W31-W47 S27-S11
      7 1112  762 (S11W02 L=252)   345    128        2 (1069/ 716-1136/ 813) -71.6 W00-W03 S13-S07
      8  963  786 (S08E07 L=243)   218     38        0 ( 941/ 766- 986/ 804)  14.0 E08-E04 S09-S06
      9  856  731 (S10E14 L=236)   257     93        2 ( 837/ 687- 876/ 781)  71.6 E15-E12 S12-S06
     10  697  708 (S10E24 L=225)   220     63        1 ( 675/ 677- 721/ 735) -63.4 E25-E23 S12-S08
     11 1408  645 (S23W21 L=270)   426    213        1 (1354/ 570-1439/ 721) -74.7 W17-W22 S28-S17
     12  981  675 (S15E07 L=243)   533    221        0 ( 898/ 617-1087/ 698)  14.0 E12-W00 S18-S13
     13  757  669 (S13E21 L=228)   234     58        2 ( 728/ 635- 787/ 690)  36.9 E22-E18 S15-S11
  

    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