2009年11月5日 星期四

期中:數位康丁斯基



程式碼在意見欄。

1 則留言:

  1. Load dbngraphics.dbn
    size 350 280
    paper 80 110 90

    fast
    //右下紅色三角形
    repeat A 25 150
    {
    pen 150 0 20
    triangle 250 25 275 A 300 25
    }

    //右上紅色三角形
    repeat A 225 150
    {
    pen 150 0 20
    triangle 225 225 275 A 325 225
    }

    //右邊內圓形
    repeat A 0 20
    {
    circle 275 150 A 100
    }
    //右中圓
    repeat A 21 45
    {
    circle 275 150 A 0
    }
    //右邊外圓形
    repeat A 46 50
    {
    circle 275 150 A 100
    }

    //左上黃色長方形
    repeat A 250 260
    {
    pen 100 80 0
    line 280 A 335 A
    }

    //中間連三黑三角形
    repeat A 35 75
    {
    pen 100
    triangle 195 35 205 A 215 35
    }

    repeat A 75 115
    {
    pen 100
    triangle 190 75 205 A 220 75
    }

    repeat A 115 150
    {
    pen 100
    triangle 185 115 205 A 225 115
    }

    //左下橘色三角形
    repeat A 100 35
    {
    pen 100 40 0
    triangle 25 100 90 A 155 100
    }

    //左中粉色直角三角形
    repeat A 105 260
    {
    pen 150 25 10
    triangle 100 105 100 A 180 105
    }

    //左紅、黃直角三角形
    repeat A 99 78
    {
    pen 150 0 0
    triangle 99 105 A 115 78 115
    }
    repeat A 99 70
    {
    pen 100 100 0
    triangle 99 116 A 135 70 135
    }

    //左黑色三角形
    repeat A 130 101
    {
    pen 100
    triangle 35 130 50 A 65 130
    }

    //右白色長方形
    repeat A 140 147
    {
    pen 0
    line 20 A 99 A
    }

    //右相疊直角三角形
    repeat A 99 45
    {
    pen 0 150 50
    triangle 99 155 A 155 99 186
    }
    repeat A 45 99
    {
    pen 100 30 10
    triangle 45 155 A 186 99 186
    }

    //上方紅色菱形
    repeat E 200 225
    {
    pen 100 0 0
    triangle 155 E 150 225 175 230
    }
    repeat A 205 230
    {
    pen 100 0 0
    triangle 155 200 180 A 165 230
    }

    回覆刪除