Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  394 1509 (N34E54 L=194)   402     63        1 ( 378/1476- 410/1543) -39.8 E56-E50 N31-N36
      2  822 1454 (N31E14 L=234)   490    145        1 ( 762/1426- 903/1488) -21.8 E18-E08 N29-N33
      3 1453 1367 (N24W30 L=279)   439    171        0 (1392/1301-1495/1420) -53.1 W26-W32 N19-N28
      4  300 1189 (N13E52 L=196)  1000    152        2 ( 269/1124- 325/1261)  83.7 E55-E49 N08-N17
      5 1628 1034 (N03W40 L=288)   742    195        3 (1598/ 954-1652/1110) -69.4 W38-W42 S01-N07
      6  957  994 (N02E04 L=244)   331    131        0 ( 895/ 958-1000/1023) -26.6 E07-E01 N00-N03
      7  160  894 (S06E69 L=180)  1341    132        2 ( 133/ 832- 191/ 960) -49.4 E72-E64 S09-S02
      8  361  901 (S05E45 L=203)   364     71        1 ( 337/ 869- 380/ 938)  53.1 E47-E43 S06-S02
      9  506  757 (S13E35 L=213)   626    169        2 ( 444/ 719- 563/ 819)  31.0 E40-E30 S15-S09
     10  250  648 (S22E64 L=185)  1911    199        2 ( 214/ 560- 296/ 731)  37.4 E71-E54 S28-S15
     11  821  691 (S17E13 L=235)   351    133        1 ( 761/ 675- 886/ 704)  14.0 E17-E09 S18-S16
     12  610  581 (S25E29 L=219)  1069    190        3 ( 566/ 494- 675/ 646)  47.7 E35-E23 S31-S20
     13 1680  558 (S28W52 L=300)  1889    217        4 (1578/ 485-1747/ 626)  36.0 W43-W58 S33-S23
     14  542  373 (S41E44 L=204)  1713    147        3 ( 487/ 329- 606/ 424)   7.1 E54-E36 S45-S36
  

    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