Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1570 1697 (N35W58 L=133)  1448    172        1 (1505/1654-1644/1744)   8.9 W47-W79 N32-N38
      2  712 1526 (N34E16 L= 59)   267     36        0 ( 687/1507- 739/1545) -36.9 E17-E13 N32-N35
      3  929 1462 (N27E01 L= 74)   235     57        0 ( 895/1442- 963/1476) -14.0 E03-W01 N25-N28
      4  563 1375 (N26E27 L= 48)   767    162        2 ( 480/1334- 639/1407) -26.6 E33-E21 N22-N29
      5  128 1206 (N21E71 L=  4)  1169     97        3 ( 100/1167- 161/1250) -18.4 E82-E64 N17-N23
      6  392 1128 (N12E40 L= 35)   579     99        3 ( 365/1087- 434/1166)  18.4 E42-E36 N09-N14
      7  471  993 (N04E35 L= 40)  1406    440        4 ( 383/ 911- 591/1120) -26.6 E41-E26 S01-N10
      8 1519  794 (S20W30 L=105)  1186    436        2 (1468/ 615-1604/ 959)  65.8 W25-W36 S31-S10
      9  730  816 (S10E20 L= 55)   233     41        1 ( 705/ 790- 758/ 835)  33.7 E21-E18 S11-S08
     10  899  670 (S21E12 L= 63)   263    125        1 ( 870/ 627- 944/ 713)  45.0 E14-E08 S23-S18
     11 1595  635 (S31W37 L=112)   890    216        2 (1498/ 586-1670/ 703)  24.8 W28-W42 S33-S27
     12  947  558 (S28E11 L= 64)   242     63        0 ( 924/ 529- 969/ 591) -78.7 E12-E09 S30-S25
     13  274  498 (S24E72 L=  3)   643     53        2 ( 259/ 467- 294/ 524)  13.0 E79-E66 S25-S22
     14  497  363 (S36E55 L= 20)   380     86        2 ( 475/ 332- 534/ 389)  15.3 E60-E49 S37-S34
  

    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