Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1277 1713 (N46W38 L=234)   539     89        3 (1241/1694-1333/1737) -33.7 W34-W42 N42-N47
      2  744 1614 (N49E12 L=183)  1690    393        4 ( 572/1558- 907/1652) -17.4 E31-W01 N41-N53
      3 1240 1548 (N35W26 L=222)  1923    412        4 (1039/1500-1409/1582)  -9.8 W09-W38 N31-N38
      4  716 1425 (N36E16 L=180)   309     77        1 ( 679/1409- 763/1439) -15.9 E18-E11 N34-N36
      5  879 1165 (N17E07 L=189)   317    148        0 ( 818/1116- 925/1198) -45.0 E10-E04 N13-N19
      6  116 1056 (N17E77 L=119)   873     50        0 ( 101/1025- 132/1086)  63.4 E82-E73 N14-N18
      7  144 1017 (N14E71 L=125)   545     85        0 ( 134/ 984- 155/1072)  90.0 E72-E68 N12-N17
      8  729 1026 (N10E18 L=178)   538    156        1 ( 677/ 983- 808/1065)  18.4 E21-E12 N08-N12
      9 1486  875 (S10W27 L=222)   652    150        3 (1446/ 794-1521/ 941)  63.4 W23-W29 S14-S06
     10  244  852 (N04E59 L=137)  1196    183        5 ( 198/ 779- 289/ 908) -45.0 E63-E53 N00-N07
     11 1380  835 (S11W19 L=215)   344    128        3 (1361/ 775-1406/ 895)  76.0 W17-W20 S14-S06
     12  703  800 (S03E23 L=173)   365     92        1 ( 671/ 758- 731/ 843) -78.7 E24-E21 S05-N00
     13  588  821 (S00E30 L=166)   462    137        1 ( 521/ 786- 640/ 839) -23.2 E34-E26 S02-N01
     14 1313  799 (S12W14 L=210)   260     90        0 (1277/ 776-1340/ 832)  26.6 W11-W16 S12-S09
     15 1718  775 (S21W45 L=241)   438     67        1 (1682/ 748-1749/ 794)  18.4 W41-W48 S22-S20
     16  832  746 (S08E16 L=180)   227     61        1 ( 801/ 726- 864/ 762) -26.6 E17-E13 S09-S06
     17 1742  701 (S27W48 L=244)   644     86        1 (1708/ 665-1777/ 747)  26.6 W44-W51 S29-S24
     18 1470  677 (S22W24 L=220)  1243    226        3 (1399/ 622-1551/ 741)  22.6 W18-W30 S25-S18
     19  671  661 (S11E28 L=168)   844    226        5 ( 581/ 630- 765/ 684)   0.0 E34-E21 S12-S09
     20  692  553 (S18E29 L=167)   438    158        1 ( 637/ 535- 769/ 583) -12.5 E32-E23 S19-S15
     21  895  432 (S30E19 L=177)   614    111        1 ( 865/ 390- 924/ 485)  49.4 E22-E16 S32-S25
     22  982  167 (S56E28 L=168)   452     56        0 ( 957/ 153-1005/ 189) -63.4 E31-E23 S58-S53
  

    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