Illúzió

A Hering–Wundt-illúzió szerint a fekete vonalak irányítottsága miatt a piros, illetve a kék vonalakat nem egyenesnek látjuk.

Készíts illúzió1(a,b) és illúzió2(a,b) eljárást, amely a*2 x b*2 méretű téglalapba rajzolja az alábbi ábrákat! A függőleges vonalak 3 vonalvastagságúak legyenek! A fekete vonalak 5 fokonként legyenek, a két szélső a függőlegessel 15 fokos szöget zárjon be!

A feladat nehézsége, hogy a szakaszok jó helyen érjenek véget. Ehhez adjuk meg a szürke tartomány sarkai koordinátáit: (-a,-b) legyen a bal alsó, (a,b) pedig a jobb felső sarka! Amíg a tartományon velük vagyunk, addig hosszabbítjuk a szakaszokat.

eljárás illúzió1 :a :b
balra 15
ismétlés 30 [vonal :a :b balra 5] vonal :a :b
balra 30
ismétlés 30 [vonal :a :b balra 5] vonal :a :b
balra 15
tollatfel balra 90 előre :a/4 jobbra 90 tollatle
tollszín! "vörös tollvastagság! 2 előre :b hátra 2*:b
tollatfel jobbra 90 előre :a/2 balra 90 tollatle
előre 2*:b hátra :b
tollatfel balra 90 előre :a/4 jobbra 90 tollatle
tollszín! "fekete tollvastagság! 1
vége

eljárás vonal :a :b
ha (és xpoz<=:a xpoz>=-:a ypoz<=:b ypoz>=-:b)
[előre 1 vonal :a :b hátra 1]
vége

eljárás illúzió2 :a :b
tollatfel jobbra 90 hátra :a balra 75 tollatle
ismétlés 30 [vonal2 :a :b jobbra 5] vonal :a :b
balra 75
tollatfel előre 2*:a balra 105 tollatle
ismétlés 30 [vonal3 :a :b balra 5] vonal :a :b
jobbra 75
tollatfel előre 3*:a/4 jobbra 90 tollatle
tollszín! "kék tollvastagság! 2 előre :b hátra 2*:b tollatfel
balra 90 előre :a/2 jobbra 90 tollatle
előre 2*:b hátra :b
tollatfel jobbra 90 előre :a/4 balra 90 tollatle
tollszín! "fekete tollvastagság! 1
vége

eljárás vonal2 :a :b
ha (és xpoz<=0 ypoz<=:b ypoz>=-:b)
[előre 1 vonal2 :a :b hátra 1]
vége

eljárás vonal3 :a :b
ha (és xpoz>=0 ypoz<=:b ypoz>=-:b)
[előre 1 vonal3 :a :b hátra 1]
vége

illúzió1

A. Van 2 vastag piros függőleges vonal; jó méretű; jó távolságra 1+1+1 pont

B. Középről indulnak balra a fekete vonalak; jó a közöttük levő szög; a tartalmazó téglalap szélén érnek véget; jó a két szélső iránya 1+1+3+1 pont

C. Középről indulnak jobbra a fekete vonalak; jó a közöttük levő szög; a tartalmazó téglalap szélén érnek véget; jó a két szélső iránya 1+1+3+1 pont

illúzió2

D. Van 2 vastag kék függőleges vonal; jó méretű; jó távolságra 1+1+1 pont

E. Bal oldalról indulnak jobbra a fekete vonalak; jó a közöttük levő szög; a tartalmazó téglalap közepén, illetve szélén érnek véget; jó a két szélső iránya 1+1+3+1 pont

F. Jobb oldalról indulnak balra a fekete vonalak; jó a közöttük levő szög; a tartalmazó téglalap közepén, illetve szélén érnek véget; jó a két szélső iránya 1+1+3+1 pont