CDC media images
CDC media images
In[]:=
Hyperlink["CDC Image Library","https://www.cdc.gov/media/subtopic/images.htm"]
Out[]=
image=Import["https://phil.cdc.gov//PHIL_Images/23311/23311.tif"];
In[]:=
ImageDimensions[image]
Out[]=
{4000,2250}
In[]:=
c=1000-640;i2=ImageTake[ImageResize[image,2000],{1,640},{c,1280+c-1}]
Out[]=
In[]:=
ImageDimensions[i2]
Out[]=
{1280,640}
In[]:=
Export["D:\\git\\wolfram-coronavirus\\images\\ncov-detailed.png",i2]
Out[]=
D:\git\wolfram-coronavirus\images\ncov-detailed.png