#############################
#
#  File:     /mnt/misc/LAPIET.INFO/HTML/mathphys/diffgeo/diffgeo2/geomview/sphere-w-geodesic.cs
#  Created:  Sun May 10 10:48:38 -040027 2026
#  By:       CenterStage v3.2
#

::cs::File Version 3.2


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

::class::Group Create 3D_Surface {
  {	Slider t -pi/2 pi/2 -resolution 0.1
Animate n 101 \{t -pi/2 pi/2\}}
  {always 1 none}
  {{ list 0.33333333 0.53333333 0.56470588} 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}
  {csmooth 1.0 1 0 0 0 0 0 0 0 0 0 1.0 1}
  {{} {}}
}

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

::class::Vectors Create 3D_Surface/Basis {
  {Vectors \{
 \{(cos(t),-(sin(t)/2),(sqrt(3)*sin(t))/2) ((sqrt(3)*cos(t)*sin(t))/sqrt(3*cos(t)^2+1),-((sqrt(3)*sin(t)^2)/(2*sqrt(3*cos(t)^2+1))),-(sqrt(3*cos(t)^2+1)/2))\}
 \{(cos(t),-(sin(t)/2),(sqrt(3)*sin(t))/2) (sin(t)/2,cos(t),0)\}
\}}
  {always 1 none}
  {{ list 0 0.49411765 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}
  {smooth 1.0 3 1 0 0 0 0 0 0 0 0 1.0 3}
  {{} {}}
}

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

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

Function \{t\} \{
  let (x,y,z) = (cos(t),-(sin(t)/2),(sqrt(3)*sin(t))/2)
\}
}
  {always 1 none}
  {{ list 0 0 1} 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::Surface Create 3D_Surface/Surface {
  {Domain \{\{0 pi 50\} \{0 2*pi 100\}\}

Function \{u v\} \{
  let (x,y,z) = (sin(u)*cos(v), sin(u)*sin(v), cos(u))
\}
}
  {always 1 none}
  {{ list 0.72941176 0.75686275 0.75686275} 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}
  {csmooth 1.0 1 1 1 0 0 0 0 0 0 0 other 1}
  {{} {}}
  {::sd::Patch 0 1 0.5}
}

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

::class::Vectors Create 3D_Surface/Tangent {
  {Vectors \{
 \{(cos(t),-(sin(t)/2),(sqrt(3)*sin(t))/2) (-sin(t),-(cos(t)/2),(sqrt(3)*cos(t))/2)\}
\}
}
  {always 1 none}
  {{ list 0.5254902 0 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}
  {flat 1.0 3 1 0 0 0 0 0 0 0 0 1.0 3}
  {{} {}}
}