img=Entity["TaxonomicSpecies","PantheraTigris::63rj9"][EntityProperty["TaxonomicSpecies","Image"]]
Out[]=
maxRadius=8;(*maxsizeofdots*)nDots=4000;(*numberofdots*)data=ImageData[img];Graphics[{Table[(*getarandompositionintheimage*)position=RandomInteger[{1,#}]&/@Reverse@ImageDimensions@img;{(*getcolorfromimage*)RGBColor@@Extract[data,position],(*putdiskatsamepositionascolorimagepositionsandgraphicscoordinatesareflipped*)Disk[({{0,1},{-1,0}}).position,maxRadius/(1+(maxRadius-1)Sqrt[(n-1)/nDots])]},{n,nDots}]}]
Out[]=