172 lines
9.2 KiB
Scala
172 lines
9.2 KiB
Scala
package tf.bug.fancadetagless
|
|
|
|
import higherkindness.droste.data._
|
|
import polymorphic._
|
|
import tf.bug.fancadetagless.Fanscript.{Position, ScreenSize}
|
|
import tf.bug.fancadescodec.Metadata.Sample
|
|
import tf.bug.fancadegraph.BlockDefinition
|
|
import tf.bug.fancadegraph.Template
|
|
|
|
trait Fanscript[F[_]] {
|
|
|
|
def lift(value: Float): F[Float]
|
|
def lift(value: Vector3): F[Vector3]
|
|
def lift(value: Rotation): F[Rotation]
|
|
def lift(value: Boolean): F[Boolean]
|
|
|
|
def win(stop: Boolean): F[Unit]
|
|
def lose(stop: Boolean): F[Unit]
|
|
def setScore(score: F[Float]): F[Unit]
|
|
def setCamera(position: F[Vector3], rotation: F[Rotation], distance: F[Float]): F[Unit]
|
|
def setLight(position: F[Vector3], rotation: F[Rotation]): F[Unit]
|
|
def screenSize: F[Fanscript.ScreenSize]
|
|
def accelerometer: F[Vector3]
|
|
|
|
def getPosition(obj: F[Obj]): F[Fanscript.Position]
|
|
def setPosition(obj: F[Obj], position: F[Vector3], rotation: F[Rotation]): F[Unit]
|
|
def raycast(from: F[Vector3], to: F[Vector3]): F[Fanscript.Raycast]
|
|
def getSize(obj: F[Obj]): F[Fanscript.Size]
|
|
def setVisible(obj: F[Obj], visible: F[Boolean]): F[Unit]
|
|
def createObj(original: F[Obj]): F[Obj]
|
|
def destroyObj(obj: F[Obj]): F[Obj]
|
|
|
|
def playSound(loop: Boolean, sound: Sample)(volume: F[Float], pitch: F[Float]): F[Float]
|
|
def stopSound(channel: F[Float]): F[Unit]
|
|
def volumePitch(channel: F[Float], volume: F[Float], pitch: F[Float]): F[Unit]
|
|
|
|
def addForce(obj: F[Obj], force: F[Vector3], applyAt: F[Vector3], torque: F[Vector3]): F[Unit]
|
|
def getVelocity(obj: F[Obj]): F[Fanscript.Velocity]
|
|
def setVelocity(obj: F[Obj], velocity: F[Vector3], spin: F[Vector3]): F[Unit]
|
|
def setLocked(obj: F[Obj], position: F[Vector3], rotation: F[Vector3]): F[Unit]
|
|
def setMass(obj: F[Obj], mass: F[Float]): F[Unit]
|
|
def setFriction(obj: F[Obj], friction: F[Float]): F[Unit]
|
|
def setBounciness(obj: F[Obj], bounciness: F[Float]): F[Unit]
|
|
def setGravity(gravity: F[Vector3]): F[Unit]
|
|
def addConstraint(base: F[Obj], part: F[Obj], pivot: F[Vector3]): F[Constraint]
|
|
def linearLimits(constraint: F[Constraint], lower: F[Vector3], upper: F[Vector3]): F[Unit]
|
|
def angularLimits(constraint: F[Constraint], lower: F[Vector3], upper: F[Vector3]): F[Unit]
|
|
def linearSpring(constraint: F[Constraint], stiffness: F[Vector3], damping: F[Vector3]): F[Unit]
|
|
def angularSpring(constraint: F[Constraint], stiffness: F[Vector3], damping: F[Vector3]): F[Unit]
|
|
def linearMotor(constraint: F[Constraint], speed: F[Vector3], force: F[Vector3]): F[Unit]
|
|
def angularMotor(constraint: F[Constraint], speed: F[Vector3], force: F[Vector3]): F[Unit]
|
|
|
|
def ifElse(cond: F[Boolean])(ifTrue: F[Unit])(ifFalse: F[Unit]): F[Unit]
|
|
def onPlay(onPlay: F[Unit]): F[Unit]
|
|
def onBoxArt(onBoxArt: F[Unit]): F[Unit]
|
|
def onTouch(onTouch: F[Fanscript.Touch] => F[Unit]): F[Unit]
|
|
|
|
def screenSizeWidth(screenSize: F[ScreenSize]): F[Float]
|
|
def screenSizeHeight(screenSize: F[ScreenSize]): F[Float]
|
|
|
|
def positionPosition(position: F[Position]): F[Vector3]
|
|
def positionRotation(position: F[Position]): F[Rotation]
|
|
|
|
def raycastHit(raycast: F[Fanscript.Raycast]): F[Boolean]
|
|
def raycastPosition(raycast: F[Fanscript.Raycast]): F[Vector3]
|
|
def raycastObj(raycast: F[Fanscript.Raycast]): F[Obj]
|
|
|
|
def sizeMin(size: F[Fanscript.Size]): F[Vector3]
|
|
def sizeMax(size: F[Fanscript.Size]): F[Vector3]
|
|
|
|
def velocityVelocity(velocity: F[Fanscript.Velocity]): F[Vector3]
|
|
def velocitySpin(velocity: F[Fanscript.Velocity]): F[Vector3]
|
|
|
|
}
|
|
|
|
object Fanscript {
|
|
|
|
trait Program[R] {
|
|
def run[F[_]](implicit interp: Fanscript[F]): F[R]
|
|
}
|
|
|
|
implicit object fancade extends Fanscript[FancadeW] {
|
|
|
|
override def lift(value: Float): FancadeW[Float] =
|
|
Fix(Fancade.Capture(
|
|
Exists(Template(
|
|
BlockDefinition.NumberValue,
|
|
value
|
|
)),
|
|
Vector(BlockDefinition.NumberValue.output)
|
|
))
|
|
override def lift(value: Vector3): FancadeW[Vector3] = ???
|
|
override def lift(value: Rotation): FancadeW[Rotation] = ???
|
|
override def lift(value: Boolean): FancadeW[Boolean] = ???
|
|
|
|
override def win(stop: Boolean): FancadeW[Unit] = ???
|
|
override def lose(stop: Boolean): FancadeW[Unit] = ???
|
|
override def setScore(score: FancadeW[Float]): FancadeW[Unit] = ???
|
|
override def setCamera(position: FancadeW[Vector3], rotation: FancadeW[Rotation], distance: FancadeW[Float]): FancadeW[Unit] = ???
|
|
override def setLight(position: FancadeW[Vector3], rotation: FancadeW[Rotation]): FancadeW[Unit] = ???
|
|
override def screenSize: FancadeW[ScreenSize] = ???
|
|
override def accelerometer: FancadeW[Vector3] = ???
|
|
|
|
override def getPosition(obj: FancadeW[Obj]): FancadeW[Position] =
|
|
Fix(Fancade.Use(
|
|
Vector(obj),
|
|
Exists(Template(
|
|
BlockDefinition.GetPosition,
|
|
()
|
|
)),
|
|
Vector(BlockDefinition.GetPosition.obj),
|
|
Vector(BlockDefinition.GetPosition.position)
|
|
))
|
|
override def setPosition(obj: FancadeW[Obj], position: FancadeW[Vector3], rotation: FancadeW[Rotation]): FancadeW[Unit] = ???
|
|
override def raycast(from: FancadeW[Vector3], to: FancadeW[Vector3]): FancadeW[Raycast] = ???
|
|
override def getSize(obj: FancadeW[Obj]): FancadeW[Size] = ???
|
|
override def setVisible(obj: FancadeW[Obj], visible: FancadeW[Boolean]): FancadeW[Unit] = ???
|
|
override def createObj(original: FancadeW[Obj]): FancadeW[Obj] = ???
|
|
override def destroyObj(obj: FancadeW[Obj]): FancadeW[Obj] = ???
|
|
|
|
override def playSound(loop: Boolean, sound: Sample)(volume: FancadeW[Float], pitch: FancadeW[Float]): FancadeW[Float] = ???
|
|
override def stopSound(channel: FancadeW[Float]): FancadeW[Unit] = ???
|
|
override def volumePitch(channel: FancadeW[Float], volume: FancadeW[Float], pitch: FancadeW[Float]): FancadeW[Unit] = ???
|
|
|
|
override def addForce(obj: FancadeW[Obj], force: FancadeW[Vector3], applyAt: FancadeW[Vector3], torque: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def getVelocity(obj: FancadeW[Obj]): FancadeW[Velocity] = ???
|
|
override def setVelocity(obj: FancadeW[Obj], velocity: FancadeW[Vector3], spin: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def setLocked(obj: FancadeW[Obj], position: FancadeW[Vector3], rotation: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def setMass(obj: FancadeW[Obj], mass: FancadeW[Float]): FancadeW[Unit] = ???
|
|
override def setFriction(obj: FancadeW[Obj], friction: FancadeW[Float]): FancadeW[Unit] = ???
|
|
override def setBounciness(obj: FancadeW[Obj], bounciness: FancadeW[Float]): FancadeW[Unit] = ???
|
|
override def setGravity(gravity: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def addConstraint(base: FancadeW[Obj], part: FancadeW[Obj], pivot: FancadeW[Vector3]): FancadeW[Constraint] = ???
|
|
override def linearLimits(constraint: FancadeW[Constraint], lower: FancadeW[Vector3], upper: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def angularLimits(constraint: FancadeW[Constraint], lower: FancadeW[Vector3], upper: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def linearSpring(constraint: FancadeW[Constraint], stiffness: FancadeW[Vector3], damping: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def angularSpring(constraint: FancadeW[Constraint], stiffness: FancadeW[Vector3], damping: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def linearMotor(constraint: FancadeW[Constraint], speed: FancadeW[Vector3], force: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
override def angularMotor(constraint: FancadeW[Constraint], speed: FancadeW[Vector3], force: FancadeW[Vector3]): FancadeW[Unit] = ???
|
|
|
|
override def ifElse(cond: FancadeW[Boolean])(ifTrue: FancadeW[Unit])(ifFalse: FancadeW[Unit]): FancadeW[Unit] = ???
|
|
override def onPlay(onPlay: FancadeW[Unit]): FancadeW[Unit] = ???
|
|
override def onBoxArt(onBoxArt: FancadeW[Unit]): FancadeW[Unit] = ???
|
|
override def onTouch(onTouch: FancadeW[Touch] => FancadeW[Unit]): FancadeW[Unit] = ???
|
|
|
|
override def screenSizeWidth(screenSize: FancadeW[ScreenSize]): FancadeW[Float] = ???
|
|
override def screenSizeHeight(screenSize: FancadeW[ScreenSize]): FancadeW[Float] = ???
|
|
|
|
override def positionPosition(position: FancadeW[Position]): FancadeW[Vector3] = ???
|
|
override def positionRotation(position: FancadeW[Position]): FancadeW[Rotation] = ???
|
|
|
|
override def raycastHit(raycast: FancadeW[Raycast]): FancadeW[Boolean] = ???
|
|
override def raycastPosition(raycast: FancadeW[Raycast]): FancadeW[Vector3] = ???
|
|
override def raycastObj(raycast: FancadeW[Raycast]): FancadeW[Obj] = ???
|
|
|
|
override def sizeMin(size: FancadeW[Size]): FancadeW[Vector3] = ???
|
|
override def sizeMax(size: FancadeW[Size]): FancadeW[Vector3] = ???
|
|
|
|
override def velocityVelocity(velocity: FancadeW[Velocity]): FancadeW[Vector3] = ???
|
|
override def velocitySpin(velocity: FancadeW[Velocity]): FancadeW[Vector3] = ???
|
|
|
|
}
|
|
|
|
case class ScreenSize(width: Float, height: Float)
|
|
case class Position(position: Vector3, rotation: Rotation)
|
|
case class Raycast(hit: Boolean, position: Vector3, obj: Obj)
|
|
case class Size(min: Vector3, max: Vector3)
|
|
case class Velocity(velocity: Vector3, spin: Vector3)
|
|
case class Touch(screenX: Float, screenY: Float)
|
|
|
|
}
|