程序调了字体大小后发生了一些变形,原本的程序如下
- #STORAGE INTEGER:$(DimIdx)+1
- #LOCAL i,j,k
- #IF ($In>STORI(NSTORI+$(DimIdx))
- j=0
- k=$DimIdx-STORI(NSTORI+$(DimIdx)
- DO i=0,$DimIdx
- IF(STORI(NSTOTI+i)=0)THEN
- $Vcap(j)=$Vcap(i)
- j=j+1
- ELSE
- $Vcap(k)=$Vcap(i)
- k=k+1
- END DO
- IF ($Iac>=0)THEN
- CALL idcdd_sort($Vcap,$DimIdx,$DimIdx-STORI(NSTORI+$(DimIdx)-1,$In-STORI(NSTORI+$(DimIdx),$Indx)
- ELSE
- CALL ixcdd_sort($Vcap,$DimIdx,$DimIdx-STORI(NSTORI+$(DimIdx)-1,STORI(NSTORI+$(DimIdx)-$In,$Indx)
- ENDIF
- #ELSEIF ($In==STORI(NSTORI+$(DimIdx))
- j=0
- k=$DimIdx-STORI(NSTORI+$(DimIdx)
- DO i=0,$DimIdx
- IF(STORI(NSTOTI+i)=0)THEN
- $Vcap(j)=$Vcap(i)
- j=j+1
- ELSE
- $Vcap(k)=$Vcap(i)
- k=k+1
- END DO
- IF ($Iac>=0)THEN
- CALL idcde_sort($Vcap,$DimIdx,$DimIdx-STORI(NSTORI+$(DimIdx)-1,$Indx)
- ELSE
- CALL ixcde_sort($Vcap,$DimIdx,$DimIdx-STORI(NSTORI+$(DimIdx)-1,$Indx)
- ENDIF
- #ELSE
- j=0
- k=STORI(NSTORI+$(DimIdx)
- DO i=0,$DimIdx
- IF(STORI(NSTOTI+i)=1)THEN
- $Vcap(j)=$Vcap(i)
- j=j+1
- ELSE
- $Vcap(k)=$Vcap(i)
- k=k+1
- END DO
- IF ($Iac>=0)THEN
- CALL idcdx_sort($Vcap,$DimIdx,STORI(NSTORI+$(DimIdx)-1,$In-STORI(NSTORI+$(DimIdx),$Indx)
- ELSE
- CALL ixcdx_sort($Vcap,$DimIdx,STORI(NSTORI+$(DimIdx)-1,STORI(NSTORI+$(DimIdx)-$In,$Indx)
- ENDIF
- #ENDIF
- #LOCAL INTEGER Ki
- DO Ki=0,$DimIdx
- STORI(NSTOTI+Ki) = $Indx(Ki)
- END DO
- STORI(NSTORI+$(DimIdx) = $In
- NSTORI = NSTORI+1+$(DimIdx)
复制代码
|