Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  878 1875 (N64W28 L=  6)  1480    191        1 ( 800/1810- 949/1934)   6.7 W14-W49 N60-N67
      2  778 1800 (N61W09 L=347)   341     29        0 ( 757/1773- 794/1820)  78.7 W07-W11 N58-N63
      3 1134 1666 (N38W28 L=  5)  2258    512        1 ( 927/1566-1348/1717) -36.5 W12-W38 N26-N45
      4  699 1566 (N44E08 L=330)   296     59        0 ( 678/1542- 723/1594)  21.8 E09-E04 N42-N45
      5 1643 1426 (N10W50 L= 28)   672    112        0 (1609/1367-1677/1475)  81.9 W48-W51 N06-N13
      6 1831 1267 (S03W61 L= 38)   458     37        1 (1810/1241-1853/1286)  21.8 W58-W63 S04-S01
      7 1377 1192 (N05W24 L=  2)   514    102        1 (1334/1144-1413/1236) -80.5 W22-W25 N01-N07
      8  416 1111 (N22E36 L=301)   370     84        2 ( 385/1075- 457/1134)  -9.5 E38-E32 N20-N24
      9  233 1038 (N22E54 L=284)  1150    197        2 ( 193/ 958- 267/1122) -70.0 E58-E50 N16-N27
     10 1736 1070 (S11W45 L= 23)   408     60        0 (1706/1040-1764/1100) -45.0 W43-W47 S13-S08
     11  180 1039 (N23E60 L=277)  1028    109        3 ( 141/ 991- 220/1088) -54.5 E66-E55 N19-N26
     12 1389  938 (S09W18 L=356)  1105    296        0 (1346/ 814-1417/1084)  54.5 W13-W23 S15-S01
     13  583  977 (N11E27 L=311)   968    235        1 ( 489/ 919- 680/1056) -47.7 E31-E21 N06-N17
     14  313  999 (N18E47 L=291)   404     75        0 ( 289/ 963- 332/1035) -90.0 E48-E44 N15-N19
     15  176  943 (N17E62 L=276)   417     57        0 ( 155/ 923- 204/ 967) -26.6 E64-E58 N15-N18
     16  202  754 (N06E64 L=274)  3416    251        9 ( 126/ 672- 273/ 856)  79.7 E76-E56 N00-N11
     17 1826  640 (S41W55 L= 32)  1089    124        0 (1769/ 618-1886/ 662) -15.6 W45-W71 S45-S37
     18 1662  540 (S43W34 L= 12)  1153    247        0 (1563/ 463-1754/ 618)  11.3 W24-W44 S45-S39
     19 1038  494 (S27E13 L=325)   326     57        0 (1003/ 466-1063/ 526)  21.8 E15-E10 S28-S24
     20  280  499 (S10E70 L=268)   564     57        0 ( 247/ 485- 312/ 514)  -5.7 E75-E65 S11-S09
     21  635  213 (S36E61 L=277)   765     73        1 ( 599/ 186- 665/ 249)  10.0 E70-E53 S38-S33
  

    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