Hi all,
Found a lot about makening holograms with devices.
Just had some time to make some 3d (triple layer) hologram in the holidays using AGK2, becouse the program has more usability than just gaming and apps.
I have to mirror and flip the text file. It is only possible to do it in a graphic editor, becouse AGK2 cant mirror the font type (as far as I can find it).
First test is only snow with a snowpman. You can see the red lines in de video (for finding the folding edges of the plastic). The second test I removed the red lines and added some trees for more depth.
This is how it is made:
--
Just cut 1 piece of (trash) thin plastic. Got it from a box. Cut out 3 C's. Use the tip of the scissors to make the sharp edge to bend the sides of the plastic flaps.
Keep the flap at the back bigger than the front. That is my problem not to use depth in real life (lol).
The images are from public domain (google for the filenames.)
--
Take a look at the link for the video (and the images in the attached files), how it looks like.
https://www.youtube.com/watch?v=QK6vA9lUSSk
Here is the code:
// Project: kalender
// Created: 2015-12-29
// set window properties
SetWindowTitle( "kalender" )
`SetWindowSize( 1024, 768, 0 )
`LoadImage ( 10, "ascii_mirror.png" )
`SetTextDefaultFontImage ( 10 )
// set display properties
`SetVirtualResolution( 1024, 768 )
SetVirtualResolution( 480, 800 )
SetOrientationAllowed( 1, 0, 0, 0 )
SetDefaultMagFilter(0)
SetDefaultMinFilter(0)
DoW = GetDayOfWeek()
Dim Day[6] as string = ["zondag","maandag","dinsdag","woensdag","donderdag","vrijdag","zaterdag"]
Dim Month[11] as string = ["januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december"]
dag=CreateText(Day[6])
SetTextSize(dag,20)
SetTextPosition(dag,10,50)
datum=CreateText("")
tijd=CreateText("")
SetTextString(datum, GetCurrentDate())
SetTextString(tijd, GetCurrentTime())
SetTextSize(datum,20)
SetTextSize(tijd,40)
SetTextPosition(datum, 10,80)
SetTextPosition(tijd, 10,10)
SetTextDefaultMagFilter(0)
SetTextDefaultMinFilter(0)
dag = GetYearFromUnix(val(GetCurrentDate()))
maand = GetMonthFromUnix(val(GetCurrentDate()))
jaar = GetDaysFromUnix(val(GetCurrentDate()))
Snow(1,530,2,20,1.0,10.5)
Snow(2,800,4,5,2.0,5.5)
CreateSprite(1,LoadImage("jean_victor_balin_snowman.png"))
SetSpriteAngle(1,180)
SetSpritePosition(1,300,30)
CreateSprite(2,LoadImage("spruce_snow.png"))
SetSpriteAngle(2,180)
SetSpriteScale(2,0.7,0.7)
SetSpritePosition(2,120,270)
CreateSprite(3,LoadImage("spruce_snow.png"))
SetSpriteAngle(3,180)
SetSpriteScale(3,0.9,0.9)
SetSpritePosition(3,30,540)
do
`DrawBox(0,0,480,265,250,250,250,250,0)
`DrawBox(0,265,480,530,250,250,250,250,0)
`DrawBox(0,530,480,800,250,250,250,250,0)
SetTextString(datum, GetCurrentDate())
SetTextString(tijd, GetCurrentTime())
`boxes for lining out the plastic flaps.
`DrawBox(0,0,480,800,250,250,250,250,1)
`DrawBox(50,0,100,50,250,250,250,250,0)
`DrawBox(0,50,50,100,250,250,250,250,0)
`DrawBox(50,50,100,100,250,250,250,250,0)
Sync()
loop
end
Function Snow(id,ypos,size,f,VR, life)
CreateParticles (id,10,ypos)
SetParticlesStartZone (id,-20,0,500,0)
SetParticlesDirection (id,0,-25)
SetParticlesLife (id,life)
SetParticlesSize (id,size)
SetParticlesAngle ( id, 0 )
SetParticlesFrequency ( id, f )
SetParticlesVelocityRange ( id, 0.5, VR )
FixParticlesToScreen ( id, 1 )
EndFunction
Greetings.
