Как нарисовать повернутый эллипс в Maxima CAS?

Я хотел бы нарисовать повернутый эллипс с центром в начале координат Я знаю как это сделать в R и теорию

Мой алгоритм:

• вычислить список точек, параметризованных t
• каждая точка повернута на угол тета

Мой код:

deg2rad(t):= float(t*2*%pi/360)$

GiveRotatedEllipse(a,b,theta, NumberOfPoints):=block(
    [x, y, zz, t , tmin, tmax, dt, c, s],
    zz:[],
    dt : 1/NumberOfPoints, 
    tmin: 0, 
    tmax: 2*%pi,
    c:float(cos(theta)),
    s:float(sin(theta)),
    for t:tmin thru tmax step dt do(
        x: a*cos(t)*c - b*sin(t)*s,
        x: float(x), 
        y: a*cos(t)*c + b*sin(t)*c,
        y:float(y),
        zz: cons([x,y],zz)
    ),
    return (points(zz))
)$



/* compute */

/* angles fo trigonometric functions in radians */
angle_step :deg2rad(15) $  /* 2*%pi/3$   */
radius_x: 3$
radius_y: 2$




e0:GiveRotatedEllipse(radius_x, radius_y, 0, 100)$
e1: GiveRotatedEllipse(radius_x, radius_y, angle_step, 100)$
e2: GiveRotatedEllipse(radius_x, radius_y, 2*angle_step, 100)$


path:""$ 
 load(draw); 

 draw2d(
  user_preamble = "set key top right; unset mouse",
  terminal  = 'png,
  file_name = sconcat(path,"e"),
 dimensions = [1000, 1000],
 proportional_axes = xy,
  line_width = 2,
  line_type = solid,
 fill_color = white,
  point_type=filled_circle,
  point_size = 0.5,
 key = "e0",
  color = red,
  e0,
  
  key= "e1",
  color=blue,
  e1,
  
  key= "e2",
  color= green,
  e2
 )$
  

и результат:

Все эллипсы повернуты на один и тот же угол. Где я сделал ошибку?

ТИА

Адам