Wiindows 10

For other topics related to the FreeBASIC project or its community.
fxm
Posts: 9021
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: Wiindows 10

Postby fxm » May 22, 2019 12:49

Less than one hour total, for such the full feature update, seems very short for a HDD disk.
srvaldez
Posts: 2007
Joined: Sep 25, 2005 21:54

Re: Wiindows 10

Postby srvaldez » May 22, 2019 13:16

you are right, it's just a guess how long it took, being a VM I was doing other things in the host OS
fxm
Posts: 9021
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: Wiindows 10

Postby fxm » May 22, 2019 14:16

Example for the previous feature update version 1809:
How long does the Windows 10 October 2018 update (version 1809) take to install?

The biggest factor affecting the length of time it takes to install Windows 10 is whether the drive is an SSD (solid state drive) or HDD (hard disk drive). Installation on SSDs takes half or even one quarter of the time.

A high specification PC with a fast SSD might be able to do it in 30 minutes, but a low specification PC with a hard disk drive could take three hours. Most computers will be somewhere between, leaning towards the short SSD times or long HDD times depending on the specification.

Laptops usually have slower drives and less processing power than desktops, so they may take longer.
marcov
Posts: 2754
Joined: Jun 16, 2005 9:45
Location: Eindhoven, NL
Contact:

Re: Wiindows 10

Postby marcov » May 22, 2019 16:48

Low memory devices (e.g. 4GB AND integrated graphics) are no picnic ether.

For 1709 update:

Core2 6600 (2.4GHz) 6GB with SSD: about 2.5 hrs.
(now has been junked)

1809 update
i7-3770 12GB SSD : 50min-1hr.
Ryzen 2600 24GB with (old) SSD: 35-40 minutes

added later: these are rough magnitude only figures without download, since that is connection dependent, and often done already in the background if Windows tries to force you into upgrading.
Last edited by marcov on May 23, 2019 9:13, edited 2 times in total.
fxm
Posts: 9021
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: Wiindows 10

Postby fxm » May 22, 2019 17:39

1809 update:
i7-7500U (2.9GHz), 6GB, HDD 930GB
about 4 hours not counting the download time (only installation + reboot)
deltarho[1859]
Posts: 1797
Joined: Jan 02, 2017 0:34
Location: UK

Re: Wiindows 10

Postby deltarho[1859] » May 22, 2019 17:55

1903 Update

This was done after the KB4497934.

Download: 14mins
Install: 33mins
Followed by quite a few restarts and final page configuring.

Total time from start to desktop: 57mins ( longer than the 1809 update )

72Mbps broadband, SSD, Intel i7 4/4 @ 3.9GHz.
badidea
Posts: 1401
Joined: May 24, 2007 22:10
Location: The Netherlands

Re: Wi<s>i</s>ndows 10

Postby badidea » May 22, 2019 17:57

If I extrapolate, then in 2023 the time to update will be longer then the time between updates :-)
dodicat
Posts: 5828
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Wiindows 10

Postby dodicat » May 22, 2019 22:09

Might as well be on 1809 goatskin for all the good it is.

Code: Select all



'  FONTS
Function Filter(Byref tim As Ulong Pointer,_
    Byval rad As Single,_
    Byval destroy As Long=1,_
    Byval fade As Long=0) As Ulong Pointer
    #define map(a,b,_x_,c,d) ((d)-(c))*((_x_)-(a))/((b)-(a))+(c)
    If fade<0 Then fade=0:If fade>100 Then fade=100
    Type p2
        As Long x,y
        As Ulong col
    End Type
    #macro ppoint(_x,_y,colour)
    pixel=row+pitch*(_y)+(_x)*4
    (colour)=*pixel
    #endmacro
    #macro ppset(_x,_y,colour)
    pixel=row+pitch*(_y)+(_x)*4
    *pixel=(colour)
    #endmacro
    #macro average()
    ar=0:ag=0:ab=0:inc=0
    xmin=x:If xmin>rad Then xmin=rad
    xmax=rad:If x>=(_x-1-rad) Then xmax=_x-1-x
    ymin=y:If ymin>rad Then ymin=rad
    ymax=rad:If y>=(_y-1-rad) Then ymax=_y-1-y
    For y1 As Long=-ymin To ymax
        For x1 As Long=-xmin To xmax
            inc=inc+1
            ar=ar+(NewPoints(x+x1,y+y1).col Shr 16 And 255)
            ag=ag+(NewPoints(x+x1,y+y1).col Shr 8 And 255)
            ab=ab+(NewPoints(x+x1,y+y1).col And 255)
        Next x1
    Next y1
    If fade=0 Then
        averagecolour=Rgb(ar/(inc),ag/(inc),ab/(inc))
    Else
        averagecolour=Rgb(fd*ar/(inc),fd*ag/(inc),fd*ab/(inc))
    End If
    #endmacro
    Dim As Single fd=map(0,100,fade,1,0)
    Dim As Integer _x,_y
    Imageinfo tim,_x,_y
    Dim  As Ulong Pointer im=Imagecreate(_x,_y)
    Dim As Integer pitch
    Dim  As Any Pointer row
    Dim As Ulong Pointer pixel
    Dim As Ulong col
    Imageinfo tim,,,,pitch,row
    Dim As p2 NewPoints(_x-1,_y-1)
    For y As Long=0 To (_y)-1
        For x As Long=0 To (_x)-1
            ppoint(x,y,col)
            NewPoints(x,y)=Type<p2>(x,y,col)
        Next x
    Next y
    Dim As Ulong averagecolour
    Dim As Long ar,ag,ab
    Dim As Long xmin,xmax,ymin,ymax,inc
    Imageinfo im,,,,pitch,row
    For y As Long=0 To _y-1
        For x As Long=0 To _x-1
            average()
            ppset((NewPoints(x,y).x),(NewPoints(x,y).y),averagecolour)
        Next x
    Next y
    If destroy Then Imagedestroy tim: tim = 0
    Function= im
End Function
Sub drawstring(Byval xpos As Long,Byval ypos As Long,Byref text As String,Byval colour As Ulong,Byval size As Single,Byref im As Any Pointer=0)
    Type D2
        As Double x,y
        As Ulong col
    End Type
    size=Abs(size)
    Static As d2 XY()
    Static As Long runflag
    If runflag=0 Then   
        Redim  XY(128,127)
        Screen 8
        Width 640\8,200\16
        Dim As Ulong Pointer img
        Dim count As Long
        For ch As Long=1 To 127
            img=Imagecreate(9,17)
            Draw String img,(1,1),Chr(ch)
            For x As Long=1 To 8
                For y As Long=1 To 16
                    If Point(x,y,img)<>0 Then
                        count=count+1
                        XY(count,ch)=Type<D2>(x,y)
                    End If
                Next y
            Next x
            count=0
            Imagedestroy img
        Next ch
        runflag=1
    End If
    If size=0 Then Exit Sub
    Dim As D2 np,t
    #macro Scale(p1,p2,d)
    np.col=p2.col
    np.x=d*(p2.x-p1.x)+p1.x
    np.y=d*(p2.y-p1.y)+p1.y
    #endmacro
    Dim As D2 c=Type<D2>(xpos,ypos)
    Dim As Long dx=xpos,dy=ypos,f
    If Abs(size)=1.5 Then f=3 Else f=2
    For z6 As Long=1 To Len(text)
        Var asci=text[z6-1]
        For _x1 As Long=1 To 64*2
            t=Type<D2>(XY(_x1,asci).x+dx,XY(_x1,asci).y+dy,colour)         
            Scale(c,t,size)
            If XY(_x1,asci).x<>0 Then
                If size>1 Then
                    Line im,(np.x-size/f,np.y-size/f)-(np.x+size/f,np.y+size/f),np.col,bf
                Else
                    Pset im,(np.x,np.y),np.col
                End If
            End If
        Next _x1
        dx=dx+8
    Next z6
End Sub
Sub init Constructor
    drawstring(0,0,"",0,0)
    Screen 0
End Sub
Function Colour(Byref im As Any Pointer,Byval newcol As Ulong,Byval tweak As Long,Byval fontsize As Single) As Any Pointer
    #macro ppset2(_x,_y,colour)
    pixel2=row2+pitch2*(_y)+(_x)*dpp2
    *pixel2=(colour)
    #endmacro
    #macro ppoint(_x,_y,colour)
    pixel=row+pitch*(_y)+(_x)*dpp
    (colour)=*pixel
    #endmacro
    Dim As Long grade
    Select Case  fontsize
    Case 1 To 1.5:grade=205
    Case 2 :grade=225
    Case 2.5:grade=222
    Case 3 To 3.5:grade=200
    Case 4 To 4.5:grade=190
    Case 5 To 5.5:grade=165
    Case Else: grade=160
    End Select
    Dim As Integer w,h
    Dim As Integer pitch,pitch2,dpp,dpp2
    Dim  As Any Pointer row,row2
    Dim As Ulong Pointer pixel,pixel2
    Dim As Ulong col
    Imageinfo im,w,h,dpp,pitch,row
    Dim As Any Pointer temp=Imagecreate(w,h)
    Imageinfo temp,,,dpp2,pitch2,row2
    For y As Long=0 To h-1
        For x As Long=0 To w-1
            ppoint(x,y,col)
            Var v=.299*((col Shr 16)And 255)+.587*((col Shr 8)And 255)+.114*(col And 255)
            If v>(grade+tweak) Then
                ppset2(x,y,newcol)
            Else
                ppset2(x,y,Rgb(255,0,255))
            End If
        Next x
    Next y
    Return temp
End Function

Sub CreateFont(Byref myfont As Any Pointer,Byval fontsize As Single,Byval col As Ulong,Byval tweak As Long=0)
    fontsize=Int(2*Abs(fontsize))/2
    If fontsize=0 Then fontsize=.5
    Dim As Ubyte Ptr p
    Dim As Any Pointer temp
    Dim As Integer i
    temp = Imagecreate(FontSize*768,FontSize*16)
    myfont=Imagecreate(FontSize*768,FontSize*16)
    For i = 32 To 127
        drawstring ((i-32)*FontSize*8,1,Chr(i),Rgb(255,255,255),FontSize,temp)
    Next i
    If fontsize>1.5 Then
        For n As Single=0 To fontsize-2:temp=filter(temp,1,1,0):Next
        End If
        temp=Colour(temp,col,tweak,fontsize)
        Put myfont,(0,0),temp,trans
        Imageinfo( myfont,i,,,, p )
        p[0]=0:p[1]=32:p[2]=127
        For i = 32 To 127
            p[3+i-32]=FontSize*8
        Next i
        Imagedestroy(temp)
    End Sub
   
    Function Regulate(Byval MyFps As Long,Byref fps As Long) As Long
        Static As double timervalue,lastsleeptime,t3,frames
        frames+=1
        If (Timer-t3)>=1 Then t3=Timer:fps=frames:frames=0
        Var sleeptime=lastsleeptime+((1/myfps)-Timer+timervalue)*1000
        If sleeptime<1 Then sleeptime=1
        lastsleeptime=sleeptime
        timervalue=Timer
        Return sleeptime
    End Function
   
   
    Screenres 900,600,32
    Color ,Rgb(0,50,125)
    Dim As Integer xres,yres
    Screeninfo xres,yres
    Dim As Any Ptr i=Imagecreate(xres,yres)
   
    Dim As Any Ptr msg,speed,g(1 To 5)
    createfont msg,4.5,Rgb(200,200,200)
    createfont speed,2,Rgb(200,0,0)
    For n As Long=1 To 5
        createfont g(n),2,Rnd*Rgb(255,255,255)
    Next
   
    #define Intrange(f,l) int(Rnd*((l+1)-(f))+(f))
    For x As Long=0 To xres Step 16
        For y As Long=0 To yres Step 24
            Draw String i,(x,y),Chr(intrange(33,126)),,g(intrange(1,5))
           
        Next
    Next
   
    Dim As String s=String(24,0)
    For n As Long=0 To Len(s)-1
        Read s[n]
    Next
   
    Dim As Long k,fps
    Do
        k-=3
        Screenlock
        Cls
        Put(0,0),i,trans
     
        Draw String(20,20),"Framerate = "&fps,,speed
     
        Draw String(k,300),s,,msg
        Draw String(k+900,300),s,,msg
        If k<-900 Then k=0
        Screenunlock
       
        Sleep regulate(60,fps),1
     
    Loop Until Len(Inkey)
    Data 72,101,39,115,32,76,105,110,115,117,120,32,100,105,110,103,45,97,45,108,105,110,103,46
    imagedestroy i
screen 0
     
     
Last edited by dodicat on May 22, 2019 23:00, edited 1 time in total.
badidea
Posts: 1401
Joined: May 24, 2007 22:10
Location: The Netherlands

Re: Wiindows 10

Postby badidea » May 22, 2019 22:34

dodicat wrote:Might as well be on 1809 goatskin for all the good it is.

Code: Select all

...

If that code is meant to run on Linux, then use double for timer variables :-p
dodicat
Posts: 5828
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Wiindows 10

Postby dodicat » May 22, 2019 23:01

badidea wrote:
dodicat wrote:Might as well be on 1809 goatskin for all the good it is.

Code: Select all

...

If that code is meant to run on Linux, then use double for timer variables :-p

Done
It is a bit jumpy here on Linux.

Return to “Community Discussion”

Who is online

Users browsing this forum: No registered users and 4 guests