Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1212 1626 (N36E07 L= 17)  2100    548        3 (1135/1448-1294/1802) -42.5 E21-W03 N26-N48
      2  407 1682 (N18E67 L=317)  3143    215        2 ( 357/1634- 463/1733)  77.5 E70-E63 N14-N23
      3  618 1555 (N15E41 L=343)   897    383        2 ( 568/1429- 689/1674) -37.4 E47-E30 N09-N22
      4  441 1501 (N08E51 L=332)   857    223        3 ( 369/1447- 480/1567)  63.4 E55-E48 N03-N12
      5  358 1513 (N07E60 L=324)   732    118        1 ( 310/1457- 395/1550)  66.8 E62-E57 N02-N09
      6 1794 1401 (N43W46 L= 70)   490     95        1 (1772/1377-1821/1421)  35.5 W43-W50 N39-N44
      7 1658 1266 (N27W33 L= 57)   770    208        1 (1600/1167-1688/1364) -51.3 W27-W36 N21-N31
      8 1199 1178 (N08W06 L= 29)   207     41        0 (1184/1147-1219/1204)  90.0 W04-W06 N06-N09
      9  752 1055 (S10E16 L=  8)   227     87        0 ( 707/1020- 792/1088)  63.4 E18-E14 S13-S07
     10 1832  910 (N13W57 L= 81)  2635    433        5 (1789/ 769-1881/1055) -41.2 W49-W68 N06-N20
     11 1435  964 (N03W25 L= 49)   282    146        0 (1369/ 942-1478/ 986)  45.0 W21-W27 N00-N05
     12 1511  945 (N04W30 L= 54)   219     16        0 (1492/ 925-1529/ 966)  71.6 W29-W31 N02-N05
     13 1257  791 (S11W20 L= 43)   470    184        0 (1188/ 729-1351/ 822)  52.1 W17-W24 S16-S07
     14  180  800 (S40E58 L=326)   801    195        2 ( 136/ 786- 215/ 821)  16.7 E63-E53 S40-S37
     15  977  809 (S18W03 L= 27)   228    102        0 ( 918/ 798-1027/ 817)  31.0 W00-W06 S19-S16
     16 1003  663 (S26W09 L= 33)   642    169        1 ( 910/ 643-1087/ 687)  35.0 W03-W13 S28-S21
     17 1173  513 (S29W25 L= 49)   311     53        1 (1140/ 495-1208/ 536)   9.5 W22-W28 S30-S28
     18  901  473 (S41W10 L= 34)   235     24        1 ( 887/ 450- 918/ 494) -56.3 W08-W11 S42-S39
     19  991  467 (S38W17 L= 40)   288     59        1 ( 952/ 452-1028/ 481)  31.0 W13-W18 S39-S36
  

    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