apl>" <-APL2-------------------- sam206.txt ---------------------------->
apl>" <---------------------------display------------------------------->
apl>)read cap2/help/display.txt
apl>Lfx file
display
apl>Gdisplay[L]G
G d#s display a;Lio ;r;c;hl;hc;ht;hb;vl;vb;v;w;n;b
[1] " display a general array in pictorial form
[2] " normal call is monadic. dyadic call used only in
[3] " recursion to specify display rank, shape, and depth
[4] Lio #0
[5] C(0=Lnc 's')/'s#Ra'
[6] r#YR,s" pseudo rank.
[7] c#'++++'" ur, ul, ll, and lr corners.
[8] hl#'-'" horizontal line.
[9] hc#hl,'@$',hl,'~+E'" horizontal borders.
[10] ht#hc[(0<r)X1+0<Y-1Y,s]
[11] "w#,0`=`1Y0R`Z(1SRa)Ya
[12] " this expression will produce 1 if all items
[13] " in variable a are numeric, or will fail with
[14] " a domain error otherwise.
[15] " a 1 if 0 items in a, otherwise count of
[16] " a items in a.
[17] " a b
[18] " a bbbbbb
[19] " aaaaaaaaaaaaaaaaa
[20] hb#hc[3+3D('2X~a`=Fa'Lea '1+YE0X(1SX/Ra)Y,a')+3X1<RRs]
[21] vl#'|'" vertical line.
[22] vb#vl,'OU'" vertical border.
[23] v#vb[(1<r)X1+0<-1Y-1U,s]
[24] C(0ERa)/'a#(1SRa)R`ZYa'" show prototype of empties
[25] $(1<`=a)/gen
[26] $(2<RRa)/d3
[27] d#Fa" simple arrays
[28] w#1YRd#(-2Y1 1,Rd)Rd
[29] n#-1+1URd
[30] $(0=RRa)/ss
[31] d#(c[1],v,((w_1)Rvl),c[2]),((ht,nRhl),[0]d,[0]hb,nRhl),c[0],(wRvl),c[3]
[32] $0
[33] ss:hb#((0 ' ')=Y0R`Za)/' -'
[34] d#' ',(' ',[0]d,[0]hb,nR' '),' '
[35] $0
[36] gen:d#Fdisplay`1a" enclosed ...
[37] n#dV.^=' '
[38] d#(nV~1`On)`/d
[39] d#(V`/~' '`Ed)/d
[40] d#((1,Rs)Rs)display d
[41] $(2ZR,s)Ud3e,0
[42] d3:d#0 -1U0 1UF`Za" multi-dimensional
[43] w#1YRd
[44] n#-1+1URd
[45] d#(c[1],v,((w_1)Rvl),c[2]),((ht,nRhl),[0]d,[0]hb,nRhl),c[0],(wRvl),c[3]
[46] d3e:n#-2+R,s
[47] v#c[nR1],[0]vb[1+0<-2U,s],[0](((-3+YRd),n)Rvl),[0]c[nR2]
[48] d#v,d
[49] " copied from IBM's tryapl2 workspace
G
apl>"tHdisplay#I1YRLcr 'display'
apl>display 23
23
apl>display 1 2
+$--+
|1 2|
+~--+
apl>display 2 3RI6
+$----+
U1 2 3|
|4 5 6|
+~----+
apl>display 1 2 'more' (3 'a') (2 2RI4) 'b'
+$---------------------------+
| +$---+ +$----+ +$--+ |
| 1 2 |more| | 3 a | U1 2| b |
| +----+ ++----+ |3 4| - |
| +~--+ |
+E---------------------------+
apl>display 1 2 'more' (3 'or') (2 2RI4) 'b'
+$------------------------------+
| +$---+ +$-------+ +$--+ |
| 1 2 |more| | +$-+ | U1 2| b |
| +----+ | 3 |or| | |3 4| - |
| | +--+ | +~--+ |
| +E-------+ |
+E------------------------------+
apl>display `Z `Z 1 2
+-----------+
| +-------+ |
| | +$--+ | |
| | |1 2| | |
| | +~--+ | |
| +E------+ |
+E----------+
apl>)off
