Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1258 1706 (N46W36 L=235)   806     84        1 (1217/1670-1301/1731) -51.3 W31-W39 N42-N48
      2  733 1602 (N48E14 L=185)  1890    429        3 ( 550/1521- 926/1648) -21.8 E34-W01 N39-N53
      3 1220 1540 (N35W24 L=223)  1729    407        3 (1019/1492-1382/1566)  -8.1 W07-W35 N30-N38
      4  691 1416 (N35E18 L=181)   350     95        0 ( 649/1403- 747/1433) -20.6 E21-E13 N33-N36
      5  862 1283 (N24E07 L=192)   229     65        1 ( 834/1258- 896/1306) -36.9 E08-E04 N22-N26
      6  836 1158 (N17E10 L=189)   271    120        0 ( 777/1121- 873/1182) -33.7 E13-E07 N14-N18
      7  681 1025 (N11E21 L=178)   567    171        0 ( 614/ 988- 760/1060)  10.3 E26-E15 N08-N12
      8 1448  866 (S10W24 L=223)   535    148        2 (1418/ 795-1472/ 928)  60.3 W21-W26 S13-S06
      9  217  863 (N05E62 L=137)  1312    189        4 ( 152/ 799- 274/ 927) -36.0 E70-E55 N00-N08
     10 1334  854 (S09W16 L=215)   547    152        3 (1304/ 785-1364/ 920)  76.0 W14-W18 S12-S04
     11  977  899 (S00E05 L=194)   275     70        0 ( 940/ 882-1009/ 917) -14.0 E06-E02 S01-N00
     12  585  808 (S01E31 L=168)   697    251        1 ( 475/ 749- 686/ 833) -23.2 E38-E24 S05-N01
     13 1265  778 (S12W11 L=210)   202     71        1 (1240/ 760-1297/ 801)  14.0 W09-W13 S13-S11
     14 1691  765 (S21W42 L=241)   386     52        1 (1655/ 749-1720/ 783)   0.0 W38-W45 S22-S20
     15 1442  672 (S22W22 L=221)  1525    245        4 (1361/ 608-1520/ 744)  26.6 W15-W27 S25-S17
     16 1720  690 (S27W46 L=244)   551     91        3 (1683/ 655-1750/ 737)  45.0 W42-W48 S29-S24
     17  600  655 (S11E33 L=166)   410    118        2 ( 558/ 627- 656/ 681)  14.0 E36-E28 S12-S09
     18 1485  621 (S27W25 L=224)   307     59        0 (1464/ 598-1512/ 640)  26.6 W23-W27 S27-S25
     19  658  547 (S18E32 L=167)   374    143        1 ( 606/ 531- 728/ 573) -14.0 E34-E26 S19-S16
     20  856  424 (S30E22 L=177)   632    128        1 ( 820/ 377- 885/ 484)  41.2 E26-E18 S32-S25
     21  964  162 (S56E30 L=168)   502     47        0 ( 935/ 150- 994/ 175) -36.9 E32-E26 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