Stavox - Politimand [EGP]

@name PoliceMan
@inputs EGP:wirelink
@outputs
@persist [Angle,Height]:number
@trigger

if(duped() | dupefinished()){
    reset()
}

if(first()) {
    EGP:egpClear()
    Height = 150

    ##Hoved
    EGP:egpBox(1,vec2(256,Height),vec2(50,10)) EGP:egpAlign(1,1) EGP:egpColor(1,vec4(66,80,205,255))
    EGP:egpBox(2,vec2(256,Height+10),vec2(70,10)) EGP:egpAlign(2,1) EGP:egpColor(2,vec4(66,80,205,255))
    EGP:egpBox(3,vec2(256,Height+20),vec2(90,10)) EGP:egpAlign(3,1) EGP:egpColor(3,vec4(66,80,205,255))
    EGP:egpBox(4,vec2(256,Height+30),vec2(90,10)) EGP:egpAlign(4,1) EGP:egpColor(4,vec4(66,80,205,255))
    EGP:egpBox(5,vec2(256,Height+40),vec2(90,10)) EGP:egpAlign(5,1) EGP:egpColor(5,vec4(66,80,205,255))
    EGP:egpBox(6,vec2(256,Height+50),vec2(90,10)) EGP:egpAlign(6,1) EGP:egpColor(6,vec4(255,203,142,255))
    EGP:egpBox(7,vec2(256,Height+60),vec2(90,10)) EGP:egpAlign(7,1) EGP:egpColor(7,vec4(255,203,142,255))
    EGP:egpBox(8,vec2(256,Height+70),vec2(90,10)) EGP:egpAlign(8,1) EGP:egpColor(8,vec4(255,203,142,255))
    EGP:egpBox(9,vec2(256,Height+80),vec2(90,10)) EGP:egpAlign(9,1) EGP:egpColor(9,vec4(255,203,142,255))
    EGP:egpBox(10,vec2(256,Height+90),vec2(70,10)) EGP:egpAlign(10,1) EGP:egpColor(10,vec4(255,203,142,255))
    EGP:egpBox(11,vec2(256,Height+100),vec2(70,10)) EGP:egpAlign(11,1) EGP:egpColor(11,vec4(255,203,142,255))
    EGP:egpBox(12,vec2(256,Height+110),vec2(30,10)) EGP:egpAlign(12,1) EGP:egpColor(12,vec4(255,203,142,255))
    ##Gul prik i hat
    EGP:egpBox(28,vec2(256,Height+20),vec2(10,10)) EGP:egpAlign(28,1) EGP:egpColor(28,vec4(233,136,39,255))
    ## Sort sele i hat
    EGP:egpBox(29,vec2(256,Height+40),vec2(70,10)) EGP:egpAlign(29,1) EGP:egpColor(29,vec4(10,0,104,255))
    ##Haer
    EGP:egpBox(30,vec2(216,Height+55),vec2(10,20)) EGP:egpAlign(8,1) EGP:egpColor(30,vec4(128,72,7,255))
    EGP:egpBox(31,vec2(296,Height+55),vec2(10,20)) EGP:egpAlign(8,1) EGP:egpColor(31,vec4(128,72,7,255))
    ##Oejne
    EGP:egpBox(32,vec2(236,Height+60),vec2(10,10)) EGP:egpAlign(28,1) EGP:egpColor(32,vec4(10,0,54,255))
    EGP:egpBox(33,vec2(276,Height+60),vec2(10,10)) EGP:egpAlign(28,1) EGP:egpColor(33,vec4(10,0,54,255))
    ##Mund
    EGP:egpBox(34,vec2(256,Height+90),vec2(30,10)) EGP:egpAlign(28,1) EGP:egpColor(34,vec4(255,255,255,255))
    #Skuldre
    EGP:egpBox(13,vec2(256,Height+120),vec2(50,10)) EGP:egpAlign(13,1) EGP:egpColor(13,vec4(66,80,205,255))
    EGP:egpBox(14,vec2(256,Height+135),vec2(110,20)) EGP:egpAlign(14,1) EGP:egpColor(14,vec4(66,80,205,255))
    ##Arm Venstre
   ## EGP:egpBox(15,vec2(201,Height+175),vec2(20,80)) EGP:egpAlign(15,1) EGP:egpColor(15,vec4(66,80,205,255))
    ##EGP:egpBox(16,vec2(201+5,Height+220),vec2(30,10)) EGP:egpAlign(16,1) EGP:egpColor(16,vec4(255,203,142,255))
  ##  EGP:egpBox(17,vec2(201,Height+235),vec2(20,20)) EGP:egpAlign(17,1) EGP:egpColor(17,vec4(255,203,142,255))
    ##Arm Hoejre
    EGP:egpBox(18,vec2(311,Height+175),vec2(20,80)) EGP:egpAlign(18,1) EGP:egpColor(18,vec4(66,80,205,255))
    EGP:egpBox(19,vec2(311-5,Height+220),vec2(30,10)) EGP:egpAlign(19,1) EGP:egpColor(19,vec4(255,203,142,255))
    EGP:egpBox(20,vec2(311,Height+235),vec2(20,20)) EGP:egpAlign(20,1) EGP:egpColor(20,vec4(255,203,142,255))
    ##Krop
    EGP:egpBox(21,vec2(256,Height+180),vec2(70,90)) EGP:egpAlign(21,1) EGP:egpColor(21,vec4(66,80,205,255))
    ##Baelte
    EGP:egpBox(22,vec2(256,Height+230),vec2(70,10)) EGP:egpAlign(22,1) EGP:egpColor(22,vec4(30,30,30,255))
    #Knapper
    EGP:egpBox(35,vec2(256,Height+130),vec2(10,10)) EGP:egpAlign(35,1) EGP:egpColor(35,vec4(30,30,30,255))
    EGP:egpBox(36,vec2(256,Height+150),vec2(10,10)) EGP:egpAlign(36,1) EGP:egpColor(36,vec4(30,30,30,255))
    EGP:egpBox(37,vec2(256,Height+170),vec2(10,10)) EGP:egpAlign(37,1) EGP:egpColor(37,vec4(30,30,30,255))
    EGP:egpBox(38,vec2(256,Height+190),vec2(10,10)) EGP:egpAlign(38,1) EGP:egpColor(38,vec4(30,30,30,255))
    EGP:egpBox(39,vec2(256,Height+210),vec2(10,10)) EGP:egpAlign(39,1) EGP:egpColor(39,vec4(30,30,30,255))
    EGP:egpBox(40,vec2(276,Height+140),vec2(10,10)) EGP:egpAlign(40,1) EGP:egpColor(40,vec4(230,255,0,255))
    EGP:egpBox(41,vec2(256,Height+230),vec2(10,10)) EGP:egpAlign(41,1) EGP:egpColor(41,vec4(230,255,0,255))
    ##Bukser
    EGP:egpBox(23,vec2(256,Height+245),vec2(70,20)) EGP:egpAlign(23,1) EGP:egpColor(23,vec4(66,80,205,255))
    EGP:egpBox(24,vec2(276,Height+300),vec2(30,90)) EGP:egpAlign(24,1) EGP:egpColor(24,vec4(66,80,205,255))
    EGP:egpBox(25,vec2(291,Height+360),vec2(60,30)) EGP:egpAlign(25,1) EGP:egpColor(25,vec4(30,30,30,255))
    EGP:egpBox(26,vec2(236,Height+300),vec2(30,90)) EGP:egpAlign(26,1) EGP:egpColor(26,vec4(66,80,205,255))
    EGP:egpBox(27,vec2(221,Height+360),vec2(60,30)) EGP:egpAlign(27,1) EGP:egpColor(27,vec4(30,30,30,255))


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

    ##Hvid base
    EGP:egpBox(42, vec2(196, 184), vec2(18, 148))
    EGP:egpColor(42, vec4(255,255,255,255))
    ##Hvid cirkel
    EGP:egpCircle(43, vec2(0,-50), vec2(41, 41))
    EGP:egpColor(43, vec(255, 255, 255))
    EGP:egpParent(43, 42)
    ##Roed cirkel
    EGP:egpCircle(44, vec2(0,-50), vec2(40, 40))
    EGP:egpColor(44, vec(255, 10, 10))
    EGP:egpParent(44, 42)
    ##Hvid streg
    EGP:egpBox(45, vec2(0,-48), vec2(53, 15)) EGP:egpColor(45, vec4(255,255,255,255))
    EGP:egpParent(45,42)

    ##Arm
    EGP:egpBox(46, vec2(55, 55), vec2(80, 24)) EGP:egpColor(46,vec4(66,80,205,255))
    EGP:egpParent(46,42)

    ##Finger
    EGP:egpBox(47,vec2(10,50),vec2(10,30)) EGP:egpColor(47,vec4(255,203,142,255))
    EGP:egpParent(47,42)
    ##Haend
    EGP:egpBox(48,vec2(0,55),vec2(30,20)) EGP:egpAlign(48,1) EGP:egpColor(48,vec4(255,203,142,255))
    EGP:egpParent(48,42)

    interval(100)

} else {

    Angle += 4
    EGP:egpPos(42, vec2(126,abs(cos(Angle) * 54)+240))
    EGP:egpAngle(42, abs(cos(Angle) * 34))

    interval(100)
}