Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  962 1859 (N60W38 L=334)   388     47        1 ( 936/1837- 986/1878)  59.0 W36-W42 N56-N61
      2  829 1813 (N62W21 L=317)   639    124        1 ( 778/1789- 900/1829) -22.6 W15-W27 N58-N64
      3  684 1756 (N64W01 L=296)   473     75        0 ( 662/1718- 711/1787)  35.5 E03-W05 N60-N66
      4 1213 1742 (N41W41 L=337)   410     66        1 (1184/1712-1248/1759) -21.8 W37-W44 N39-N42
      5 1087 1690 (N42W29 L=325)   389     99        0 (1040/1658-1117/1723)  11.3 W23-W33 N40-N43
      6  366 1594 (N61E49 L=247)  1209    191        0 ( 296/1545- 447/1642)   6.6 E62-E35 N57-N63
      7 1483 1571 (N22W47 L=343)   647    235        0 (1422/1477-1556/1613)  84.3 W42-W49 N15-N25
      8 1825 1264 (S05W60 L=356)   505     21        1 (1805/1240-1843/1286) -90.0 W57-W62 S06-S03
      9 1912 1166 (S13W68 L=  4)  1479    113        5 (1887/1107-1930/1223)  35.5 W62-W72 S16-S09
     10  503 1149 (N26E29 L=267)   786    231        1 ( 410/1101- 606/1201) -37.6 E35-E22 N20-N30
     11 1759  896 (S22W43 L=339)  2794    377        6 (1662/ 769-1842/1042)  26.6 W33-W54 S27-S16
     12 1319  870 (S10W12 L=308)   568    155        1 (1299/ 800-1336/ 948)  58.0 W09-W14 S13-S05
     13  316  848 (N13E50 L=246)  1148    251        4 ( 223/ 780- 387/ 903) -39.8 E58-E43 N07-N17
     14  368  677 (N02E51 L=245)   445     83        1 ( 336/ 639- 402/ 715)  23.2 E54-E46 N00-N03
     15 1419  565 (S32W11 L=307)   780    201        1 (1346/ 526-1497/ 634)   8.7 W05-W18 S33-S29
     16  569  563 (S09E40 L=256)   258     62        1 ( 548/ 535- 592/ 590)  45.0 E41-E37 S10-S07
     17  443  432 (S14E57 L=239)   659     66        2 ( 414/ 401- 471/ 474)  59.0 E60-E53 S16-S11
     18 1154  385 (S35E11 L=284)  1460    285        0 (1033/ 331-1279/ 454)   0.0 E20-W00 S37-S33
     19  584  380 (S20E49 L=247)   409     87        3 ( 551/ 346- 618/ 406) -63.4 E50-E46 S22-S18
     20  627  250 (S31E57 L=239)   778     77        0 ( 600/ 219- 658/ 280)  17.1 E64-E51 S32-S28
     21  795  160 (S42E54 L=241)  2062    178        5 ( 718/ 127- 871/ 215)  -2.7 E68-E42 S45-S39
  

    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