Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  722 1868 (N38E59 L=135)   661     51        1 ( 692/1845- 755/1885)   0.0 E65-E55 N35-N39
      2  657 1833 (N33E60 L=135)   742     79        1 ( 631/1795- 673/1877) -28.3 E68-E54 N30-N37
      3  638 1700 (N23E47 L=147)   331     55        0 ( 608/1678- 669/1721)  45.0 E49-E45 N21-N25
      4  808 1604 (N21E31 L=164)   865    284        2 ( 759/1464- 856/1717) -41.2 E39-E22 N13-N28
      5  457 1593 (N12E55 L=140)   752     84        1 ( 420/1564- 501/1633)  68.2 E58-E52 N10-N15
      6 1093 1544 (N25E11 L=183)   327    108        0 (1078/1490-1110/1590) -56.3 E13-E08 N22-N28
      7  352 1473 (N03E57 L=137)  1715    189        2 ( 316/1371- 389/1548) -59.0 E62-E53 S03-N07
      8 1187 1314 (N14W01 L=196)   384    118        1 (1156/1259-1203/1361) -59.0 E01-W03 N11-N16
      9  395 1072 (S19E40 L=154)  1641    321        4 ( 278/ 955- 495/1178)  52.6 E49-E34 S27-S10
     10  872 1106 (S05E10 L=184)   266    105        0 ( 839/1056- 889/1147) -31.0 E13-E08 S08-S03
     11  128 1104 (S22E72 L=123)   717     81        2 ( 101/1071- 151/1144) -33.7 E77-E67 S23-S19
     12  498  847 (S29E28 L=166)  2916    672        3 ( 211/ 725- 798/ 936)  27.0 E60-E09 S44-S16
     13 1402  806 (S07W27 L=222)   276     87        0 (1372/ 766-1443/ 836)  68.2 W26-W29 S09-S04
     14 1484  774 (S06W33 L=228)   248     79        0 (1463/ 734-1501/ 816) -36.9 W31-W35 S07-S04
     15 1139  628 (S24W19 L=213)   420    149        1 (1068/ 593-1201/ 660)  49.4 W15-W21 S28-S20
     16 1619  545 (S14W53 L=248)   598    110        2 (1591/ 499-1650/ 594) -71.6 W51-W55 S16-S10
     17 1190  511 (S29W27 L=221)   367    151        0 (1119/ 500-1263/ 525)  18.4 W22-W31 S31-S27
     18  554  478 (S53E18 L=177)   340     81        1 ( 520/ 443- 586/ 515) -29.7 E21-E13 S54-S50
     19 1695  432 (S16W71 L=265)  1335    167        2 (1639/ 381-1744/ 484)  90.0 W67-W75 S20-S12
     20 1626  439 (S19W62 L=257)   815    118        2 (1584/ 395-1665/ 472)  71.6 W58-W65 S21-S15
     21 1014  299 (S48W30 L=224)  1870    365        4 ( 852/ 230-1145/ 394)   1.7 W11-W45 S50-S45
  

    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