parent
6bab04f0e2
commit
eab3b57722
|
@ -2,6 +2,8 @@ A silly little meme sketch thingy idk
|
||||||
|
|
||||||
[See this online](https://corviform.gay/wuppie/)
|
[See this online](https://corviform.gay/wuppie/)
|
||||||
|
|
||||||
|
([based on this post](https://straybeetle.tumblr.com/post/697408407612817408))
|
||||||
|
|
||||||
## Sources
|
## Sources
|
||||||
|
|
||||||
The floaty heart background is from [this website](https://web.archive.org/web/20090727233551/http://hk.geocities.com/ironterry_crystal/wifeinfo.html) found via [gifcities.org][]
|
The floaty heart background is from [this website](https://web.archive.org/web/20090727233551/http://hk.geocities.com/ironterry_crystal/wifeinfo.html) found via [gifcities.org][]
|
||||||
|
|
|
@ -46,7 +46,7 @@ viewStr model = case model of
|
||||||
let
|
let
|
||||||
(gender, newSeed) = getPolygenderWithLength regenCount seed
|
(gender, newSeed) = getPolygenderWithLength regenCount seed
|
||||||
genderStr = if regenCount == 75 then "queer platonic partners" else renderPolygender gender
|
genderStr = if regenCount == 75 then "queer platonic partners" else renderPolygender gender
|
||||||
in "do u think a wuppie and a kitties could be " ++ genderStr ++ ",,?"
|
in "do u think a ouppy and a kittys could be " ++ genderStr ++ ",,?"
|
||||||
|
|
||||||
view : Model -> Html Msg
|
view : Model -> Html Msg
|
||||||
view model =
|
view model =
|
||||||
|
|
Loading…
Reference in New Issue