|
Heart
Aug 4, 2008 18:41:08 GMT -5
Post by Nicky Peter Hollyoake on Aug 4, 2008 18:41:08 GMT -5
Heres a heart with me and my girls name.
GLMatrixMode(GL_PROJECTION) GLLoadidentity() GLOrTho(0, WindowWidth(), WindowHeight(), 0, 0, 1) GLMatrixMode(GL_MODELVIEW) GLDisable (GL_DEPTH_TEST) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i
TextMode(TEXT_OVERLAID) GLTransLateF(400, 300, 0) GLBegin (GL_POINTS)
GLColor3F(1, 0, 0) For i = 0 To 90 GLVertex2F(-Cosd(i)*50, i) GLVertex2F(Cosd(i)*50, i) Next
For i = 0 To 90 GLVertex2F(i / 1.8, -Sind(i*2)*30) GLVertex2F(-i / 1.8, -Sind(i*2)*30) Next
GLEnd()
Locate 9, 12: Print"Nicky" Locate 27, 12: Print"Leona" Locate 23, 12: Print"'s"
DrawText() Swapbuffers()
Not very good, anyone got any good ways of making a heart?
|
|
|
Heart
Sept 11, 2008 15:02:23 GMT -5
Post by Adam on Sept 11, 2008 15:02:23 GMT -5
lol, thats actually better than any of my attempts at it
|
|
|
Heart
Jul 25, 2010 21:18:08 GMT -5
Post by chris857 on Jul 25, 2010 21:18:08 GMT -5
Here are a couple of hearts for anyone interested. Just made in a few minutes.
GLMatrixMode(GL_PROJECTION) GLLoadidentity() GLOrTho(0, WindowWidth(), WindowHeight(), 0, 0, 1) GLMatrixMode(GL_MODELVIEW) GLDisable (GL_DEPTH_TEST)
dim i as single glTranslatef(100,100,0) glScalef(5,5,1) glBegin(GL_LINE_STRIP) for i = 1 to 50*m_pi glVertex2f(sin(i/50.0)*i/5.0,-cos(i/50.0)*i/5.0) next glEnd() glBegin(GL_LINE_STRIP) for i = 1 to 50*m_pi glVertex2f(-sin(i/50.0)*i/5.0,-cos(i/50.0)*i/5.0) next glEnd() glScalef(.2,.2,1)
glTranslatef(250,-25,0) glScalef(1,.75,1) glBegin(GL_LINE_STRIP) for i = 1 to 50*m_pi glVertex2f(sin(i/50.0)*pow(i/10.0,2),-cos(i/50.0)*pow(i/10.0,2)) next glEnd() glBegin(GL_LINE_STRIP) for i = 1 to 50*m_pi glVertex2f(-sin(i/50.0)*pow(i/10.0,2),-cos(i/50.0)*pow(i/10.0,2)) next glEnd()
Swapbuffers()
|
|