+ Reply to Thread
Results 1 to 2 of 2

Thread: [Release] Holographic Digital Clock

  1. 08-09-2009 #1
    Moglizorz
    Moglizorz is offline
    Wire Amateur Moglizorz's Avatar
    Join Date
    Sep 2008
    Posts
    92

    Default [Release] Holographic Digital Clock

    It's a bit messy, but my first hologram. Abides by the default 30 hologram limit.



    Code:
    @name Digital Clock - By Moglizorz
@persist I Flash
@outputs H1 H2 M1 M2
interval(1000)
Me=owner()
Entity=entity()
if(first()){
    concmd("wire_expression2_model models/props_combine/breenglobe.mdl")
    hint("Next exp2 model will be projector",5)
    C1=0,C2=0,C3=0,C4=0
    holoCreate(1,vec(-0.2,0,130),vec(0.5,2,4))
    while(C1<8){C1++
        holoCreate(100+C1,vec(0,0-30,140),vec(0.5,1,0.3),ang(),vec(255,0,0))
        if(C1==2){holoPos(100+C1,vec(0,-5-30,135)),holoScale(100+C1,vec(0.5,0.3,1))}
        if(C1==3){holoPos(100+C1,vec(0,5-30,135)),holoScale(100+C1,vec(0.5,0.3,1))}
        if(C1==4){holoPos(100+C1,vec(0,0-30,130)),holoScale(100+C1,vec(0.5,1,0.3))}
        if(C1==5){holoPos(100+C1,vec(0,-5-30,125)),holoScale(100+C1,vec(0.5,0.3,1))}
        if(C1==6){holoPos(100+C1,vec(0,5-30,125)),holoScale(100+C1,vec(0.5,0.3,1))}
        if(C1==7){holoPos(100+C1,vec(0,0-30,120)),holoScale(100+C1,vec(0.5,1,0.3))}
        holoParent(100+C1,1)
    }
    
    while(C2<7){C2++
        holoCreate(200+C2,vec(0,0-10,140),vec(0.5,1,0.3),ang(),vec(255,0,0))
        if(C2==2){holoPos(200+C2,vec(0,-5-10,135)),holoScale(200+C2,vec(0.5,0.3,1))}
        if(C2==3){holoPos(200+C2,vec(0,5-10,135)),holoScale(200+C2,vec(0.5,0.3,1))}
        if(C2==4){holoPos(200+C2,vec(0,0-10,130)),holoScale(200+C2,vec(0.5,1,0.3))}
        if(C2==5){holoPos(200+C2,vec(0,-5-10,125)),holoScale(200+C2,vec(0.5,0.3,1))}
        if(C2==6){holoPos(200+C2,vec(0,5-10,125)),holoScale(200+C2,vec(0.5,0.3,1))}
        if(C2==7){holoPos(200+C2,vec(0,0-10,120)),holoScale(200+C2,vec(0.5,1,0.3))}
        holoParent(200+C2,1)
    }
    while(C3<7){C3++
        holoCreate(300+C3,vec(0,0+10,140),vec(0.5,1,0.3),ang(),vec(255,0,0))
        if(C3==2){holoPos(300+C3,vec(0,-5+10,135)),holoScale(300+C3,vec(0.5,0.3,1))}
        if(C3==3){holoPos(300+C3,vec(0,5+10,135)),holoScale(300+C3,vec(0.5,0.3,1))}
        if(C3==4){holoPos(300+C3,vec(0,0+10,130)),holoScale(300+C3,vec(0.5,1,0.3))}
        if(C3==5){holoPos(300+C3,vec(0,-5+10,125)),holoScale(300+C3,vec(0.5,0.3,1))}
        if(C3==6){holoPos(300+C3,vec(0,5+10,125)),holoScale(300+C3,vec(0.5,0.3,1))}
        if(C3==7){holoPos(300+C3,vec(0,0+10,120)),holoScale(300+C3,vec(0.5,1,0.3))}
        holoParent(300+C3,1)
     }
    while(C4<7){C4++
        holoCreate(400+C4,vec(0,0+30,140),vec(0.5,1,0.3),ang(),vec(255,0,0))
        if(C4==2){holoPos(400+C4,vec(0,-5+30,135)),holoScale(400+C4,vec(0.5,0.3,1))}
        if(C4==3){holoPos(400+C4,vec(0,5+30,135)),holoScale(400+C4,vec(0.5,0.3,1))}
        if(C4==4){holoPos(400+C4,vec(0,0+30,130)),holoScale(400+C4,vec(0.5,1,0.3))}
        if(C4==5){holoPos(400+C4,vec(0,-5+30,125)),holoScale(400+C4,vec(0.5,0.3,1))}
        if(C4==6){holoPos(400+C4,vec(0,5+30,125)),holoScale(400+C4,vec(0.5,0.3,1))}
        if(C4==7){holoPos(400+C4,vec(0,0+30,120)),holoScale(400+C4,vec(0.5,1,0.3))}
        holoParent(400+C4,1)
     }
    holoPos(102,vec(0,0,125))
    holoScale(102,vec(0.5,0.3,0.3))
    holoPos(108,vec(0,0,135))
    holoScale(108,vec(0.5,0.3,0.3))
}
C1=0,C2=0,C3=0,C4=0

if(Flash){Flash=0,holoAlpha(102,0),holoAlpha(108,0)}
else{Flash=1,holoAlpha(102,255),holoAlpha(108,255)}
I++
holoPos(1,Entity:pos()+vec(0,0,50))
holoColor(1,vec(0,0,0))
holoAng(1,Entity:angles())
holoScale(1,vec(0.5,7,2.3))
#holoPos(1,vec(0,0,150))
Hour=time("hour")
if(!time("isdst")){Hour++}
if(Hour>23){Hour=0}
H2=Hour
while(H2>9){H2=H2-10}
H1=floor(Hour/10)
M1=floor(time("min")/10)
M2=time("min")
while(M2>9){M2=M2-10}
#Start number alphas

if(H1==0){
    C1=2
    holoAlpha(101,0)
    while(C1<7){
        C1++
        holoAlpha(100+C1,0)
    }
}elseif(H1==1){
    holoAlpha(101,0)
    holoAlpha(103,255)
    holoAlpha(104,0)
    holoAlpha(105,0)
    holoAlpha(106,255)
    holoAlpha(107,0)
}elseif(H1==2){
    holoAlpha(101,255)
    holoAlpha(103,255)
    holoAlpha(104,255)
    holoAlpha(105,255)
    holoAlpha(106,0)
    holoAlpha(107,255)
}

if(H2==0){
    holoAlpha(201,255)
    holoAlpha(202,255)
    holoAlpha(203,255)
    holoAlpha(204,0)
    holoAlpha(205,255)
    holoAlpha(206,255)
    holoAlpha(207,255)
}elseif(H2==1){
    holoAlpha(201,0)
    holoAlpha(202,0)
    holoAlpha(203,255)
    holoAlpha(204,0)
    holoAlpha(205,0)
    holoAlpha(206,255)
    holoAlpha(207,0)
}elseif(H2==2){
    holoAlpha(201,255)
    holoAlpha(202,0)
    holoAlpha(203,255)
    holoAlpha(204,255)
    holoAlpha(205,255)
    holoAlpha(206,0)
    holoAlpha(207,255)
}elseif(H2==3){
    holoAlpha(201,255)
    holoAlpha(202,0)
    holoAlpha(203,255)
    holoAlpha(204,255)
    holoAlpha(205,0)
    holoAlpha(206,255)
    holoAlpha(207,255)
}elseif(H2==4){
    holoAlpha(201,0)
    holoAlpha(202,255)
    holoAlpha(203,255)
    holoAlpha(204,255)
    holoAlpha(205,0)
    holoAlpha(206,255)
    holoAlpha(207,0)
}elseif(H2==5){
    holoAlpha(201,255)
    holoAlpha(202,255)
    holoAlpha(203,0)
    holoAlpha(204,255)
    holoAlpha(205,0)
    holoAlpha(206,255)
    holoAlpha(207,255)
}elseif(H2==6){
    holoAlpha(201,255)
    holoAlpha(202,255)
    holoAlpha(203,0)
    holoAlpha(204,255)
    holoAlpha(205,255)
    holoAlpha(206,255)
    holoAlpha(207,255)
}elseif(H2==7){
    holoAlpha(201,255)
    holoAlpha(202,0)
    holoAlpha(203,255)
    holoAlpha(204,0)
    holoAlpha(205,0)
    holoAlpha(206,255)
    holoAlpha(207,0)
}elseif(H2==8){
    holoAlpha(201,255)
    holoAlpha(202,255)
    holoAlpha(203,255)
    holoAlpha(204,255)
    holoAlpha(205,255)
    holoAlpha(206,255)
    holoAlpha(207,255)
}elseif(H2==9){
    holoAlpha(201,255)
    holoAlpha(202,255)
    holoAlpha(203,255)
    holoAlpha(204,255)
    holoAlpha(205,0)
    holoAlpha(206,255)
    holoAlpha(207,255)
}
if(M1==0){
    holoAlpha(301,255)
    holoAlpha(302,255)
    holoAlpha(303,255)
    holoAlpha(304,0)
    holoAlpha(305,255)
    holoAlpha(306,255)
    holoAlpha(307,255)
}elseif(M1==1){
    holoAlpha(301,0)
    holoAlpha(302,0)
    holoAlpha(303,255)
    holoAlpha(304,0)
    holoAlpha(305,0)
    holoAlpha(306,255)
    holoAlpha(307,0)
}elseif(M1==2){
    holoAlpha(301,255)
    holoAlpha(302,0)
    holoAlpha(303,255)
    holoAlpha(304,255)
    holoAlpha(305,255)
    holoAlpha(306,0)
    holoAlpha(307,255)
}elseif(M1==3){
    holoAlpha(301,255)
    holoAlpha(302,0)
    holoAlpha(303,255)
    holoAlpha(304,255)
    holoAlpha(305,0)
    holoAlpha(306,255)
    holoAlpha(307,255)
}elseif(M1==4){
    holoAlpha(301,0)
    holoAlpha(302,255)
    holoAlpha(303,255)
    holoAlpha(304,255)
    holoAlpha(305,0)
    holoAlpha(306,255)
    holoAlpha(307,0)
}elseif(M1==5){
    holoAlpha(301,255)
    holoAlpha(302,255)
    holoAlpha(303,0)
    holoAlpha(304,255)
    holoAlpha(305,0)
    holoAlpha(306,255)
    holoAlpha(307,255)
}elseif(M1==6){
    holoAlpha(301,255)
    holoAlpha(302,255)
    holoAlpha(303,0)
    holoAlpha(304,255)
    holoAlpha(305,255)
    holoAlpha(306,255)
    holoAlpha(307,255)
}elseif(M1==7){
    holoAlpha(301,255)
    holoAlpha(302,0)
    holoAlpha(303,255)
    holoAlpha(304,0)
    holoAlpha(305,0)
    holoAlpha(306,255)
    holoAlpha(307,0)
}elseif(M1==8){
    holoAlpha(301,255)
    holoAlpha(302,255)
    holoAlpha(303,255)
    holoAlpha(304,255)
    holoAlpha(305,255)
    holoAlpha(306,255)
    holoAlpha(307,255)
}elseif(M1==9){
    holoAlpha(301,255)
    holoAlpha(302,255)
    holoAlpha(303,255)
    holoAlpha(304,255)
    holoAlpha(305,0)
    holoAlpha(306,255)
    holoAlpha(307,255)
}
  if(M2==0){
    holoAlpha(401,255)
    holoAlpha(402,255)
    holoAlpha(403,255)
    holoAlpha(404,0)
    holoAlpha(405,255)
    holoAlpha(406,255)
    holoAlpha(407,255)
}elseif(M2==1){
    holoAlpha(401,0)
    holoAlpha(402,0)
    holoAlpha(403,255)
    holoAlpha(404,0)
    holoAlpha(405,0)
    holoAlpha(406,255)
    holoAlpha(407,0)
}elseif(M2==2){
    holoAlpha(401,255)
    holoAlpha(402,0)
    holoAlpha(403,255)
    holoAlpha(404,255)
    holoAlpha(405,255)
    holoAlpha(406,0)
    holoAlpha(407,255)
}elseif(M2==3){
    holoAlpha(401,255)
    holoAlpha(402,0)
    holoAlpha(403,255)
    holoAlpha(404,255)
    holoAlpha(405,0)
    holoAlpha(406,255)
    holoAlpha(407,255)
}elseif(M2==4){
    holoAlpha(401,0)
    holoAlpha(402,255)
    holoAlpha(403,255)
    holoAlpha(404,255)
    holoAlpha(405,0)
    holoAlpha(406,255)
    holoAlpha(407,0)
}elseif(M2==5){
    holoAlpha(401,255)
    holoAlpha(402,255)
    holoAlpha(403,0)
    holoAlpha(404,255)
    holoAlpha(405,0)
    holoAlpha(406,255)
    holoAlpha(407,255)
}elseif(M2==6){
    holoAlpha(401,255)
    holoAlpha(402,255)
    holoAlpha(403,0)
    holoAlpha(404,255)
    holoAlpha(405,255)
    holoAlpha(406,255)
    holoAlpha(407,255)
}elseif(M2==7){
    holoAlpha(401,255)
    holoAlpha(402,0)
    holoAlpha(403,255)
    holoAlpha(404,0)
    holoAlpha(405,0)
    holoAlpha(406,255)
    holoAlpha(407,0)
}elseif(M2==8){
    holoAlpha(401,255)
    holoAlpha(402,255)
    holoAlpha(403,255)
    holoAlpha(404,255)
    holoAlpha(405,255)
    holoAlpha(406,255)
    holoAlpha(407,255)
}elseif(M2==9){
    holoAlpha(401,255)
    holoAlpha(402,255)
    holoAlpha(403,255)
    holoAlpha(404,255)
    holoAlpha(405,0)
    holoAlpha(406,255)
    holoAlpha(407,255)
}
    I can make you hate me with five words:
    "I made Balls of Steel".
    Reply With Quote Reply With Quote
  2. 08-09-2009 #2
    GmodSector
    GmodSector is offline
    Wire Amateur GmodSector's Avatar
    Join Date
    Aug 2009
    Posts
    62

    Default Re: [Release] Holographic Digital Clock

    looks nice, looking at the code, i realise how easy it is to make, just i never had the idea

    looks nice, i cant try it cause i got hijackt

    anyways, look cool
    Reply With Quote Reply With Quote
+ Reply to Thread
« Previous Thread | Next Thread »

Similar Threads

  1. Scalable Holographic Analog Clock
    By Beer in forum Finished contraptions
    Replies: 2
    Last Post: 06-26-2009, 04:25 AM
  2. Digital Scrolling Clock
    By Syranide in forum Finished contraptions
    Replies: 7
    Last Post: 08-26-2008, 10:39 AM
  3. Digital Analogue Clock
    By metz10 in forum Finished contraptions
    Replies: 9
    Last Post: 06-23-2008, 09:38 AM
  4. Digital Clock + Alarm
    By Snake5 in forum Gate Nostalgia (Old School Wiring) Discussion & Help
    Replies: 5
    Last Post: 08-28-2007, 02:13 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules

proceed-collector
proceed-collector
proceed-collector
proceed-collector
linguistic-parrots
linguistic-parrots
linguistic-parrots
linguistic-parrots