Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  644 1649 (N22E40 L= 24)   595    121        2 ( 598/1604- 675/1710) -76.0 E42-E38 N18-N26
      2  506 1625 (N18E50 L= 15)   457     56        0 ( 488/1592- 523/1662) -59.0 E51-E47 N16-N21
      3  324 1620 (N16E69 L=355)  1567      0        0 ( 285/1588- 363/1656)  33.7 E74-E64 N13-N18
      4  820 1515 (N17E23 L= 41)   359    136        0 ( 786/1459- 861/1567)  83.7 E24-E22 N12-N21
      5  388 1364 (N01E48 L= 17)   652    136        1 ( 315/1350- 455/1383)   4.8 E54-E42 N00-N02
      6 1716 1266 (N24W39 L=104)   864    257        0 (1612/1194-1813/1333)  39.8 W31-W49 N16-N31
      7  797 1260 (N01E18 L= 47)   199     45        0 ( 780/1231- 817/1287)  90.0 E18-E17 N00-N03
      8  405 1210 (S08E42 L= 22)   378    101        1 ( 348/1182- 453/1229)   0.0 E47-E38 S09-S07
      9  371 1054 (S18E42 L= 22)   307     64        1 ( 342/1024- 392/1081) -71.6 E44-E40 S19-S16
     10 1684  983 (N06W41 L=106)   437     78        1 (1634/ 966-1725/1003)  15.9 W37-W44 N04-N08
     11 1239  941 (S07W14 L= 79)   217     97        0 (1229/ 893-1256/ 990) -78.7 W13-W15 S09-S04
     12  462  947 (S22E34 L= 31)   491    140        0 ( 397/ 909- 533/ 978)  33.7 E38-E28 S25-S19
     13  907  950 (S14E05 L= 60)   486    152        0 ( 828/ 920- 979/ 975)   5.7 E10-W00 S14-S12
     14  224  793 (S35E58 L=  7)  1402    283        1 ( 107/ 754- 332/ 840)   9.7 E85-E44 S38-S30
     15 1584  768 (S08W40 L=105)   440    151        0 (1533/ 727-1653/ 801)  40.6 W37-W44 S11-S04
     16 1452  700 (S15W34 L= 98)   252     76        0 (1417/ 675-1486/ 713)   0.0 W30-W36 S15-S14
     17 1314  669 (S20W26 L= 91)   269     95        0 (1265/ 652-1363/ 689)  45.0 W23-W28 S22-S17
     18 1564  504 (S22W51 L=115)  2060    328        3 (1420/ 423-1689/ 620)  53.1 W43-W58 S30-S14
     19 1717  551 (S15W61 L=126)  1388    123        7 (1672/ 496-1760/ 608)  74.1 W57-W65 S18-S11
     20  355  589 (S47E46 L= 19)   382     64        0 ( 321/ 575- 392/ 603)   0.0 E50-E40 S48-S45
     21  809  542 (S40E02 L= 62)   371    131        0 ( 751/ 512- 875/ 581)  -5.7 E07-W03 S41-S38
  

    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