OsBlaineOra

create or replace function generate_random_location(p_island in sdo_geometry)
  return sdo_geometry
is
  v_center sdo_geometry;
  v_radius number;
  new_radian number;
  new_point sdo_geometry;
  v_lon number;
  v_lat number;
  v_x number;

OsBlaineOra

set serveroutput on

update dd_members
   set location = null
 where location is not null;

delete from dd_locations
 where location_name = 'dino-island';

commit;

OsBlaineOra

create or replace function generate_polygon_rad(
  p_min_radius    in number,
  p_variance_pct  in number,
  p_lon           in number default 0,
  p_lat           in number default 0)
  return sdo_geometry
is
  c_upper_limit constant number := p_min_radius + p_min_radius*(p_variance_pct/100);
  v_cur_radian number := 0;
  v_x number;

OsBlaineOra

create or replace function generate_shape(
  p_lon           in number default 0,
  p_lat           in number default 0,
  p_sides         in number default 1,
  p_radius        in number default 0,
  p_start_radian  in number default 0)
  return sdo_geometry
is
  v_generated_shape sdo_geometry;
  v_cur_radian number := p_start_radian;