Open a picture and change it to a smart object:
Make a copy of the layer (Cmd J) and change its blend mode to lighten
Make the background layer active. Go to Filter > Pixelate > Mezzotint and choose Type = Short lines. Click Ok
Because the layer is a smart object, you can change the type later if you'd like another effect. Make the top layer active and add a black and white adjustment layer
Go to select > Modify > Feather and feather it 200 px and click OK
Now we fill the selection with Black and deselect the selection (Cmd D)
There you have it: the inked strokes portrait!
By clicking on the filters you can change the effect to for example long lines