Hello! I am Sarah Hong and my project was on classifying drawing vs. photography. I decided to work on this project, because I like taking pictures with my camera and I wanted to do something related to pictures.
My first step was to find pictures on flickr. Since Wolfram has a connection with flickr, it was easy for me to import photos from flickr.
fl = ServiceConnect["Flickr", "New"]
Next, I collected photos flickr to use. I had collected 326 pictures and 180 drawings.
I classified pictures as pictures and drawings as drawings. And set the function "classify" as c for myself to try-out some.
Classifying some pictures on wolfram, at first it got 3 wrong out of 30 tries. Therefore, in order to get a better accuracy, I added more photos from flickr, which made the 3wrong ones correct.
After classifying pictures and drawings, I made use of the function "CloudDeploy" to make the website for my project.
CloudDeploy[
FormPage["image" -> "Image",
With[{img = #image, classifier = CloudGet[
CloudObject[
"https://www.wolframcloud.com/objects/user-e75bc7d8-3f0d-4f2e-\
9664-f905de8960c7/wscPhotoDrawingClassifier"]]}, classifier[img]] &,
"PhotographyOrDrawing", Permissions -> "Public"]
Next, I added title, subtitle, and color to the website just to make it more fancy.
CloudDeploy[
FormPage["image" -> "Image",
With[{img = #image, classifier = CloudGet[
CloudObject[
"https://www.wolframcloud.com/objects/user-e75bc7d8-3f0d-4f2e-\
9664-f905de8960c7/wscPhotoDrawingClassifier"]]}, classifier[img]] &,
PageTheme -> "Blue",
AppearanceRules -> <|"Title" -> "Can you trust your eyes?",
"Description" ->
"Insert any file from your computer see if it's a drawing or a \
photography!"|>], "PhotographyOrDrawing", Permissions -> "Public"]
Output was...
https://www.wolframcloud.com/objects/user-e75bc7d8-3f0d-4f2e-9664-f905de8960c7/PhotographyOrDrawing