GLE Example: shapes.gle

size 14.5 4.75

include "/subroutines/shape.gle"

set_shape_color   wheat
set_shape_color_2 sienna

set hei 0.35 font texcmr just center

sub print_name name$
   rmove 0 -0.5
   write name$
   rmove 2 0.5
end sub

begin object accolades
   accolade -0.2 0 -0.2 1 0.15
   accolade +0.2 1 +0.2 0 0.15
end object

amove 1.25 pageheight()-1.5

draw accolades.bc
print_name "accolade"

draw rectangle.bc
print_name "rectangle"

draw triangle.bc
print_name "triangle"   
   
draw hexagon.bc
print_name "hexagon"

draw rhomb.bc 1 1
print_name "rhomb" 
      
draw updn_arrow.bc
print_name "u/d-arrow"
   
draw updn_arrow.bc angle 90
print_name "l/r-arrow"

amove 1.25 pageheight()-1.5-2

draw left_arrow.bc
print_name "left-arrow"

draw left_arrow.bc angle 180
print_name "right-arrow"

draw left_arrow.bc angle 90
print_name "up-arrow"

draw left_arrow.bc angle -90
print_name "down-arrow"
   
draw textdisk.bc "S"
!draw disk.bc
print_name "disk"   
   
draw l_tree.bc
print_name "l-tree"
   
draw r_tree.bc
print_name "r-tree"