Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  632 1801 (N59E32 L=191)   704     94        2 ( 598/1765- 672/1825)  39.8 E37-E26 N55-N61
      2 1631 1611 (N30W56 L=279)  1637    206        3 (1549/1525-1686/1670) -68.2 W50-W60 N23-N34
      3  939 1609 (N37W01 L=224)   561     79        0 ( 904/1574- 983/1634)   9.5 E02-W04 N34-N39
      4 1326 1524 (N27W26 L=249)   339     77        0 (1289/1497-1370/1545) -31.0 W23-W28 N24-N28
      5 1796 1344 (N11W60 L=283)   661    119        1 (1776/1282-1818/1402)  66.8 W57-W61 N07-N14
      6  338  880 (S03E47 L=176)  1120    273        0 ( 244/ 769- 426/ 943) -37.6 E54-E41 S09-N02
      7  329  698 (S13E52 L=171)   331     67        2 ( 304/ 669- 357/ 726) -63.4 E55-E49 S15-S11
      8  251  622 (S17E64 L=159)  1226    172        3 ( 215/ 552- 291/ 684)  32.5 E72-E59 S20-S13
      9 1713  653 (S31W49 L=272)   341     45        0 (1693/ 626-1734/ 676) -38.7 W46-W51 S32-S28
     10  342  606 (S19E55 L=168)  1063    159        5 ( 291/ 550- 417/ 652)  14.9 E60-E45 S22-S15
     11  485  533 (S25E45 L=178)   884    261        0 ( 418/ 448- 590/ 589)  18.4 E55-E34 S30-S22
     12  465  325 (S39E63 L=160)  1022    133        1 ( 448/ 260- 492/ 388)  19.1 E80-E54 S44-S34
     13 1201  299 (S52W05 L=229)   619     83        0 (1161/ 278-1248/ 319)   6.3 W01-W10 S53-S49
     14  947  185 (S59E25 L=198)  1682    150        4 ( 880/ 153-1003/ 228)  14.0 E36-E16 S63-S55
     15 1272  170 (S68W17 L=240)   535     88        0 (1232/ 156-1314/ 187)  -4.4 W10-W23 S70-S65
  

    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