PureBasic Forums - English

Posted: **Fri Apr 03, 2015 8:19 pm**

In my web wanderings this morning I came across this cool pic. It's a mashup of Albert Einstein and Marilyn Monroe. If you view the picture from a normal eye-to-screen distance of 18 to 24 inches it's all Albert. But get up, stand back and look at it from 8 or 10 feet away and all you can see is a smiling Marilyn Monroe!

Posted: **Fri Apr 03, 2015 8:29 pm**

netmaestro wrote:But get up, stand back and look at it from 8 or 10 feet away and all you can see is a smiling Marilyn Monroe!

Or stay there but look at the pic with the eyes almost closed...

Posted: **Fri Apr 03, 2015 9:33 pm**

Does this mean that I am gay?

Posted: **Fri Apr 03, 2015 9:39 pm**

I was hoping nobody would figure out it was an orientation test!

Posted: **Sat Apr 04, 2015 3:22 am**

haha, I see Marilyn everywhere.
If you stand back but blink very fast.

Posted: **Sat Apr 04, 2015 3:59 am**

Think I need a psychiatrist, in between it looks like Barry Manilow!

Posted: **Sat Apr 04, 2015 8:05 am**

save the picture as "einsteinmonroe.bmp" . texturing a plane with it, and looking to the picture from the side, when we press the backward arrow until the area between the mustaches and the mouth gets fuzzy, we see monroe smiling , like this

but the effect is better when we go gradually from einstein to monroe by walking away like pressing the back arrow in this program, also works by looking from the front.

Code: Select all

#CameraSpeed = 0.1
Enumeration
   
   #texture
    #material
   #plane
   
   #camera
   
 EndEnumeration

Quit.b = #False
  

ExamineDesktops()
If OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), "use arrow keys and mouse to rotate/move the camera ... A/Z for up and down ", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
;Initialize environment
InitEngine3D()
InitSprite()
InitKeyboard()
InitMouse()
OpenWindowedScreen(WindowID(0), 0, 0, DesktopWidth(0), DesktopHeight(0)-5, 0, 0, 0)

SetFrameRate(60)

Add3DArchive(#PB_Compiler_Home + "Examples/3D/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(".", #PB_3DArchive_FileSystem)

CreateMaterial(#material, LoadTexture(#texture, "einsteinmonroe.bmp"))
MaterialCullingMode(#material, #PB_Material_NoCulling)
CreatePlane(#plane, 10*209.5/207, 10, 1, 1, 1, 1)
CreateEntity (#plane, MeshID(#plane), MaterialID(#material))
RotateEntity(#plane,90,0,180)
CreateLight(0,RGB(255,255,255),-100,40,30)
AmbientColor(RGB(100,100,100))

CreateCamera(#camera, 0, 0, 100, 100)
MoveCamera(#camera, 5.745074749 , -0.7322137356 , 1.8539280891)
CameraLookAt(#camera, 0, -2.5, 0)

EndIf

SkyDome("clouds.jpg", 100) ;for blue color background

 
Repeat
  Event = WindowEvent()
  If ExamineMouse()
        MouseX = -MouseDeltaX() * #CameraSpeed * 1
        MouseY = -MouseDeltaY() * #CameraSpeed * 1
      EndIf
  ShowCursor_(0)
    
; use arrow keys to rotate and move in/out
  ExamineKeyboard()
      
        If KeyboardPushed(#PB_Key_Left)
          KeyX.f = -#CameraSpeed
        ElseIf KeyboardPushed(#PB_Key_Right)
          KeyX.f = #CameraSpeed
        Else
          KeyX.f = 0
        EndIf
        
        If KeyboardPushed(#PB_Key_Up)
          KeyY.f = -#CameraSpeed
        ElseIf KeyboardPushed(#PB_Key_Down)
          KeyY.f = #CameraSpeed
        Else
          KeyY.f = 0
        EndIf
 
  If KeyboardPushed(#PB_Key_Z)
       MoveCamera  (#camera, KeyX, -0.2, KeyY)
     ElseIf KeyboardPushed(#PB_Key_A)
       MoveCamera  (#camera, KeyX, -(-0.2), KeyY)
  EndIf
     
             
  RotateCamera(#camera, MouseY, MouseX, 0, #PB_Relative)
  MoveCamera  (#camera, KeyX, 0, KeyY)
  
  RenderWorld()
   FlipBuffers()

  ExamineKeyboard()
   If KeyboardPushed(#PB_Key_Escape)
      Quit = #True
   EndIf
       
Until Quit = #True Or Event = #PB_Event_CloseWindow

Posted: **Sat Apr 04, 2015 11:35 am**

These hybrid photos are nice, would be interesting to write a program to create suche images!

Here are some other examples, which have been created the same year (2006) like Marilyn+Albert:
https://sites.google.com/site/mrvogel/F ... 122709.jpg
https://sites.google.com/site/mrvogel/F ... 122614.jpg

Posted: **Sat Apr 04, 2015 12:46 pm**

Making a 10x10 pixel mosaic out of it, reveals Marilyn too:

Posted: **Sat Apr 04, 2015 1:10 pm**

More images: http://cvcl.mit.edu/hybrid_gallery/gallery.html

And how to make them: http://www.deke.com/content/dekes-techn ... brid-image

Posted: **Mon Apr 06, 2015 4:55 pm**

I just see the Hoff !!!

PureBasic Forums - English

Einstein or Monroe?

Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?

Re: Einstein or Monroe?