////////////////////////////////////////////////////////////////
//
//     News110721.q
//
////////////////////////////////////////////////////////////////

(Def (News110721)
  (Local plot curve1 curve2 axes plot window)
  (Unbound t)
  (Setq plot (New Plot))
  (Setq plot.Width 400)
  (Setq plot.Height 400)
  (Setq window (New Window))
  (Setq window.Content plot)
  (Setq window.Title "PLANETQUANTUM.COM")
  (Setq window.WindowStyle "SingleBorderWindow")
  (Setq window.ResizeMode "CanMinimize")
  (Setq window.SizeToContent "WidthAndHeight")
  (window.Show)
  (Push plot.Children (Setq curve1 (New Curve)))
  (Setq curve1.StrokeThickness 3)
  (Setq curve1.Stroke "OrangeRed")
  (Setq curve1.Fill "Salmon")
  (Setq curve1.Limits [t -4. 4.])
  (Setq curve1.Value [(* (+ 1.0 t) (Sin (+ 1.0 t (^ t 2)))) (* (- 1.0 t) (Cos (+ 1.0 (* -1.0 t) (^ t 2))))])
  (Push plot.Children (Setq curve2 (New Curve)))
  (Setq curve2.Stroke "MediumBlue")
  (Setq curve2.Fill "LightSkyBlue")
  (Setq curve2.Opacity 0.75)
  (Setq curve2.StrokeDashArray "8,1,1,1")
  (Setq curve2.Limits [t -4. 4.])
  (Setq curve2.Value [(* t (Sin t)) (* t (Cos (^ t 2)))])
  (Push plot.Children (Setq axes (New Axes)))
  (Setq axes.Stroke "Brown")
  (Return window)
)