作業五

size 200 200
paper 100

//righrup
repeat x 200 0
{
pen 40 (*20)
line 150 150 100 x
line 150 150 100 x
}

//leftdown
repeat x 200 0
{
pen 70 (*20)
line 50 50 100 x
line 50 50 100 x

}
//rightdown
repeat x 200 0
{
pen 20 (*20)
line 150 50 100 x
line 150 50 100 x

}

repeat x 200 0
{
pen 90 (*20)
line 50 150 100 x
line 50 150 100 x

}

作業四 command square 結構綜合設計

fast
paper 80 20 30
command square x y s c
{
pen s
line x y x (y+s)
line x (y+s) (x+s) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 100
{
pen 10 20 30
line A 0 A 10
}
repeat A 0 100
{
pen 40 20 40
line A 90 A 100
}
repeat A 0 100
{
pen 90 10 70
line A 20 A 30
}
repeat A 0 100
{
pen 70 50 32
line A 70 A 80
}
repeat A 0 100
{
pen 50 10 60
line A 45 A 55
}
repeat A 0 9
{
repeat B 0 9
{
square (A*10+8) (B*10+2) 3 (A+B*10)
}
}
repeat A 0 9
{
repeat B 0 9
{
square (A*10+3) (B*10+3) 5 (A+B*10)
}
}

期中作業

load dbngraphics.dbn

size 600 458

fast

paper 50 80 70

//--------------圓---
Repeat A 100 95

{
circle 145 240 A 100
}

Repeat A 0 40

{
circle 145 240 A 100
}

Repeat A 60 40

{
circle 145 240 A 40
}

Repeat A 95 60

{
circle 145 240 A 70
}


//-------三角形------

repeat A 365 580
{
pen 183 73 40
line 475 45 A 155
}

//--------------------------

repeat A 230 300
{
pen 100
line 265 233 A 175
}

//-------------------


repeat A 240 295
{
pen 100
line 265 175 A 110
}

//------------------


repeat A 250 285
{
pen 100
line 265 115 A 50
}

//---------------

repeat A 500 550
{
pen 100
line 526 158 A 190
}

//--------------------------

repeat A 458 480
{
pen 100 0 0
line 458 160 A 175
}

//--------------------------

repeat A 458 490
{
pen 100 90 0
line 458 175 A 200
}

//--------------------------

repeat A 215 205
{
pen 10
line 458 A 575 A
}

//--------------------------

repeat A 458 550
{
pen 0 70 50
line 458 275 A 225
}

//--------------------------

repeat A 458 550
{
pen 100 0 0
line 550 225 A 275
}

//--------------------------

repeat A 60 235
{
pen 50 10 10
line 145 235 A 365
}

//--------------------------

triangle 100 32 195 32 145 240

repeat A 100 195
{
pen 70 10 10
line 145 235 A 32
}

//-----------長方形

repeat A 430 415
{
pen 221 180 0
line 30 A 110 A
}

//-----------三角形

repeat A 313 458

{
pen 183 73 0
line 458 430 A 160
}

//--------------------
pen 100 0 0
line 345 385 380 365
line 344 384 379 364
line 343 383 378 363
line 342 382 377 362
line 341 381 376 361

line 340 380 375 360
line 339 379 374 359
line 338 378 373 358
line 337 377 372 357
line 336 376 371 356

line 335 375 370 355
line 334 374 369 354
line 333 373 368 353
line 332 372 367 352
line 331 371 366 351

line 330 370 365 350
line 329 369 364 349
line 328 368 363 348
line 327 367 362 347
line 326 366 361 346

line 325 365 360 345
line 324 364 359 344
line 323 363 358 343
line 322 362 357 342
line 321 361 356 341