Steve Jobs R.I.P. @ 56

General discussion for topics related to the FreeBASIC project or its community.
TESLACOIL
Posts: 1769
Joined: Jun 20, 2010 16:04
Location: UK
Contact:

Steve Jobs R.I.P. @ 56

Post by TESLACOIL »

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
Lachie Dazdarian
Posts: 2338
Joined: May 31, 2005 9:59
Location: Croatia
Contact:

Post by Lachie Dazdarian »

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
The world is immeasurably better because of Steve.
Hrm.
Last edited by Lachie Dazdarian on Oct 06, 2011 6:47, edited 1 time in total.
TESLACOIL
Posts: 1769
Joined: Jun 20, 2010 16:04
Location: UK
Contact:

Post by TESLACOIL »

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
jevans4949
Posts: 1186
Joined: May 08, 2006 21:58
Location: Crewe, England

Post by jevans4949 »

On reflection, I guess his main contribution was producing products with a human-computer interface pleasing to the non-technical market.
HD_
Posts: 215
Joined: Jun 10, 2006 12:15
Contact:

Post by HD_ »

The iPhone revolutionised phones. If Nokia had their way, they'd still be dominating the market, pushing their ancient crap at premium prices and saying phones can't possibly be any better.
marcov
Posts: 3455
Joined: Jun 16, 2005 9:45
Location: Netherlands
Contact:

Post by marcov »

More ontopic, does this mean that we can stop pushing for a FB port for Apple products ? :-)
Lachie Dazdarian
Posts: 2338
Joined: May 31, 2005 9:59
Location: Croatia
Contact:

Post by Lachie Dazdarian »

HD_, revolutionize? C'mon.
marcov
Posts: 3455
Joined: Jun 16, 2005 9:45
Location: Netherlands
Contact:

Post by marcov »

HD_ wrote:The iPhone revolutionised phones. If Nokia had their way, they'd still be dominating the market, pushing their ancient crap at premium prices and saying phones can't possibly be any better.
At least Nokia had antenna's that worked :_)
TESLACOIL
Posts: 1769
Joined: Jun 20, 2010 16:04
Location: UK
Contact:

Post by TESLACOIL »

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"
anonymous1337
Posts: 5494
Joined: Sep 12, 2005 20:06
Location: California

Post by anonymous1337 »

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.
dodicat
Posts: 7976
Joined: Jan 10, 2006 20:30
Location: Scotland

Post by dodicat »

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.

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.
darkhog
Posts: 132
Joined: Oct 05, 2011 21:19

Post by darkhog »

You've made mistake in code. Your code spells PIR instead of RIP ;).
Destructosoft
Posts: 88
Joined: Apr 03, 2011 3:44
Location: Inside the bomb
Contact:

Post by Destructosoft »

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...)
dodicat
Posts: 7976
Joined: Jan 10, 2006 20:30
Location: Scotland

Post by dodicat »

darkhog wrote:You've made mistake in code. Your code spells PIR instead of RIP ;).
Thanks, fixed.
vladimir777
Posts: 94
Joined: Aug 19, 2011 18:28

Blow Jobs

Post by vladimir777 »

Post Reply