Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1130 1877 (N54E31 L=293)   690     65        0 (1100/1851-1167/1898)  80.5 E35-E27 N49-N56
      2  754 1823 (N35E51 L=273)   655     49        1 ( 734/1794- 780/1854) -16.7 E56-E46 N32-N37
      3  544 1797 (N28E69 L=255)   940    123        0 ( 516/1754- 597/1844) -48.8 E73-E64 N24-N32
      4  730 1510 (N13E32 L=293)  1353    324        3 ( 698/1370- 766/1668) -59.9 E39-E27 N04-N23
      5 1255 1515 (N29E01 L=323)   345     83        0 (1229/1475-1277/1549) -45.0 E03-W01 N26-N30
      6  165 1043 (S26E66 L=259)   722    102        2 ( 149/1001- 182/1091)  90.0 E68-E62 S28-S22
      7  624  710 (S35E16 L=308)  1932    395        3 ( 444/ 671- 799/ 764)  30.0 E31-E05 S43-S27
      8  945  674 (S28W06 L=330)   337    154        0 ( 919/ 609- 974/ 733) -69.4 W04-W08 S31-S23
      9 1298  673 (S17W26 L=351)   482     79        1 (1266/ 632-1338/ 707)  63.4 W23-W28 S19-S15
     10 1116  587 (S28W19 L=344)   909    198        2 (1008/ 564-1201/ 619)  38.7 W13-W23 S31-S23
     11 1439  535 (S20W42 L=  6)   930    142        2 (1396/ 491-1501/ 580)  76.0 W38-W44 S23-S15
     12 1481  477 (S22W48 L= 12)   315     44        0 (1454/ 456-1507/ 496)  56.3 W46-W49 S23-S20
     13  744  380 (S54W04 L=329)   279     39        0 ( 727/ 352- 762/ 404) -68.2 W03-W05 S56-S51
     14  598  337 (S65E10 L=315)  1847    181        3 ( 514/ 297- 673/ 368)   4.8 E24-W01 S69-S58
     15 1468  355 (S28W57 L= 21)   378     93        0 (1422/ 344-1512/ 368)  39.8 W53-W59 S30-S25
  

    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