Skip to content

The Richard Wright Collection Session I - Sale 2476 - Lot 40

 

VIEW2

 
Lot 40
Large Queen Anne Lady Doll in Mahogany and Walnut Veneered Display Case, England, c. 1720, carved wooden head and torso with mortise and tenon jointed wooden arms and legs, gesso and painted head, shoulders and hands, large carved forked hands, brown pupil-less glass eyes, finely painted brows and lashes with nicely blushed cheeks and a sparse brown human hair wig, wearing original silk brocade dress with stomacher and bronze-colored braiding, over multiple petticoats with quilted and crewelwork accenting, with wide-brimmed silk hat, double knit stockings and brocade full shoes with leather soles, ht. 25, the dome-top rectangular case with glass to three sides and with velvet-covered back panel to which doll is attached, case ht. 34, wd. to 20.75, dp. 9.5 in., (excellent, with minor in-painting to hands).
Estimate $50,000-70,000

excellent; blacklighting shows minor in-painting to hands.
Sold for $50,363
Inquiry Back to Search Results
rray( retvalImg ) Then loadImageFiles = retvalImg Exit Function End If loadImageFiles = Array() 'Otherwise just check the filesystem for the default image to handle real-time updates Dim path, fs path = s_folder & "\" & s_refno & ".jpg" set fs=Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists(path) Then 'ReDim retvalImg(1) 'retvalImg(1) = s_refno & ".jpg" loadImageFiles = Array( s_refno & ".jpg" ) End If End Function ' 'Function loadImageFilesFromDb 'Check db for list of files for this refno 'We're doing this because Mosso disk access is painfully slow, and page load time > 5sec if we search the filesystem 'JJS 20090701 Function loadImageFilesFromDb( s_refno ) On Error Resume Next Dim refno refno = Trim(s_refno) If (refno= "") Then Exit Function End If Dim sql sql = "select filename from catalogue_images where filename like '" + refno +"%' AND (NOT filename like '%tn%') AND `deleted` =0 " Dim conn, cmd, rs, retval retval = "" Set conn = Server.CreateObject("ADODB.Connection") conn.open ( loggingDBConnectionString ) Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText= sql Set rs = cmd.Execute Dim rows Dim files(), r If rs.EOF Then Exit Function Else rows = rs.GetRows(,0,"filename") End If Redim files(UBound(rows, 2)) For r = 0 to UBound(rows, 2) files(r) = rows(0,r) Next loadImageFilesFromDb = files End Function %>