Test.mmt

/T Miscellaneous scrolls for playing around/testing that don't have a good home yet  ❚
namespace http://mathhub.info/FrameIT/frameworld ❚
fixmeta ?FrameworldMeta ❚
theory Midpoint2 =
    meta ?MetaAnnotations?problemTheory  ?Midpoint2/Problem ❙
    meta ?MetaAnnotations?solutionTheory ?Midpoint2/Solution ❙
    theory Problem =
        P: point
         ❘ meta ?MetaAnnotations?label "P"
         ❘ meta ?MetaAnnotations?description "Some arbitrary input point"
        ❙
        Q: point
         ❘ meta ?MetaAnnotations?label "Q"
         ❘ meta ?MetaAnnotations?description "Some other arbitrary input point"
        ❙
    ❚
    theory Solution =
        include ?Midpoint2/Problem ❙
        meta ?MetaAnnotations?label "Midpoint2" ❙
        meta ?MetaAnnotations?description s"Our Midpoint2 scroll that given two points ${lverb P} and ${lverb Q} computes the Midpoint2 of the line ${lverb P Q}." ❙
        Midpoint2: point
                ❘ = ⟨0.5 ⋅ (P _x + Q _x), 0.5 ⋅ (P _y + Q _y), 0.5 ⋅ (P _z + Q _z)⟩
                ❘ meta ?MetaAnnotations?label s"Mid[${lverb P Q}]"
                ❘ meta ?MetaAnnotations?description s"The Midpoint2 between points ${lverb P} and ${lverb Q}."
        ❙
    ❚
❚