Pedagógus tüntetések/noÁr.asy

A program kimenete

A noÁr.asy fájl tartalma:

import graph;

size(100,100);                  // abrameret
pair origo = (0,0);
real sugar = 30;        // belso sugar
real vast  = 9;         // vonalvastagsag
real szog  = 20;
pen  szin  = heavygreen;        // a felkialtojel szine

filldraw(
    arc(origo,sugar,-90+szog,-90-szog,true) --              // belso iv
    rotate(-szog)*(0,-sugar-vast) --
    arc(origo,sugar+vast,-90-szog,-90+szog,false) --        // kulso iv
    cycle,red,red);
real xbal  = -vast/2;
real xjobb = vast/2;
filldraw((xbal,-sugar) -- (xjobb,-sugar) -- (xjobb,-sugar-vast) -- (xbal,-sugar-vast) --
    cycle,szin,szin);      // also kocka
real yvast = 0.8*vast;
filldraw((xbal,sugar-yvast) -- (xjobb,sugar-yvast) -- (xjobb,-sugar+yvast) --
    (xbal,-sugar+yvast) -- cycle,szin,szin);  // teglalap a kor kozepen

A noÁr.svg előállítása: asy -f svg noÁr.asy

Az asymptote egy strukturált, objektum-orientált programnyelv, amit egy amerikai házaspár fejlesztett ki abból a célból, hogy az egyetemi geometria-előadásaikhoz egyszerűen tudjanak szemléltető ábrákat készíteni.