Steve Jobs R.I.P. @ 56
Steve Jobs R.I.P. @ 56
http://en.wikipedia.org/wiki/Steve_Jobs
i think he deserved a few more years than he got , but alas its was not to be
R.I.P.
The First Steve Jobs' TV interview(1978, KGO-TV)
http://www.youtube.com/watch?v=rglOWHxk ... re=related
The Lost 1984 Video: young Steve Jobs introduces the Macintosh
http://www.youtube.com/watch?v=2B-XwPjn ... re=related
Steve Jobs and Bill Gates Together: Part 1
http://www.youtube.com/watch?v=_5Z7eal4 ... re=related
Steve Jobs Resigns as Apple CEO
http://www.youtube.com/watch?v=aK2AArI4vh0
i think he deserved a few more years than he got , but alas its was not to be
R.I.P.
The First Steve Jobs' TV interview(1978, KGO-TV)
http://www.youtube.com/watch?v=rglOWHxk ... re=related
The Lost 1984 Video: young Steve Jobs introduces the Macintosh
http://www.youtube.com/watch?v=2B-XwPjn ... re=related
Steve Jobs and Bill Gates Together: Part 1
http://www.youtube.com/watch?v=_5Z7eal4 ... re=related
Steve Jobs Resigns as Apple CEO
http://www.youtube.com/watch?v=aK2AArI4vh0
-
- Posts: 2338
- Joined: May 31, 2005 9:59
- Location: Croatia
- Contact:
One shouldn't speak ill of the deceased, but I dislike how they are talking about him now like he found a cure for cancer or something. He designed gadgets!
http://gear.ign.com/articles/119/119852 ... mpid=ign40
http://gear.ign.com/articles/119/119852 ... mpid=ign40
Hrm.The world is immeasurably better because of Steve.
Last edited by Lachie Dazdarian on Oct 06, 2011 6:47, edited 1 time in total.
and what exactly did your multibillion $$$ fan base die of lachie ? lol
designing gadgets (tools ) is what separates man from the beasts...its what we do as a species
no Macfan here either but let the body get cold first !
Lets be fair , meglomanic or no he did have more vision in his little finger then the entire board of Big Blue. Apple did blunder vs the ibm clone but then recovered with iGadgets....the rest they say is history.
A little vision can carry you a long long way. A valuable lesson indeed.
"if you are willing to go that extra mile then some people are willing to pay that extra dollar " that, id say, has been the general strategy for Apple.
Steve Jobs Documentary 2010 Part 1
http://www.youtube.com/watch?v=QgiEG-Ns ... re=related
there's not many jobs id be willing to do for free but CEO of apple is one of them
designing gadgets (tools ) is what separates man from the beasts...its what we do as a species
no Macfan here either but let the body get cold first !
Lets be fair , meglomanic or no he did have more vision in his little finger then the entire board of Big Blue. Apple did blunder vs the ibm clone but then recovered with iGadgets....the rest they say is history.
A little vision can carry you a long long way. A valuable lesson indeed.
"if you are willing to go that extra mile then some people are willing to pay that extra dollar " that, id say, has been the general strategy for Apple.
Steve Jobs Documentary 2010 Part 1
http://www.youtube.com/watch?v=QgiEG-Ns ... re=related
there's not many jobs id be willing to do for free but CEO of apple is one of them
-
- Posts: 1186
- Joined: May 08, 2006 21:58
- Location: Crewe, England
-
- Posts: 2338
- Joined: May 31, 2005 9:59
- Location: Croatia
- Contact:
Apple products are 50:50 mix of hype+quality
when you bought apple you bought a mixed bag of style, quality and utility
sure you payed through the nose but you always had a 'little something ' to show for it. In society there is group of non nerdy people who want the latest and greatest. 1 one-upmanship + utility + style (the signal)
for me 'compatibility is king ' , i put up with the grey box and can buy my utility cheap. High utility = mature / yesterdays proven technology
sadly it is just not possible to combine mature technology with cutting edge technology. They are opposite ends of the same stick & this is why apple always failed to deliver the dream....Steve Jobs did try to deliver that dream & that is why so many people are loyal & appreciative of his efforts.
The Apple dream and the open source dream have much in common.
"death to the grey suited gods who seek to rule over us"
when you bought apple you bought a mixed bag of style, quality and utility
sure you payed through the nose but you always had a 'little something ' to show for it. In society there is group of non nerdy people who want the latest and greatest. 1 one-upmanship + utility + style (the signal)
for me 'compatibility is king ' , i put up with the grey box and can buy my utility cheap. High utility = mature / yesterdays proven technology
sadly it is just not possible to combine mature technology with cutting edge technology. They are opposite ends of the same stick & this is why apple always failed to deliver the dream....Steve Jobs did try to deliver that dream & that is why so many people are loyal & appreciative of his efforts.
The Apple dream and the open source dream have much in common.
"death to the grey suited gods who seek to rule over us"
-
- Posts: 5494
- Joined: Sep 12, 2005 20:06
- Location: California
I consider Steve Jobs the hardware equivalent of Bill Gates. They're two men who dreamed of a technological future, and did a good job putting us some percentage of the way there.
Without Jobs, there aren't a lot of creative minds with a knack for business left in his field. I doubt Apple's current board of directors can keep up with the child-like fantasies Jobs had as Apple's CEO. Keep in mind that Jobs also helped bring us Pixar, even if his intent was to sell its hardware to our doctors rather than use it to create our children's most profound memories.
That being said, he's no idol. He ran his highly praised company like a dictatorship, harshly reprimanded Apple employees for their mistakes and eliminated Apple's philanthropy efforts when he returned to Apple as a CEO.
It's ironic. Microsoft always gets bashed for its practices, but it treats its employees really well, actively participates in philanthropic efforts and produces some pretty excellent research papers. Gates and Jobs are almost opposites, and you'd expect them to be the CEOs of their respective other's company, not their own.
Without Jobs, there aren't a lot of creative minds with a knack for business left in his field. I doubt Apple's current board of directors can keep up with the child-like fantasies Jobs had as Apple's CEO. Keep in mind that Jobs also helped bring us Pixar, even if his intent was to sell its hardware to our doctors rather than use it to create our children's most profound memories.
That being said, he's no idol. He ran his highly praised company like a dictatorship, harshly reprimanded Apple employees for their mistakes and eliminated Apple's philanthropy efforts when he returned to Apple as a CEO.
It's ironic. Microsoft always gets bashed for its practices, but it treats its employees really well, actively participates in philanthropic efforts and produces some pretty excellent research papers. Gates and Jobs are almost opposites, and you'd expect them to be the CEOs of their respective other's company, not their own.
I've never bought, or used, any of his gadgets, but No one should speak ill of the dead, whether poor or gentry.
The paths of Glory lead but to the grave. (Thomas Gray)
Here's my little tribute.
The paths of Glory lead but to the grave. (Thomas Gray)
Here's my little tribute.
Code: Select all
#Include Once "GL/glu.bi"
Dim Shared As Integer xres,yres
'Screeninfo xres,yres
Screenres .8*1024,.8*768,32,,2
Screeninfo xres,yres
Type glcolour
As Double r,g,b,alpha
End Type
#define glrgba type<glcolour>
Type point3d
As Single x,y,z
End Type
'yres=768-yres
Declare Sub draw_string(xpos As Integer,ypos As Integer,zpos As Integer=0,text As String,colour As glcolour,size As Single,rotx As Single=0,roty As Single=0,rotz As Single=0,textangle As Single=0,charangle As Single=0,eyeX As Single,eyeY As Single,perspective As Single=1,im As Any Pointer=0)
Declare Sub framecounter
Declare Sub GLpolygon(n As Integer,_ 'number of sides
centreX As Double,_ 'centres
centreY As Double,_
col() As Double,_ 'dim 1 to 6, see below
t As Double=1,_ 'thickness
size As Double=100,_ 'max (radius) of polygon
angle As Double=0,_ 'turn a few degrees to one side
offset As Double=0,_
shade1 As Double=1,_ 'line shaders
shade2 As Double=1,_
ex As Double=1,_ 'eccentricity on x plane
ey As Double=1,_ 'eccentricity on y plane
im As Any Pointer=0) 'UNUSED
Declare Sub GL2dsetup
'Generate randoms within a range
Function r(first As Double, last As Double) As Double
Function = Rnd * (last - first) + first
End Function
'colouring macro
#macro getcolour(x)
Select Case x
Case 1
colour(1)=.7: colour(2)=.7 :colour(3)=.7'.2
colour(4)=.7:colour(5)=.7:colour(6)=.7
Case 2
colour(1)=r(.8,1):colour(2)=r(0,.5):colour(3)=0'r(0,1)
colour(4)=colour(1):colour(5)=colour(2):colour(6)=colour(3)
Case 3
colour(1)=0:colour(2)=r(0,.1):colour(3)=r(.8,1)
colour(4)=colour(1):colour(5)=colour(2):colour(6)=colour(3)
Case 4
colour(1)=0:colour(2)=.2:colour(3)=0
colour(4)=colour(1):colour(5)=colour(2):colour(6)=colour(3)
Case 5
colour(1)=1:colour(2)=r(.1,.8):colour(3)=0
colour(4)=colour(1):colour(5)=colour(2):colour(6)=colour(3)
Case 6
colour(1)=0:colour(2)=0:colour(3)=0
colour(4)=colour(1):colour(5)=colour(2):colour(6)=colour(3)
End Select
#endmacro
Dim As Double colour(1 To 6) 'colour(1 to 3) one end, colour(4 to 6) other end of line
Dim sides As Integer 'number of polygon sides
Dim size As Double=200 'radial size of polygon
Dim thickness As Double 'thickness=size for solid colour
Dim angle As Double 'rotation angle
Dim shade1 As Double=1 'shaders 0 to 1 (shade each line)
Dim shade2 As Double=1 'just tweak the shaders to suit. shade1=1, shade2=1 no shading
Dim eccentricityX As Double=1 'if sides > 50 then a circle is drawn
Dim eccentricityY As Double=1 'tweaking eccentricity produces an ellipse
Dim cx As Double 'centre of polygon
Dim cy As Double
cy=yres-.7*yres
Dim As Double turn,ang,ex,ey
Dim ii As String 'for the inkey
Randomize
GL2dsetup 'initialise GL2d
Dim As Double k=-1,count,k2=1,sinangle,pi=4*Atn(1)
Dim As Double an
Dim As Single perspective=1.5
Dim As point3d angle2,eye
eye=Type<point3d>(xres/2,yres/2,0)
Dim As Integer flag,flag2
Dim Shared As String f_ps
#define cgl yres-
Do
angle2.x=angle2.x+1
If angle2.x>=360 Then angle2.x=0
sinangle=Sin(angle2.x*pi/180)
count=count+1*k2
If count>r(10,30) Then k2=-k2
If count<0 Then k2=-k2
turn=turn+.1
ang=r(88-count,92-count)
colour(1)=200:colour(2)=r(50,100)
glClear (GL_COLOR_BUFFER_BIT)
ex=1
ey=1
glBegin (GL_LINES)
draw_string(0,0,0,f_ps,glrgba(1,1,1,1),1,0,0,0,0,0,0,yres/2)
If angle2.x >90 And angle2.x<270 Then
flag=0
draw_string(.4*xres,.8*yres,50,"Steve",glrgba(Abs(sinangle),0,.5,1),3.5,angle2.x,angle2.y,0,0,0,eye.x,eye.y,perspective)
Else
flag=1
End If
If angle2.x >90 And angle2.x<270 Then
flag2=0
draw_string(.5*xres,.85*yres,50,"<-Jobs->",glrgba(1,Abs(sinangle),.1,1),2,angle2.y,angle2.x,0,0,0,eye.x,eye.y,perspective)
Else
flag2=1
End If
'wick
getcolour(4)
glpolygon(4,xres/2,cy-.5*cy,colour(),yres/10,yres/10,45)
glpolygon(4,xres/2,cy-.7*cy-.05*yres,colour(),yres/10,yres/10,45)
getcolour(1)
For z As Double=-.29*yres To -.345*yres Step -1
glpolygon(4,xres/2,.58*yres+z,colour(),yres/120,yres/120,45)
Next z
ex=4
getcolour(5)
For z As Integer=-3 To 3
glpolygon(20,xres-(xres/2)+2.5*count+z,cgl yres/2,colour(), yres/20, yres/20,ang,turn,shade1,shade2,ex,ey)
Next z
getcolour(6)
ex=6
For z As Integer=-5 To 5
glpolygon(20,.88*(xres/2)+2.5*count+1*sinangle+z,cgl .7*(yres/2)+count,colour(),1.3*( yres/20),1.3*( yres/20),ang,turn,shade1,shade2,ex,ey)
glpolygon(20,1.12*(xres/2)+2.5*count-1*sinangle+z,cgl .7*(yres/2)+count,colour(),1.3*( yres/20),1.3*( yres/20),ang,turn,shade1,shade2,ex,ey)
Next z
ex=3.4
ey=.4
glpolygon(20,xres-.83*(xres/2),cgl .7*(yres/2),colour(),1.9*( yres/20),1.9*( yres/20),ang,turn,shade1,shade2,ex,ey)
getcolour(5)
ex=2.5-.1*count
glpolygon(20,(xres/2),cgl 1.37*(yres/2),colour(),.16*( yres/20),.16*( yres/20),ang,turn,shade1,shade2,ex,ey)
getcolour(3)
glpolygon(20,(xres/2),cgl 1.39*(yres/2),colour(),.05*( yres/20),.05*( yres/20),ang,turn,shade1,shade2,ex,ey)
If flag=1 Then
draw_string(.4*xres,.8*yres,50," Steve",glrgba(Abs(sinangle),0,.5,1),3.5,angle2.x,angle2.y,0,0,0,eye.x,eye.y,perspective)
End If
If flag2=1 Then
draw_string(.5*xres,.85*yres,50,"<-Jobs->",glrgba(1,Abs(sinangle),.1,1),2,angle2.y,angle2.x,0,0,0,eye.x,eye.y,perspective)
End If
draw_string(.671*xres,.8*yres,50,"R",glrgba(.5,.5,.5,1),4,0,65,0,0,0,xres/2,.8*yres,1)
draw_string(.485*xres,.8*yres,50,"I",glrgba(.5,.5,.5,1),4,0,0,0,0,0,xres/2,.8*yres,1)
draw_string(.316*xres,.8*yres,50,"P",glrgba(.5,.5,.5,1),4,0,-65,0,0,0,xres/2,.8*yres,1)
framecounter
glend
Flip
ii=Inkey
Loop Until ii=Chr(27)
'THE PROCEDURES
Sub GL2dsetup
glMatrixMode (GL_PROJECTION)
glLoadIdentity ()
glOrtho (0,xres, 0,yres, -1, 1)
glMatrixMode (GL_MODELVIEW)
glDisable (GL_DEPTH_TEST)
glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA)
glEnable (GL_BLEND)
glEnable (GL_LINE_SMOOTH)
glLineWidth(4)
End Sub
Sub GLpolygon(n As Integer,_
centreX As Double,_
centreY As Double,_
col() As Double,_
t As Double=1,_
size As Double=100,_
angle As Double=0,_
offset As Double=0,_
shade1 As Double=1,_
shade2 As Double=1,_
ex As Double=1,_
ey As Double=1,_
im As Any Pointer=0)
Dim pi As Double=4*Atn(1)
#define rad *pi/180
angle=angle rad
Dim slug As Double=2*pi/n
Dim As Double dist=size
Dim As Double x1,x2,y1,y2
Dim As Double x1r,x2r,y1r,y2r
For z As Double=0+offset To 2*pi+offset Step slug
For k As Double =0 To t Step 1
x1=centrex+ex*(dist-k)*Cos(z)
y1=centrey+ey*(dist-k)*Sin(z)
x2=centrex+ex*(dist-k)*Cos(z+slug)
y2=centrey+ey*(dist-k)*Sin(z+slug)
'now rotate
x1r=(Cos(angle)*(x1-centreX)-Sin(angle)*(y1-centreY))+centreX
y1r=(Sin(angle)*(x1-centreX)+Cos(angle)*(y1-centreY))+centreY
x2r=(Cos(angle)*(x2-centreX)-Sin(angle)*(y2-centrey))+centreX
y2r=(Sin(angle)*(x2-centreX)+Cos(angle)*(y2-centreY))+centreY
glColor4f (col(1),col(2),col(3),shade1 )
glVertex2f (x1r, y1r)
glColor4f (col(4),col(5),col(6),shade2)
glVertex2f (x2r,y2r)
Next k
Next z
End Sub
Sub draw_string(xpos As Integer,ypos As Integer,zpos As Integer=0,text As String,colour As glcolour,size As Single,rotx As Single=0,roty As Single=0,rotz As Single=0,textangle As Single=0,charangle As Single=0,eyeX As Single,eyeY As Single,perspective As Single=1,im As Any Pointer=0)
glend
glLineWidth(size)
glBegin (GL_LINES)
Dim As point3d rot3
Dim angle_radians As point3d
Dim pivot_vector(1 To 3) As Single
Dim Rx(1 To 3,1 To 3) As Single
Dim Ry(1 To 3,1 To 3) As Single
Dim Rz(1 To 3,1 To 3) As Single
Dim s As Single
Dim new_pos(1 To 3) As Single
Dim temp1(1 To 3) As Single
Dim temp2(1 To 3) As Single
#macro mv(m1,v,ans)
For i As Integer=1 To 3
s=0
For k As Integer = 1 To 3
s=s+m1(i,k)*v(k)
Next k
ans(i)=s
Next i
#endmacro
#macro rotatepoint3d(pivot,first,angle,dilator)
angle_radians=Type<point3d>(.01745329*angle.x,.01745329*angle.y,.01745329*angle.z)
pivot_vector(1)=(first.x-pivot.x)*dilator
pivot_vector(2)=(first.y-pivot.y)*dilator
pivot_vector(3)=(first.z-pivot.z)*dilator
'rotat1on matrices about the three axix
Rx(1,1)=1:Rx(1,2)=0:Rx(1,3)=0
Rx(2,1)=0:Rx(2,2)=Cos(angle_radians.x):Rx(2,3)=-Sin(angle_radians.x)
Rx(3,1)=0:Rx(3,2)=Sin(angle_radians.x):Rx(3,3)=Cos(angle_radians.x)
Ry(1,1)=Cos(angle_radians.y):Ry(1,2)=0:Ry(1,3)=Sin(angle_radians.y)
Ry(2,1)=0:Ry(2,2)=1:Ry(2,3)=0
Ry(3,1)=-Sin(angle_radians.y):Ry(3,2)=0:Ry(3,3)=Cos(angle_radians.y)
Rz(1,1)=Cos(angle_radians.z):Rz(1,2)=-Sin(angle_radians.z):Rz(1,3)=0
Rz(2,1)=Sin(angle_radians.z):Rz(2,2)=Cos(angle_radians.z):Rz(2,3)=0
Rz(3,1)=0:Rz(3,2)=0:Rz(3,3)=1
mv (Rx,pivot_vector,temp1)
mv (Ry,temp1,temp2)
mv (Rz,temp2,new_pos)
new_pos(1)=new_pos(1)+pivot.x
new_pos(2)=new_pos(2)+pivot.y
new_pos(3)=new_pos(3)+pivot.z
rot3=Type<point3d>(new_pos(1),new_pos(2),new_pos(3))
#endmacro
#define apply_perspective(p,eye,w) Type<point3d>((p.x-eye.x)/w+eye.x,(p.y-eye.y)/w+eye.y,(p.z-eye.z)/w+eye.z)
Dim As Integer wx,wy
Screeninfo wx,wy
Dim As Single _temp2
Dim As point3d _charangle
_charangle.z=charangle
Dim As point3d eye
eye.x=eyeX
eye.y=eyeY
Dim As point3d angle=Type<point3d>(rotx,roty,rotz)
Dim As Integer codenum=128 '(Full Asci 256 if required)
Static As Integer runflag
Static As point3d infoarray()
Redim Preserve As point3d infoarray(64,codenum) '64 = 8 x 8 pixel size
If runflag=0 Then ' 'scan codenum of codepage once
Dim As Uinteger background=Rgb(0,0,0)
Screenres 10,10,32 '8 x 8 pixels on this screen
Dim count As Integer
For ch As Integer=1 To codenum
Cls
Draw String(1,1),Chr(ch)
For x As Integer=1 To 8 'scan for characters
For y As Integer=1 To 8
If Point(x,y)<>background Then
count=count+1
infoarray(count,ch)=Type<point3d>(x,y,0)'save pixel position
End If
Next y
Next x
count=0
Next ch
runflag=1
End If
If size=0 Then Exit Sub
Dim As point3d temp(1 To 64,codenum),np
Dim As Single cr= 0.01745329,x1,y1,x2,y2 '(4*atn(1))/180=.017453....
Dim As point3d cpt(1 To 64),c=Type<point3d>(xpos,ypos,zpos),c2
Dim As Integer dx=xpos,dy=ypos,asci
For z6 As Integer=1 To Len(text)
asci=Asc(Mid(text,z6,1))
For x1 As Integer=1 To 64
temp(x1,asci).x=infoarray(x1,asci).x+dx
temp(x1,asci).y=infoarray(x1,asci).y+dy
Next x1
c2=Type<point3d>(xpos+(size*(z6-1)*8)*Cos(rotz*cr),ypos+(size*(z6-1)*8)*Sin(rotz*cr),zpos)
For z2 As Integer=1 To 64
rotatepoint3d(c,temp(z2,asci),angle,size)
cpt(z2)= rot3
_temp2=(cpt(z2).z*(perspective-1)/300+1)
cpt(z2)=apply_perspective(cpt(z2),eye,_temp2)
If charangle<>0 Then
rotatepoint3d(c2,cpt(z2),_charangle,1)
cpt(z2)= rot3
cpt(z2)=apply_perspective(cpt(z2),eye,_temp2)
End If
Next z2
Dim As Single sz =(size/2)*(2-_temp2)
For z As Integer=1 To 64
x1=cpt(z).x-sz*(Cos((rotz+charangle)*cr)):y1=cpt(z).y-sz*(Sin((rotz+CHARANGLE)*cr))
x2=cpt(z).x+sz*(Cos((rotz+charangle)*cr)):y2=cpt(z).y+sz*(Sin((rotz+charangle)*cr))
If infoarray(z,asci).x<>0 Then 'paint only relevant points
If Abs(size)>0 Then
' box()
glColor4f (colour.r,colour.g,colour.b,colour.alpha)
glVertex3f (x1-size/2,wy-y1,0)
glColor4f (colour.r,colour.g,colour.b,colour.alpha)
glVertex3f (x2-size/2,wy-y2,0)
End If
End If
Next z
dx=dx+8
Next z6
glend
glLineWidth(2)
glBegin (GL_LINES)
End Sub
Sub init Constructor
Dim As glcolour cl=Type<glcolour>(0,0,0)
draw_string(0,0,0,"",cl,0,0,0,0,0,0,0,0)
Screen 0
End Sub
Sub framecounter
Static As Double frame,fps
frame=frame+1
Static As Double t1,t2
If frame>=fps Then
t1 = Timer
fps = frame/(t1-t2)
f_ps="Frames per second = " + Str(fps)
t2=Timer
frame=0
End If
End Sub
Last edited by dodicat on Oct 07, 2011 7:21, edited 1 time in total.
-
- Posts: 88
- Joined: Apr 03, 2011 3:44
- Location: Inside the bomb
- Contact:
I am very upset at 99% of the articles about the late Mr. Jobs. They don't mention his time spent revolutionizing video games at Atari. He and Wozniak made Breakout, donchaknow. I guess for some people, it's about the money and not the fun.
(By serendipity, I almost made a Breakout minigame in my latest release. Too bad I went with something else instead...)
(By serendipity, I almost made a Breakout minigame in my latest release. Too bad I went with something else instead...)
-
- Posts: 94
- Joined: Aug 19, 2011 18:28