- Added hexagon structure

7bcfe8f0 · Frank Bergmann · d1e44a51 · 7bcfe8f0 · 7bcfe8f0
Commit 7bcfe8f0 authored Aug 19, 2018 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 154 additions and 0 deletions

hexagon.adp www/segment/hexagon.adp +102 -0

hexagon.tcl www/segment/hexagon.tcl +52 -0

No files found.
--- a/www/segment/hexagon.adp
+++ b/www/segment/hexagon.adp
+<!-- packages/intranet-sysconfig/sector/index.adp -->
+<!-- @author Frank Bergmann (frank.bergmann@project-open.com) -->
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
+<master src="master">
+<property name="doc(title)">System Configuration Wizard</property>
+<property name="page">sector</property>
+
+
+<!--
+<div id=hexagon_container style="position:relative; height:400px; width:600px">
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute; top:0px; left:135px; width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute; top:76px; left:0px; width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute; top:76px; left:270px; width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/blue-100.png" 
+style="position:absolute; top:152px; left:135px; width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute; top:228px; left:0px; width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute; top:228px; left:270px; width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute; top:304px; left:135px; width:@w@px; height:@h@px; border:none;"/>
+</div>
+-->
+
+<!--
+<div style="position:relative; height:400px; width:600px;"> 
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute;	top:0px;			left:<%=[expr $base*1.5 + 4]%>px;	width:@w@px; height:@h@px;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute;	top:@hyp@px;			left:0px;				width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute;	top:@hyp@px;			left:<%=[expr $base*3 + 8]%>px;		width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/blue-100.png" 
+style="position:absolute;	top:<%=[expr $hyp*2.0]%>px;	left:<%=[expr $base*1.5 + 4]%>px;	width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute;	top:<%=[expr $hyp*3.0]%>px;	left:0px;				width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute;	top:<%=[expr $hyp*3.0]%>px;	left:<%=[expr $base*3 + 8]%>px;		width:@w@px; height:@h@px; border:none;"/>
+<img src="/intranet-sysconfig/images/hexagon-100.png" 
+style="position:absolute;	top:<%=[expr $hyp*4.0]%>px;	left:<%=[expr $base*1.5 + 4]%>px;	width:@w@px; height:@h@px; border:none;"/>
+</div>
+-->
+
+
+<style>
+div.hexagon_cell {
+    display: table-cell;
+    text-align: center;
+    vertical-align: middle;
+    font-size: 18px;
+}
+</style>
+
+<div style="position:relative; height:400px; width:600px;"> 
+
+
+
+<div style="position:absolute;	top:@y0@px; left:@x1@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('@bg100@'); display: table;"/>
+<div class="hexagon_cell">Collabo-<br>ration</div>
+</div>
+
+<div style="position:absolute;	top:@y1@px; left:@x0@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('@bg100@'); display: table;"/>
+<div class="hexagon_cell">CRM</div>
+</div>
+
+<div style="position:absolute;	top:@y1@px; left:@x2@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('@bg100@'); display: table;"/>
+<div class="hexagon_cell">ITSM</div>
+</div>
+
+<div style="position:absolute;	top:@y2@px; left:@x1@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('/intranet-sysconfig/images/blue-100.png'); display: table;"/>
+<div class="hexagon_cell">PM</div>
+</div>
+
+<div style="position:absolute;	top:@y3@px; left:@x0@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('@bg100@'); display: table;"/>
+<div class="hexagon_cell">PPM</div>
+</div>
+
+<div style="position:absolute;	top:@y3@px; left:@x2@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('@bg100@'); display: table;"/>
+<div class="hexagon_cell">Agile<br>PM</div>
+</div>
+
+<div style="position:absolute;	top:@y4@px; left:@x1@px; width:@w@px; height:@h@px; background-size: cover; background-image: url('@bg100@'); display: table;"/>
+<div class="hexagon_cell">Finance</div>
+</div>
+
+
+</div>
+
+
+
+<!--
+<ul>
+<li>height <%= [expr $h] %>
+<li>base=  <%= [expr $base] %>
+<li>hyp=   <%= [expr $hyp] %>
+<li>expr $base*1.5 = <%= [expr $base*1.5] %>
+</ul>
+-->
--- a/www/segment/hexagon.tcl
+++ b/www/segment/hexagon.tcl
+# /packages/intranet-sysconfig/www/sector/sector.tcl
+#
+# Copyright (c) 2003-2006 ]project-open[
+#
+# All rights reserved. Please check
+# http://www.project-open.com/license/ for details.
+
+# ---------------------------------------------------------------
+# Page Contract
+# ---------------------------------------------------------------
+
+ad_page_contract {
+    
+} {
+
+}
+
+
+# ---------------------------------------------------------------
+# Frequently used variables
+# ---------------------------------------------------------------
+
+set current_user_id [auth::require_login]
+set user_is_admin_p [im_is_user_site_wide_or_intranet_admin $current_user_id]
+if {!$user_is_admin_p} {
+    ad_return_complaint 1 "<li>[_ intranet-core.lt_You_need_to_be_a_syst]"
+    return
+}
+
+set bg ""
+set po "<span class=brandsec>&\#93;</span><span class=brandfirst>project-open</span><span class=brandsec>&\#91;</span>"
+set po_short "<span class=brandsec>&\#93;</span><span class=brandfirst>po</span><span class=brandsec>&\#91;</span>"
+
+#set w 175; set h 148; set fh 16; # 100%, original GIF size, too large
+#set w 105; set h 87; # 60%, a bit to small
+set w 140; set h 118; # 80%
+
+set base [expr round($w / 2.0)]; # Base of triangle, half of width = 88
+set hyp [expr round(sqrt($base*$base - $base*$base/4))]; # Hypotonuse of base triangle = 76
+
+set x0 0
+set x1 [expr $base*1.5 + 4]
+set x2 [expr $base*3 + 8]
+
+set y0 0
+set y1 $hyp
+set y2 [expr $hyp*2.0]
+set y3 [expr $hyp*3.0]
+set y4 [expr $hyp*4.0]
+
+
+set bg100 "/intranet-sysconfig/images/hexagon-100.png"