-- this sample was inspired by 1-180_JDOR_sandGlass 
-- draws pentagram
-- the file jdor.cls must be either in the BSF4ooRexx850 folder (no subfolder), or in the same folder as this program 
-- execute this file with rexxj G01T01A1.txt


call addJdorHandler     -- load and add the Java Rexx command handler, using default name: JDOR
address jdor            -- set default environment to JDOR
stroke st10 10            -- define stroke of 10 pts

color blue 0 0 255    -- R,G,B,

width=500
height=500
new width height        -- create new bitmap
winShow                 -- show frame
do
  color  blue
  stroke st10
  moveTo width/2 0; drawLine width*0.2 height*0.9
  moveTo width*0.2 height*0.9; drawLine width*0.97 height*0.35
  moveTo width*0.97 height*0.35; drawLine width*0.03 height*0.35
  moveTo width*0.03 height*0.35; drawLine width*0.8 height*0.9
  moveTo width*0.8 height*0.9; drawLine width/2 0
  moveTo 0 0; drawOval width height
end

say 'hit enter to continue...'; 
parse pull 

::requires jdor.cls   -- makes routine addJdorHandler([environmentName]) available