// ps2-8 // ps 2-8 // close call set p 90 set j 0 set k 50 paper p repeat b 0 5 { repeat a 0 90 { pen j line 30 (100-(a*a)/81) 30 (100-(a*a/81)+2) pen k line (a*a/90) 45 ((a*a/90)+10) 45 paper p } repeat a 90 0 { pen j line 30 (100-(a*a/81)) 30 (100-(a*a/81)+2) pen k line (a*a/90) 45 ((a*a/90)+10) 45 paper p } }