Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  967 1842 (N60W36 L=263)   403     53        0 ( 942/1817- 993/1864)   5.2 W30-W41 N58-N61
      2 1695 1584 (N18W68 L=295)   822     82        0 (1652/1562-1734/1607)  -9.5 W62-W74 N16-N18
      3 1213 1331 (N19W19 L=246)   826    302        0 (1083/1270-1331/1360) -13.2 W09-W26 N14-N21
      4 1255 1180 (N10W17 L=244)   301    133        0 (1216/1128-1292/1229)  29.7 W13-W20 N07-N11
      5  211  963 (N20E60 L=167)   567     97        1 ( 174/ 942- 263/ 991) -20.0 E64-E53 N18-N22
      6  375  950 (N17E43 L=183)   347    174        0 ( 337/ 904- 411/ 980) -45.0 E46-E40 N14-N19
      7  621  913 (N10E26 L=201)   281     72        0 ( 592/ 884- 652/ 947) -78.7 E27-E24 N07-N12
      8  294  893 (N15E52 L=175)   490    102        2 ( 278/ 841- 316/ 943)  71.6 E53-E49 N11-N17
      9  191  779 (N10E67 L=160)   456     61        3 ( 166/ 750- 213/ 804) -53.1 E70-E63 N07-N11
     10 1283  653 (S21W06 L=232)   224     60        2 (1262/ 630-1306/ 689)  56.3 W03-W07 S21-S18
     11 1617  539 (S40W28 L=255)  2063    469        0 (1452/ 420-1802/ 682)   9.5 W12-W49 S44-S36
     12  568  606 (S07E38 L=188)   303     71        1 ( 537/ 571- 595/ 637) -68.2 E39-E36 S09-S04
     13 1349  579 (S27W08 L=235)   229     42        0 (1338/ 552-1362/ 611)  56.3 W06-W08 S29-S25
     14  814  505 (S18E26 L=200)   493    185        1 ( 787/ 447- 867/ 578)  71.6 E28-E24 S21-S12
     15  939  487 (S22E19 L=207)   438    118        1 ( 888/ 457- 976/ 529)   8.1 E22-E15 S23-S20
     16  689  473 (S17E36 L=191)   273     71        0 ( 669/ 451- 713/ 496)  14.0 E37-E33 S18-S15
     17  453  347 (S21E64 L=163)  2465    171        1 ( 425/ 259- 486/ 409)  35.2 E76-E56 S28-S16
     18 1331  319 (S47E00 L=226)  1365    216        2 (1221/ 282-1423/ 376)  -6.7 E09-W08 S49-S43
     19  651  303 (S28E49 L=178)   392     74        2 ( 623/ 277- 682/ 334)  15.9 E51-E44 S29-S25
     20  868  266 (S36E36 L=191)   623    112        1 ( 834/ 221- 891/ 325)  32.5 E41-E30 S39-S31
  

    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