Reptilian.hs

module Models.Reptilian
    (reptilian,
     reptilian_leg_upper,
     reptilian_leg_lower,
     reptilian_arm_upper,
     reptilian_arm_lower)
    where

import RSAGL.Math
import RSAGL.Modeling
import Quality
import Models.Materials
import RSAGL.Color.RSAGLColors
import RSAGL.Math.CurveExtras

reptilian :: Quality -> Modeling ()
reptilian _ = model $
    do model $
           do tube $ linearInterpolation
                  [(0    ,Point3D 0 0   (-6)),
		   (1    ,Point3D 0 5   (-4)),
		   (1.5  ,Point3D 0 5.5 (-3)),
		   (2.4  ,Point3D 0 6   (-2)),
		   (2    ,Point3D 0 7   (-1.5)),
		   (1.2    ,Point3D 0 8   (-1)),
		   (0.5  ,Point3D 0 9   (-1.5)),
		   (1.5  ,Point3D 0 10.5 (-1)),
		   (1    ,Point3D 0 11  0),
		   (1    ,Point3D 0 11  1),
		   (1    ,Point3D 0 11  2),
		   (0.5  ,Point3D 0 10  2.5),
		   (0    ,Point3D 0 9   3)]
              model $
	          do triangle (Point3D 0 7 (-2)) (Point3D (-1) 10 (-8)) (Point3D 1 10 (-8))
		     triangle (Point3D 0 7 (-2)) (Point3D (-0.25) 9 (-9)) (Point3D (-3.5) 9.5 (-8))
		     triangle (Point3D 0 7 (-2)) (Point3D 0.25 9 (-9)) (Point3D 3.5 9.5 (-8))
		     triangle (Point3D 0 7 (-2)) (Point3D (-0.5) 8 (-8.5)) (Point3D (-5.5) 9 (-7))
		     triangle (Point3D 0 7 (-2)) (Point3D 0.5 8 (-8.5)) (Point3D 5.5 9 (-7))
                     twoSided True
		     deform $ \(Point3D x y z) -> Point3D x (y+x^2/100) (z+x^2/25+sin (x*10)/4)
	      reptilian_skin 
       model $
           do sphere (Point3D 0.55 11 2) 0.5
	      sphere (Point3D (-0.55) 11 2) 0.5
	      material $ pigment $ pure black
       affine $ scale' (1/20)

reptilian_leg_upper :: Quality -> Modeling ()
reptilian_leg_upper _ = rotate (Vector3D 1 0 0) (fromDegrees 90) $ model $
    do model $ sor $ linearInterpolation $
           points2d [(0  ,0),
	             (1.9,1),
		     (1.6,5),
		     (1,7.5),
		     (0.75,10.6),
		     (0  ,10.8)]
       material $
           do pigment $ pattern (gradient origin_point_3d (Vector3D 0 10 0)) [(0.0,reptilian_pigment),(1.0,pure dark_pink)]
              specular 5.0 $ pattern (gradient origin_point_3d (Vector3D 0 10 0)) [(0.0,reptilian_specular),(1.0,pure red)]
       affine $ scale' (1/10)

reptilian_leg_lower :: Quality -> Modeling ()
reptilian_leg_lower _ = rotate (Vector3D 1 0 0) (fromDegrees 90) $ model $
    do sor $ linearInterpolation $
           points2d [(0  ,-0.15),
	             (0.5,-0.1),
	             (1.0,0.0),
		     (0.5,9.0),
		     (0.5,10.0),
		     (0  ,10.1)]
       openCone (Point3D 0 9.5 0,0.5) (Point3D 0 10 7,0.0001)
       openCone (Point3D 0 9.5 0,0.5) (Point3D 5 10 5,0.0001)
       openCone (Point3D 0 9.5 0,0.5) (Point3D (-5) 10 5,0.0001)
       material $ 
          do pigment $ pure dark_pink
             specular 5.0 $ pure red
       affine $ scale' (1/10)

reptilian_arm_upper :: Quality -> Modeling ()
reptilian_arm_upper _ = rotate (Vector3D 1 0 0) (fromDegrees 90) $ model $
    do sor $ linearInterpolation $
	   points2d [(0  ,0.0),
	             (1.0,0.1),
	             (0.5,1.0),
	   	     (0.25,5.0),
		     (0.5,9.0),
		     (1.0,9.9),
		     (0  ,0.0)]
       material $
           do pigment $ pure dark_pink
              specular 5.0 $ pure red
       affine $ scale' (1/10)

reptilian_arm_lower :: Quality -> Modeling ()
reptilian_arm_lower _ = rotate (Vector3D 1 0 0) (fromDegrees 90) $ model $
    do sor $ linearInterpolation $
           points2d [(0  ,-1.0),
	             (1.0,0.0),
		     (0.25,5.0),
		     (0.5,9.0),
		     (0.5,9.9),
		     (0  ,0.0)]
       material $
           do pigment $ pure dark_pink
              specular 5.0 $ pure red
       affine $ scale' (1/10)