#############################
#
#  File:     /../tmp/Downloads/tmp/DiffGeom/MonkeySaddle/monkey_Saddle-parabola-tangent-plane-normals.cs
#  Created:  Sun Oct 19 08:24:11 -040027 2025
#  By:       CenterStage v3.2
#

::cs::File Version 3.2


####################

::class::Group Create 3D_Surface {
  {Slider t -0.94 0.94 -resolution 0.05
Animate n 1001 \{t -0.94 0.94\}

Transform Scale(1,1,1)
}
  {always 1 none}
  {{set z} 0 0 {{{1 0 0} 50 Red} {{1 .5 0} 0     Orange} {{1 1 0} 50 Yellow} {{0 1 0} 50 Green} {{0 1 1} 50 Cyan} {{0 0 1} 50 Blue} {{1 0 1} 50 Purple} {{0 0 0} 0      Black} {{1 1 1} 0      White}} 1}
  {smooth 1.0 1 1 0 0 0 0 0 0 0 0 1.0 1}
  {{} {}}
}

####################

::class::Curve Create 3D_Surface/Curve {
  {Domain \{-1 1 101\}

Function \{u\} \{
  let (x,y,z) = (u,u^2,u^3-3*u^5)
\}}
  {always 1 none}
  {{ list 0 0 0} 0 1 {{{1 0 0} 50 Red} {{1 .5 0} 0     Orange} {{1 1 0} 50 Yellow} {{0 1 0} 50 Green} {{0 1 1} 50 Cyan} {{0 0 1} 50 Blue} {{1 0 1} 50 Purple} {{0 0 0} 0      Black} {{1 1 1} 0      White}} 1}
  {flat 1.0 3 1 0 0 0 0 0 0 0 0 1.0 3}
  {{} {}}
  {::cd::Solid}
}

####################

::class::Vectors Create 3D_Surface/Normal {
  {Vectors \{
 \{(t,t^2,t^3-3*t^5) (-((450*t^7-135*t^5+9*t^3+2*t)/(sqrt(225*t^8-90*t^6+9*t^4+4*t^2+1)*sqrt(2025*t^8+630*t^6-171*t^4+9*t^2+1))),-((675*t^8-180*t^6+9*t^4-1)/(sqrt(225*t^8-90*t^6+9*t^4+4*t^2+1)*sqrt(2025*t^8+630*t^6-171*t^4+9*t^2+1))),-
((90*t^5+24*t^3-3*t)/(sqrt(225*t^8-90*t^6+9*t^4+4*t^2+1)*sqrt(2025*t^8+630*t^6-171*t^4+9*t^2+1))))\}
\}
}
  {always 1 none}
  {{ list 0 1 0} 0 0 {{{1 0 0} 50 Red} {{1 .5 0} 0     Orange} {{1 1 0} 50 Yellow} {{0 1 0} 50 Green} {{0 1 1} 50 Cyan} {{0 0 1} 50 Blue} {{1 0 1} 50 Purple} {{0 0 0} 0      Black} {{1 1 1} 0      White}} 1}
  {constant 1.0 3 1 0 0 0 0 0 0 0 0 1.0 3}
  {{} {}}
}

####################

::class::Surface Create 3D_Surface/Surface {
  {Domain \{\{-1 1 100\} \{-1 1 100\}\}

Function \{u v\} \{
  let (x,y,z) = (u, v, u^3-3*u*v^2)
\}
}
  {always 1 none}
  {{set z} 0 1 {{{1 0 0} 50 Red} {{1 .5 0} 0     Orange} {{1 1 0} 50 Yellow} {{0 1 0} 50 Green} {{0 1 1} 50 Cyan} {{0 0 1} 50 Blue} {{1 0 1} 50 Purple} {{0 0 0} 0      Black} {{1 1 1} 0      White}} 0}
  {smooth 1.0 1 1 0 0 0 0 0 0 0 0 1.0 1}
  {{} {}}
  {::sd::Patch 0 0 .25}
}

####################

::class::Vectors Create 3D_Surface/SurfN {
  {Vectors \{
 \{(t,t^2,t^3-3*t^5) ((3*t^4-3*t^2)/sqrt(9*t^8+18*t^6+9*t^4+1),(6*t^3)/sqrt(9*t^8+18*t^6+9*t^4+1),1/sqrt(9*t^8+18*t^6+9*t^4+1))\}
\}
}
  {always 1 none}
  {{ list 1 1 0} 0 1 {{{1 0 0} 50 Red} {{1 .5 0} 0     Orange} {{1 1 0} 50 Yellow} {{0 1 0} 50 Green} {{0 1 1} 50 Cyan} {{0 0 1} 50 Blue} {{1 0 1} 50 Purple} {{0 0 0} 0      Black} {{1 1 1} 0      White}} 1}
  {smooth 1.0 3 1 0 0 0 0 0 0 0 0 1.0 3}
  {{} {}}
}

####################

::class::Surface Create 3D_Surface/Tplane {
  {Domain \{\{-0.25 0.25 200\} \{-0.125 0.125 200\}\}

Function \{u v\} \{
  let (x,y,z) = (u+t,v+t^2,-(6*t^3*v)+(3*t^2-3*t^4)*u-3*t^5+t^3)
\}
}
  {always 1 none}
  {{ list 1 0 0} 0 1 {{{1 0 0} 50 Red} {{1 .5 0} 0     Orange} {{1 1 0} 50 Yellow} {{0 1 0} 50 Green} {{0 1 1} 50 Cyan} {{0 0 1} 50 Blue} {{1 0 1} 50 Purple} {{0 0 0} 0      Black} {{1 1 1} 0      White}} 1}
  {smooth 1.0 1 1 0 0 0 0 0 0 0 0 1.0 1}
  {{} {}}
  {::sd::Patch 0 0 .25}
}