Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  502 1697 (N49E56 L=176)  1068     83        1 ( 469/1659- 531/1735) -14.7 E67-E48 N46-N52
      2  429 1689 (N48E68 L=164)   690     84        0 ( 406/1651- 460/1713) -50.2 E73-E62 N44-N50
      3  831 1653 (N46E16 L=216)   309     37        2 ( 805/1632- 855/1675) -31.0 E18-E13 N44-N47
      4  934 1537 (N37E06 L=226)   413     84        1 ( 892/1508- 981/1560) -23.2 E09-E02 N34-N38
      5 1079 1440 (N30W04 L=237)   326    108        1 (1033/1418-1129/1458) -18.4 W01-W07 N28-N31
      6  183 1185 (N13E66 L=166)   767    107        3 ( 159/1139- 204/1233)  71.6 E69-E63 N09-N15
      7  475 1135 (N11E36 L=196)   262     63        1 ( 452/1103- 496/1161)  76.0 E38-E34 N08-N12
      8 1802 1121 (N07W57 L=289)   695    100        1 (1767/1095-1846/1149)  18.4 W53-W62 N05-N08
      9  353 1076 (N07E46 L=186)   357     97        0 ( 319/1061- 397/1108) -15.9 E49-E42 N05-N08
     10 1857  983 (S02W63 L=295)   706     79        1 (1813/ 969-1898/1006)  -4.8 W57-W69 S02-N00
     11  309  881 (S05E50 L=182)  1781    323        3 ( 221/ 779- 410/ 998) -36.9 E59-E42 S11-N01
     12  244  673 (S19E63 L=169)  6242    474       15 ( 148/ 528- 332/ 850) -90.0 E77-E53 S29-S07
     13  750  740 (S14E18 L=214)   434    161        1 ( 684/ 700- 795/ 800)  36.9 E22-E14 S16-S09
     14 1077  628 (S21W03 L=235)   766    300        2 ( 966/ 535-1133/ 703)  42.0 E04-W06 S27-S16
     15  397  615 (S22E47 L=185)  1028    176        1 ( 366/ 540- 438/ 691)  45.0 E53-E41 S27-S17
     16  872  573 (S25E11 L=221)   803    184        0 ( 832/ 496- 934/ 634)  51.3 E14-E06 S30-S20
     17  468  445 (S35E48 L=185)   425     55        0 ( 442/ 424- 504/ 465)  18.4 E51-E42 S36-S33
     18  743  352 (S42E25 L=207)  1847    237        2 ( 648/ 309- 839/ 409)  11.3 E35-E15 S45-S37
     19  710  210 (S57E40 L=192)   670     57        2 ( 686/ 188- 731/ 235)  50.2 E45-E35 S59-S53
     20 1184  172 (S62W19 L=251)   637     39        0 (1165/ 145-1200/ 204) -48.0 W15-W25 S67-S57
  

    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