Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1580 1703 (N36W59 L=134)  1410    151        1 (1518/1665-1647/1745)   7.1 W49-W81 N33-N38
      2  719 1531 (N34E15 L= 59)   267     33        0 ( 695/1510- 746/1552) -53.1 E17-E13 N32-N36
      3  933 1466 (N27E01 L= 74)   204     50        0 ( 900/1455- 969/1476) -33.7 E02-W01 N26-N28
      4  577 1376 (N26E26 L= 49)   756    158        2 ( 497/1337- 651/1404) -18.4 E32-E20 N22-N28
      5  129 1208 (N21E71 L=  4)  1249    107        1 ( 102/1161- 164/1251) -21.8 E80-E63 N17-N23
      6  394 1129 (N13E40 L= 35)   469     71        0 ( 371/1092- 427/1165)  63.4 E41-E37 N10-N14
      7  473 1097 (N10E34 L= 41)   307     79        1 ( 448/1061- 507/1128)  26.6 E35-E31 N07-N11
      8  488  964 (N02E34 L= 40)  1024    316        2 ( 385/ 912- 598/1055) -31.6 E40-E26 S01-N08
      9 1526  791 (S20W30 L=105)  1100    421        0 (1477/ 618-1610/ 960)  71.6 W26-W36 S31-S10
     10  739  818 (S10E20 L= 55)   234     44        0 ( 714/ 791- 767/ 836)  33.7 E21-E17 S11-S08
     11  226  725 (S09E62 L= 12)   387     61        1 ( 202/ 703- 247/ 751) -45.0 E64-E60 S10-S07
     12  904  684 (S20E12 L= 63)   191     92        0 ( 874/ 647- 944/ 713)  31.0 E13-E08 S21-S18
     13 1601  637 (S31W37 L=112)   902    214        0 (1502/ 589-1674/ 702)  21.0 W28-W42 S33-S27
     14  273  498 (S24E72 L=  3)   730     48        1 ( 256/ 469- 296/ 525)  12.1 E79-E65 S25-S21
  

    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