Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1512 1594 (N42W17 L=161)  1642    377        3 (1421/1467-1622/1710) -33.0 W07-W27 N36-N49
      2  563 1600 (N15E46 L= 98)   863    157        2 ( 542/1517- 593/1669) -59.0 E51-E41 N10-N20
      3  681 1598 (N18E38 L=107)   838    239        3 ( 617/1565- 773/1658)  -8.1 E44-E30 N14-N20
      4 1342 1564 (N34W04 L=149)   278     72        0 (1329/1529-1357/1607) -68.2 W02-W06 N31-N36
      5  737 1484 (N12E29 L=115)   308    106        0 ( 721/1427- 755/1532) -56.3 E30-E26 N08-N14
      6  830  976 (S15E10 L=134)   202     99        0 ( 783/ 964- 883/ 990)  26.6 E12-E06 S16-S12
      7 1790  939 (N10W51 L=195)   323     90        0 (1780/ 894-1798/ 983) -80.5 W49-W52 N07-N13
      8  638  810 (S29E18 L=126)   594    255        0 ( 556/ 727- 711/ 922)  65.0 E23-E15 S35-S20
      9 1206  705 (S20W19 L=164)   475    162        0 (1158/ 627-1238/ 765) -33.7 W14-W23 S23-S17
     10  498  710 (S39E28 L=116)   273     48        0 ( 466/ 699- 529/ 724)   9.5 E30-E24 S39-S37
     11  754  612 (S38E06 L=139)   299     98        1 ( 729/ 569- 785/ 655) -39.8 E08-E02 S40-S35
     12 1518  574 (S17W45 L=189)   323    111        1 (1467/ 541-1554/ 591)   8.1 W41-W48 S19-S16
     13 1548  444 (S23W55 L=199)   550     74        1 (1507/ 417-1577/ 466)  15.9 W51-W58 S24-S21
     14 1543  311 (S30W69 L=213)  1283    157        2 (1477/ 291-1622/ 330)  23.6 W60-W79 S32-S25
     15  826  224 (S65W23 L=167)  1273    125        1 ( 786/ 183- 874/ 284) -14.7 W13-W33 S69-S60
  

    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