Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1436 1586 (N26W44 L= 22)   635     96        0 (1388/1558-1480/1611)  -7.1 W40-W48 N24-N27
      2 1741 1543 (N13W69 L= 46)   987    241        1 (1689/1518-1792/1559) -19.7 W62-W77 N10-N15
      3 1818 1391 (N03W68 L= 45)   916    230        1 (1797/1323-1833/1475)  30.3 W62-W74 N00-N07
      4 1692 1451 (N11W57 L= 35)   371    102        2 (1658/1432-1736/1469) -38.7 W54-W60 N08-N12
      5 1458 1426 (N17W38 L= 15)   531     78        1 (1408/1399-1501/1447) -38.7 W35-W40 N14-N19
      6  772 1422 (N37E05 L=332)   211     45        1 ( 738/1404- 792/1440) -14.0 E07-E03 N35-N37
      7 1707 1082 (S09W44 L= 21)   542    156        1 (1688/1008-1735/1153)  41.2 W40-W48 S12-S05
      8  446 1071 (N23E35 L=302)   824    203        3 ( 383/ 987- 527/1142) -56.3 E39-E30 N16-N28
      9  872 1054 (N13E08 L=329)   755    269        0 ( 760/ 984-1001/1122) -54.5 E13-E02 N05-N19
     10  291  817 (N11E54 L=283)   793    198        1 ( 230/ 766- 357/ 846) -31.0 E59-E48 N07-N13
     11  482  800 (N07E39 L=299)   268     90        0 ( 452/ 772- 498/ 841)  36.9 E41-E36 N05-N08
     12 1023  738 (S09E07 L=330)   779    294        1 ( 894/ 676-1131/ 807) -52.4 E13-E02 S15-S02
     13  760  520 (S16E29 L=308)   882    165        1 ( 730/ 460- 788/ 598)  56.3 E33-E25 S19-S10
     14  681  403 (S21E40 L=298)  1496    344        4 ( 650/ 302- 706/ 486)  52.4 E46-E35 S28-S15
     15  958  385 (S30E23 L=314)   290     79        0 ( 942/ 355- 971/ 423)  38.7 E25-E20 S31-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