Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  441 1580 (N31E55 L=  1)  1067    159        1 ( 420/1512- 469/1643) -45.0 E62-E51 N26-N35
      2  732 1476 (N27E25 L= 31)   899    237        2 ( 697/1390- 762/1584) -55.3 E31-E21 N21-N34
      3 1621 1359 (N28W41 L= 97)  4000    719        5 (1358/1154-1836/1529) -26.6 W20-W61 N16-N38
      4  653 1390 (N21E29 L= 27)   316     87        0 ( 611/1379- 708/1404)   8.1 E31-E24 N19-N21
      5 1649 1181 (N16W42 L= 98)   510    146        0 (1623/1105-1664/1239) -83.7 W39-W43 N11-N20
      6 1504 1168 (N15W30 L= 86)   465    137        1 (1469/1134-1553/1218) -45.0 W27-W33 N12-N17
      7  191  955 (S11E63 L=353)   925    103        1 ( 153/ 923- 235/ 993) -15.3 E68-E57 S12-S08
      8  595  810 (S16E26 L= 30)   285     82        1 ( 559/ 792- 637/ 827)  21.8 E28-E23 S17-S14
      9  557  735 (S21E29 L= 27)   284     70        0 ( 542/ 697- 572/ 771) -90.0 E29-E27 S23-S18
     10 1618  642 (S17W46 L=102)  1469    307        2 (1498/ 579-1733/ 688)  17.5 W37-W57 S22-S14
     11  646  653 (S25E22 L= 33)   285     71        0 ( 606/ 630- 676/ 673) -21.8 E25-E20 S26-S24
     12 1755  545 (S23W67 L=123)   755     71        1 (1733/ 509-1781/ 576)  78.7 W63-W70 S25-S20
     13 1392  492 (S29W33 L= 89)   420     81        1 (1349/ 471-1438/ 519)  26.6 W29-W35 S30-S27
  

    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