Details on pseudo detonation method . Image above is restored version (cropped)

This file is a derivative work based on Plate 3 of Birds of America by John James Audubon depicting the Prothonotary Warbler For the most part I search for and post unrestored screenshots, some of which I crop – many are from the Public Domain collection at University of Pittsburgh. This below may be of interest to any looking into restoration. Link to original Wikipedia page below Notes This file is a derivative work based on Plate 3 of Birds of America by John James Audubon depicting the Prothonotary Warbler The starting point is that the original image at the University of Pittsburg may be rather toned (i.e. yellowed with age). This might indeed not be so, but comparision with reference works such as the Duke of Portland's edition or the edition at Amherst College suggests that it is so. The file uses routines in Mathematica 9 to perform a pseudo detone, "pseudo" because toning is a very complicated process that cannot be compensated for by simple means (at the very least one need to know how different pigments are affected). Essentially the routine works by subtracting the yellow background. The result compares quite well with reference images and is offered as a starting point for users wishing to make their own restorations. A half-size image was used because of memory restraints on the uploader's computer. The routine below should work just as well on a full-size image (after adjusting for the sample boundaries - times 2!) if adequate computer memory is available. The Mathematica code used for this file was: (* Import file (the semicolon prevents it being displayed, best for large files) *) Warbler = Import["3_Prothonotary_Warbler (half size).jpg"]; (* Determine a page sample outside plate - this is a sample above the Warbler plate in a half-size file measuring 5552 x 8040 pixels) *) StartRow = 500; EndRow = 1500; StartColumn = 1500; EndColumn = 4000; (* Get page sample *) PageSample = ImageTake[Warbler, {StartRow, EndRow}, {StartColumn, EndColumn}]; (* Get a list of pixel values in sample *) SampleData = Flatten[ImageData[PageSample], 1]; (* Separate color channels *) DataSeparate = Transpose[SampleData]; (* Get the lightest pixel, virtual by channel (or you could use MeanPixel={Mean[DataSeparate[[1]]],Mean[DataSeparate[[2]]], Mean[DataSeparate[[3]]]}) *) LightestPixel = {Max[DataSeparate[[1]]], Max[DataSeparate[[2]]], Max[DataSeparate[[3]]]}; (* Display LightestPixel as RGB bytes (or you could use IntegerPart[MeanPixel * 255 + 0.5])*) IntegerPart[LightestPixel * 255 + 0.5] (* Pseudo detone image by subtracting LightestPixel (or by subtracting MeanPixel using WarblerDetoned= ImageAdd[Warbler, 1-MeanPixel]) *) WarblerDetoned = ImageAdd[Warbler, 1 - LightestPixel]; (* Export file *) Export["3_Prothonotary_Warbler (half size) Detoned.jpg", WarblerDetoned] Link to source https://commons.wikimedia.org/wiki/File:3_Prothonotary_Warbler_(half_size)_-pseudo_detoned.jpg Public Domain #editing #restoration #birds #illustration #art

20Upvotes
2Reminds
thumb_upthumb_downchat_bubble

More from 𝕔𝕙𝕖𝕤𝕤 𝕔𝕒𝕥

Prothonotary Warbler . Protonotaria citrea

119 views · May 27th
Super flower blood moon eclipse Live Wednesday May26, 4:45 AM EDT https://youtu.be/V0mQN-HJako The eclipse will begin Wednesday at 4:46 am . It will be completely in Earths shadow and appear red , known as totality, from 7:11 to 7:26 am (All times EDT) Visible across the Western United States, western Canada, Mexico, much of Central America, parts of South America, and Asia along the Pacific rim. Full viewing from Hawaii and the Aleutian Islands. – info from nbcnews . Edit: @FoxFox · 57s ago Maximum eclipse is going to be at 9:19PM here. [Australia] Sky is clear, and it's a marvelous night for a moon dance. #eclipse #lunareclipse #lunareclipse2021 #nightsky #superflowerbloodmoon
191 views · May 26th

More from 𝕔𝕙𝕖𝕤𝕤 𝕔𝕒𝕥

Prothonotary Warbler . Protonotaria citrea

119 views · May 27th
Super flower blood moon eclipse Live Wednesday May26, 4:45 AM EDT https://youtu.be/V0mQN-HJako The eclipse will begin Wednesday at 4:46 am . It will be completely in Earths shadow and appear red , known as totality, from 7:11 to 7:26 am (All times EDT) Visible across the Western United States, western Canada, Mexico, much of Central America, parts of South America, and Asia along the Pacific rim. Full viewing from Hawaii and the Aleutian Islands. – info from nbcnews . Edit: @FoxFox · 57s ago Maximum eclipse is going to be at 9:19PM here. [Australia] Sky is clear, and it's a marvelous night for a moon dance. #eclipse #lunareclipse #lunareclipse2021 #nightsky #superflowerbloodmoon
191 views · May 26th