Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1138 1872 (N53E30 L=292)   591     78        1 (1110/1840-1167/1895) -81.9 E34-E26 N48-N56
      2  769 1820 (N35E49 L=273)   625     56        1 ( 752/1792- 792/1852) -39.8 E54-E45 N32-N37
      3  552 1792 (N27E67 L=256)   947    137        1 ( 523/1734- 598/1836) -51.3 E71-E61 N22-N32
      4  746 1497 (N13E30 L=293)  1412    337        2 ( 711/1353- 776/1660) -61.2 E37-E25 N03-N23
      5 1273 1511 (N29E00 L=323)   336     98        0 (1248/1470-1292/1562) -45.0 E03-W02 N26-N31
      6  184 1013 (S28E63 L=260)   728    143        1 ( 158/ 943- 209/1074) -63.4 E66-E58 S31-S23
      7  620  695 (S36E16 L=307)  1486    345        2 ( 464/ 663- 775/ 733)  30.6 E29-E06 S42-S29
      8  963  671 (S27W07 L=330)   222    118        0 ( 935/ 626- 989/ 715)  90.0 W06-W08 S30-S24
      9 1316  669 (S17W28 L=350)   398     91        1 (1279/ 636-1357/ 704)   9.5 W24-W30 S18-S15
     10 1454  535 (S19W43 L=  6)  1304    315        3 (1357/ 480-1559/ 629)  70.3 W37-W45 S25-S11
     11 1140  577 (S27W21 L=344)   813    173        4 (1047/ 552-1220/ 602)  31.0 W15-W25 S30-S23
     12  552  355 (S65E17 L=306)   607     70        1 ( 518/ 331- 584/ 387)  41.6 E23-E12 S68-S60
     13  746  355 (S56W06 L=329)   356     32        0 ( 728/ 333- 768/ 380) -53.1 W03-W08 S58-S53
     14 1501  355 (S27W60 L= 23)   633    152        0 (1428/ 339-1571/ 377)  32.5 W54-W66 S30-S23
     15  617  324 (S65E06 L=316)   758     51        1 ( 588/ 296- 648/ 353) -11.3 E11-W00 S67-S62
  

    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