Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  711 1401 (N35E09 L=165)   314    106        0 ( 664/1371- 766/1422)   0.0 E13-E04 N33-N35
      2  578 1277 (N31E21 L=153)   492     97        2 ( 525/1255- 631/1295) -26.6 E25-E17 N28-N33
      3  217 1035 (N24E56 L=118)  1572    223        2 ( 158/ 962- 301/1130) -39.1 E64-E48 N18-N31
      4 1391 1041 (S03W21 L=195)   266     77        1 (1369/1003-1417/1082)  45.0 W18-W23 S05-S01
      5 1890  952 (S24W59 L=234)   504     63        0 (1873/ 924-1905/ 991) -78.7 W56-W61 S26-S21
      6 1020  889 (S02E04 L=171)   818    213        4 ( 919/ 852-1117/ 920) -41.2 E08-W00 S06-N02
      7 1627  898 (S18W33 L=207)   369    116        0 (1583/ 870-1670/ 919) -26.6 W29-W35 S20-S16
      8 1634  771 (S26W31 L=205)   549    179        0 (1556/ 741-1704/ 830)   0.0 W24-W37 S27-S24
      9  422  754 (N04E44 L=131)   553     88        1 ( 398/ 704- 446/ 795)  59.0 E45-E41 N01-N06
     10  275  755 (N07E56 L=118)   348     63        2 ( 250/ 719- 300/ 783)  56.3 E58-E53 N05-N08
     11 1358  633 (S26W09 L=183)   663    151        2 (1298/ 596-1413/ 682)   6.3 W04-W13 S26-S24
     12 1176  627 (S21E02 L=172)   259     91        0 (1158/ 581-1193/ 678)  71.6 E03-W00 S23-S17
     13  621  564 (S11E36 L=138)   374    100        1 ( 581/ 540- 667/ 588)  -9.5 E39-E33 S12-S09
     14  843  545 (S17E24 L=151)   502    217        1 ( 752/ 511- 922/ 587) -36.9 E28-E18 S19-S12
     15  344  488 (S10E63 L=111)  2808    316        7 ( 245/ 425- 486/ 546) -27.8 E77-E53 S15-S04
     16  584  443 (S17E45 L=130)   757    209        1 ( 526/ 376- 638/ 521)  25.0 E53-E37 S20-S13
     17  451  487 (S12E52 L=122)   399     79        0 ( 420/ 464- 484/ 520) -53.1 E54-E50 S13-S09
     18  703  455 (S19E36 L=138)   576    108        4 ( 655/ 408- 743/ 505)  32.0 E40-E32 S21-S16
     19 1042  458 (S28E15 L=159)   361     89        0 ( 995/ 428-1085/ 493)  15.9 E18-E11 S28-S26
     20  947  329 (S34E27 L=147)   435     85        1 ( 927/ 287- 969/ 376)  40.6 E30-E23 S36-S30
     21 1090  206 (S49E27 L=148)   482     77        2 (1054/ 185-1127/ 228)  -8.1 E29-E22 S50-S46
     22  879  186 (S43E44 L=131)   564     71        1 ( 846/ 171- 923/ 203)   0.0 E48-E39 S44-S40
  

    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