DEVIL.8xp

Contributed by: Joel Gordon '05

Purpose: Draws the Davenport Central DC logo.

Download DEVIL.8xp

Screenshots

Source Code

:Menu("Blue Devil","Horns",1,"Forehead",2,"Eyes",3,"Ears",4,"Beard",5,"Full Pic",6,"Clr Graph/Exit",7)
:
:Lbl 1
:
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF ((X+2.4)^4+4.3)/((X>^-3.7)(X<^-2.4))
:DrawF ((X-2.2)^4+4.3)/((X<3.6)(X>2.3))
:DrawF (8(X+3.2)^2+2.5)/((X>^-3.9)(X<^-2.6))
:DrawF (8(X-3.0)^2+2.5)/((X<3.8)(X>2.5))
:Stop
:
:Lbl 2
:
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF (0.4sin(2(X+2.2))+3)/((X>^-2)(X<2))
:DrawF (^-0.15X^2+5.5)/((X^-2.2)(X2.2))
:DrawF (^-3e^X+0.8)+5)/((X^-2.4)(X^-1.9))
:DrawF (^-3e^^-X+0.8)+5)/((X2.4)(X1.9))
:DrawF ((2X+5)+2.5)/((X^-2.3)(X^-1.9))
:DrawF (e^^-(X-3.3))-0.1)/((X1.9)(X2.1))
:Stop
:
:Lbl 3
:
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF (0.5(X+0.1)^2-0.2)/((X>^-2.4)(X<^-0.5))
:DrawF (0.5(X-0.1)^2-0.2)/((X<2.4)(X>0.5))
:DrawF (0.2(X-0.3)^2+1.1)/((X>^-2.32)(X<^-0.5))
:DrawF (0.2(X+0.3)^2+1.1)/((X<2.32)(X>0.5))
:DrawF (5(X+0.55)+0.25)/((X^-0.7)(X^-0.3))
:DrawF (^-5(X-0.55)+0.25)/((X0.7)(X0.3))
:Stop
:
:Lbl 4
:
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF (20(X-2.8)^3-1)/((X>2.4)(X<3.3))
:DrawF (20(X-3.7)^3+2.5)/((X>3.1)(X<3.7))
:DrawF (1.5(X-3.2)^2-1.2)/((X>2.8)(X<4.2))
:DrawF (^-25(X-4.1)^3-0.2)/((X>3.5)(X<4.2))
:DrawF (^-6(X+2.8)^3-1.4)/((X<^-2.5)(X>^-3.5))
:DrawF (^-6(X+4.1)^3+2.4)/((X<^-3.2)(X>^-3.9))
:DrawF (1.5(X+3.4)^2-1.6)/((X<^-2.8)(X>^-4.2))
:DrawF (25(X+4.3)^3-1.4)/((X<^-3.7)(X>^-4.2))
:Stop
:
:Lbl 5
:
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF (3(X-0.8)^3-5)/((X0)(X<1.75))
:DrawF (^-3(X+0.8)^3-5)/((X0)(X>^-1.75))
:DrawF (^-(1/(X-1.25)))/((X>1.3)(X<2))
:DrawF ((1/(X+1.25)))/((X<^-1.3)(X>^-2))
:DrawF (0.9X^2-4.1)/((X>^-1.9)(X<1.9))
:Stop
:
:Lbl 6
:
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:
:DrawF ((X+2.4)^4+4.3)/((X>^-3.7)(X<^-2.4))
:DrawF ((X-2.2)^4+4.3)/((X<3.6)(X>2.3))
:DrawF (8(X+3.2)^2+2.5)/((X>^-3.9)(X<^-2.6))
:DrawF (8(X-3.0)^2+2.5)/((X<3.8)(X>2.5))
:
:DrawF (0.4sin(2(X+2.2))+3)/((X>^-2)(X<2))
:DrawF (^-0.15X^2+5.5)/((X^-2.2)(X2.2))
:DrawF (^-3e^X+0.8)+5)/((X^-2.4)(X^-1.9))
:DrawF (^-3e^^-X+0.8)+5)/((X2.4)(X1.9))
:DrawF ((2X+5)+2.5)/((X^-2.3)(X^-1.9))
:DrawF (e^^-(X-3.3))-0.1)/((X1.9)(X2.1))
:
:DrawF (0.5(X+0.1)^2-0.2)/((X>^-2.4)(X<^-0.5))
:DrawF (0.5(X-0.1)^2-0.2)/((X<2.4)(X>0.5))
:DrawF (0.2(X-0.3)^2+1.1)/((X>^-2.32)(X<^-0.5))
:DrawF (0.2(X+0.3)^2+1.1)/((X<2.32)(X>0.5))
:DrawF (5(X+0.55)+0.25)/((X^-0.7)(X^-0.3))
:DrawF (^-5(X-0.55)+0.25)/((X0.7)(X0.3))
:
:DrawF (20(X-2.8)^3-1)/((X>2.4)(X<3.3))
:DrawF (20(X-3.7)^3+2.5)/((X>3.1)(X<3.7))
:DrawF (1.5(X-3.2)^2-1.2)/((X>2.8)(X<4.2))
:DrawF (^-25(X-4.1)^3-0.2)/((X>3.5)(X<4.2))
:DrawF (^-6(X+2.8)^3-1.4)/((X<^-2.5)(X>^-3.5))
:DrawF (^-6(X+4.1)^3+2.4)/((X<^-3.2)(X>^-3.9))
:DrawF (1.5(X+3.4)^2-1.6)/((X<^-2.8)(X>^-4.2))
:DrawF (25(X+4.3)^3-1.4)/((X<^-3.7)(X>^-4.2))
:
:DrawF (3(X-0.8)^3-5)/((X0)(X<1.75))
:DrawF (^-3(X+0.8)^3-5)/((X0)(X>^-1.75))
:DrawF (^-(1/(X-1.25)))/((X>1.3)(X<2))
:DrawF ((1/(X+1.25)))/((X<^-1.3)(X>^-2))
:DrawF (0.9X^2-4.1)/((X>^-1.9)(X<1.9))
:
:Stop
:
:Lbl 7
:
:ClrDraw