load-http-image ( path -- image )


Vocabulary
images.http

Inputs
pathan object


Outputs
imagean object


Definition
USING: accessors http.client images.http.private images.loader
images.loader.private io.pathnames kernel namespaces opengl
present ;

IN: images.http

: load-http-image ( path -- image )
[ http-get swap content-type ] [ present file-extension ] bi
or (image-class) load-image* gl-scale-factor get-global
[ 2.0 = >>2x? ] when* ;